Vérifier si un autre classeur est ouvert

S

Sticks

Guest

• 18 Mai 2006

• #2

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

 

Vote positif 0 Vote négatif

V

Vince

Guest

• 18 Mai 2006

• #3

Merci Sticks

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

Encore merci.

Vince

 

Vote positif 0 Vote négatif

A

AV

Guest

• 18 Mai 2006

• #4

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]

 

Vote positif 0 Vote négatif

S

Sticks

Guest

• 18 Mai 2006

• #5

c'est exact!

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

 

Vote positif 0 Vote négatif