Classeur ouvert ou pas ?

[Nevil]

Hé bien bonjours a toutes et a tous,

Voici mon probleme du jour:
Au lancement de ma Macro, j'ouvre un fichier XL et si ce fichier est deja ouvert, ma Macro plante.
Je souhaiterais savoir s'il existe un code afin de déterminer si un fichier XL est deja ouvert ou non.

Je vous remercie


Julien

 

[Dan]

Bonjour,

Le mieux serait de voir ta macro.
Mais tu peux essayer de place ceci au début de ta procédure ou juste avant le plantage

On error resume next

Bon ap.

 

[pierrejean]

bonjour Nevil
salut Dan

tu peux t'inspirer de cette macro

Sub test()
For n = 1 To Workbooks.Count
If Workbooks(n).Name = 'Classeur1' Then
MsgBox (' le Classeur1 est ouvert')
End If
Next n
End Sub

 

[Nevil]

J'ai trouvé ta solution fortement instructive pour moi et en plus il ne me fallais que cela.Ca marche IMPEC.

Merci et bon aprem



Julien

 

[Jacques87]

Bonjour Julien

Voici un bout de code que tu peux adapter à tes besoins

On Error Resume Next
Workbooks('classeur1.xls').Activate
If Err = 0 Then
MsgBox ('ce fichier est déjà ouvert')
End If

Si le classeur sur lequel tu travailles porte le nom de 'classeur1.xls' on te précisera par ce bout de code qu'il est ouvert

A toi maintenant d'adapter ces quelques lignes à tes besoins

Bonne journée

 

[Jacques87]

Bonjour Dan

Je suis arrivé trop tard

Cordialement

 

[pierrejean]

bonjour Jacques