Ouverture automatique workbook_open [Résolu]

Signaler
Messages postés
2
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
20 août 2008
-
Messages postés
2
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
20 août 2008
-
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.

Quelqu'un aurait-il une réponse à m'apporter.

Merci

1 réponse

Messages postés
2
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
20 août 2008

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

A plus
____