Test d'ouverture classeur

[thierry]

Bonjour,

Je suis en train de développer une apply en VBA et je suis à la recherche de la manière de tester si un classeur est ouvert lors du lancement d'une macro auto open sous excel.
Merci d'avance de votre aide

Thierry

 

[michel]

Bonsoir Thierry

en exemple ci joint , une procédure qui renvoie à l'ouverture du fichier un message si le classeur appelé "test.xls" est ouvert


Private Sub Workbook_Open()
Dim classeur As Workbook
For Each classeur In Workbooks
If classeur.Name = "test.xls" Then
MsgBox "Le fichier test.xls est ouvert ."
End If
Next classeur
End Sub


Bonne soirée
Michel