cs_paco_
Messages postés2Date d'inscriptionjeudi 28 décembre 2006StatutMembreDernière intervention20 août 2008
-
20 août 2008 à 14:30
cs_paco_
Messages postés2Date d'inscriptionjeudi 28 décembre 2006StatutMembreDernière intervention20 août 2008
-
20 août 2008 à 15:22
Bonjour,
J'ai un fichier excel qui ouvre automatiquement via workbook_open un fichier macro.xla qui lui va ouvrir un fichier de données excel pour alimenter une feuille du premier excel. Le fichier macro.xla permet ensuite d'executer différents traitements en cliquant sur un bouton d'execution.
Voici le code placer dans thisworkbook :
Private Sub Workbook_Open()
Dim test_pub As String
On Error GoTo pasouvert
test_pub = Workbooks("Macro_pub.xla").Name
On Error GoTo 0
Workbooks("Macro_pub.xla").Close
pasouvert:
If Dir(ThisWorkbook.Path + "\Files\Macro_pub.xla") <> "" Then
Workbooks.Open Filename:=ThisWorkbook.Path + "\Files\Macro_pub.xla", ReadOnly:=True, Editable:=False
Else
Exit Sub
End If
Application.Run "Macro_pub.xla!CopyAndFormatData_pub", ThisWorkbook.Path, ThisWorkbook.Name
Exit Sub
End Sub
Tout fonctionne parfaitement sauf quand deux fichiers du même type sont lancés. Le deuxième fichier ouvert ne rentre pas dans la procédure Workbook_open. Je ne comprend pas pourquoi ? L'ouverture automatique ne fonctionne plus. Je précise que les fichiers ouverts ont des noms différents et que le pb vient si j'execute la macro sur le fichier macro.xla pour le premier fichier. Il n'y a cependant rien dans ce fichier qui viendrait empêcher une ouverture automatique. Le fichier macro.xla lui reste ouvert.
cs_paco_
Messages postés2Date d'inscriptionjeudi 28 décembre 2006StatutMembreDernière intervention20 août 2008 20 août 2008 à 15:22
Bon, finalement j'ai trouvé la réponse. Il fallait réinitialiser les évènements avec Application.EnableEvents = True en fin de traitement dans le fichier macro.xla