Test classeur à l'ouverture

thierry · 31 Juillet 2003

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 · 31 Juillet 2003

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

Test classeur à l'ouverture

thierry

Guest

stef

Guest

Discussions similaires