Test classeur à l'ouverture

[thierry]

D"solé je me suis trompé d'@ Email

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

 

[stef]

salut thierry

voilà qque chose qui devrait t'aider:

'------------Trouve si LeFichier.xls est ouvert-----------
cstNomClasSom = "lefichier.xls" ' en minuscule
For Each Class In Workbooks
If LCase(Class.Name) = cstNomClasSom Then
Workbooks(Class.Name).Activate
Chemin = ActiveWorkbook.Path
MsgBox "c'est ouvert"
Else
MsgBox Chemin & " est fermé"
End If
Next


'Chemin' recupere le chemin d'acces du fichier pour un affichage dans le msgbox si tu veux...

j'ecris ca vite fait j'espere ne pas dire de betises

stef