Vérifier si un autre classeur est ouvert

[vince]

Bonjour le forum

En fait j'aimerai pouvoir repérer si un autre classeur est ouvert sur mon ordinateur.

Merci d'avance

Vince

 

[Sticks]

Salut Vince

avec Woorkbooks.count cela devrait faire l'affaire:

Sub compter()

nb = Workbooks.Count

If nb > 1 Then
MsgBox ('un autre classeur est ouvert. nombre total de classeurs ouverts: ' & nb)

End If

If nb = 1 Then
MsgBox ('Il n'y a pas d'autre classeur ouvert')

End If



End Sub

 

[Vince]

Merci Sticks

Parfait c'est exactement ce que je cherchais à réaliser.

Encore merci.

Vince

 

[AV]

Ave,

''..En fait j'aimerai pouvoir repérer si un autre classeur est ouvert sur mon ordinateur...''

Pour info : Ne pas oublier que l'on peut ouvrir plusieurs instances d'XL voire plusieurs versions.... simultanément !

AV [aaa]

 

[Sticks]

c'est exact!

Vince, la macro ne pourra compter tes classeurs que sur l'instance d'excel qui est active!