Bonjour,
J'ai un classeur contenant des macros et notamment une
macro auto_open. Le fichier génère une erreur qui
provoque la fermeture d'excel par windows. J'ai essayé
d'ouvrir le document en désactivant les macros (ctrl) +
ouverture. J'ai aussi essayé ce code :
===>
Sub OuvrirFichierSansActiverLesMacros()
OpenFileWithoutMacro "chemin", "fichier"
End Sub
Sub OpenFileWithoutMacro(Chemin As String, Fichier As
String)
'Désactive complètement l'exécution des macros du fichier.
'N'affecte pas le comportement des autres fichiers ouverts.
'Cette procédure doit être appelé à partir de la feuille
'de calcul et non de la fenêtre VBE à cause des commandes
'Les 2 commandes suivantes s'assurent que
'la fenêtre "Open" pointe vers le bon répertoire
SendKeys "{esc}"
Application.Dialogs(xlDialogOpen).Show Chemin
'Ouvre le fichier en désactivant la macro.
SendKeys "%Fo" & Fichier & "%od"
End Sub
<== >
L'erreur est à chaque fois générée. Comment puis-je
récupérer les macros de ce fichier ???
Bonjour,
J'ai un classeur contenant des macros et notamment une
macro auto_open. Le fichier génère une erreur qui
provoque la fermeture d'excel par windows. J'ai essayé
d'ouvrir le document en désactivant les macros (ctrl) +
ouverture. J'ai aussi essayé ce code :
===>
Sub OuvrirFichierSansActiverLesMacros()
OpenFileWithoutMacro "chemin", "fichier"
End Sub
Sub OpenFileWithoutMacro(Chemin As String, Fichier As
String)
'Désactive complètement l'exécution des macros du fichier.
'N'affecte pas le comportement des autres fichiers ouverts.
'Cette procédure doit être appelé à partir de la feuille
'de calcul et non de la fenêtre VBE à cause des commandes
'Les 2 commandes suivantes s'assurent que
'la fenêtre "Open" pointe vers le bon répertoire
SendKeys "{esc}"
Application.Dialogs(xlDialogOpen).Show Chemin
'Ouvre le fichier en désactivant la macro.
SendKeys "%Fo" & Fichier & "%od"
End Sub
<== >
L'erreur est à chaque fois générée. Comment puis-je
récupérer les macros de ce fichier ???
Bonjour,
J'ai un classeur contenant des macros et notamment une
macro auto_open. Le fichier génère une erreur qui
provoque la fermeture d'excel par windows. J'ai essayé
d'ouvrir le document en désactivant les macros (ctrl) +
ouverture. J'ai aussi essayé ce code :
===>
Sub OuvrirFichierSansActiverLesMacros()
OpenFileWithoutMacro "chemin", "fichier"
End Sub
Sub OpenFileWithoutMacro(Chemin As String, Fichier As
String)
'Désactive complètement l'exécution des macros du fichier.
'N'affecte pas le comportement des autres fichiers ouverts.
'Cette procédure doit être appelé à partir de la feuille
'de calcul et non de la fenêtre VBE à cause des commandes
'Les 2 commandes suivantes s'assurent que
'la fenêtre "Open" pointe vers le bon répertoire
SendKeys "{esc}"
Application.Dialogs(xlDialogOpen).Show Chemin
'Ouvre le fichier en désactivant la macro.
SendKeys "%Fo" & Fichier & "%od"
End Sub
<== >
L'erreur est à chaque fois générée. Comment puis-je
récupérer les macros de ce fichier ???