Ouverture d'un classeur

[Dom]

Bonjour à tous,

Comment faire pour tester si un classeur est ouvert ? pour ensuite lancer une procédure ou une autre de mon choix.

Merci d'avance pour votre collaboration

Dom

 

[michel]

bonsoir Dom

j'espere que le fichier joint pourra t'aider . Attention lors de la saisie du nom du classeur ( le contrôle est sensible aux minuscules et majuscules )


Sub VerifClasseurOuvert()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "Classeur1" Then
MsgBox "Le Classeur est ouvert ."
Exit Sub
End If
Next Wb
MsgBox "Le classeur n'est pas ouvert . "
End Sub


bonne soiree
michel

 

[michel]

rebonsoir

oouuppss

je voulais dire .... l'exemple joint ...

bonne soiree
michel

 

[Dom]

Merci beaucoup à toi Michel pour t'on aide, je vais de ce pas tester cette procédure

A bientôt

Dom