Classeur ouvert ou pas ?

Dan

XLDnaute Barbatruc

• 14 Mars 2006

• #2

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

Code:

On error resume next

Bon ap.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 14 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Mars 2006

• #6

Bonjour Dan

Je suis arrivé trop tard

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Mars 2006

• #7

bonjour Jacques

 

Vote positif 0 Vote négatif