comment savoir si un fichier est ouvert

Bonsoir,

Au cours d'une macro, je veux fermer un fichier. Cependant j'ai un message d'erreur si le fichier n'est pas ouvert.
Donc, comment savoir si le fichier est ouvert ou non?
Existe t-il une fonction ou une propriété pour cela?
merci et a bientot
Marie

[Davidc57]

Bonsoir,

Voici quelques indications, mais y'a d'autres moyens certainement ...

Dim classeur as Workbook

....

classeurouvert = False

For Each classeur in Workbooks

If classeur.Name = nomdufichierconcerne then
     classeurouvert = True
End If

Next

....

Merci
Ca a l'air simple, en fait.
Je vais tester et je te dis.
A bientot
Marie

rebonsoir,

super, ca marche
A+
Marie

Ave,

Il n'est pas du tout indispensable/utilse de boucler sur l'ensemble des classeurs potentiellement ouverts.

Sub TestFichierOuvert()
Dim Wk As Workbook
x = ''Nom du Fichier''
On Error Resume Next
Set Wk = Workbooks(x & ''.xls'')
If Err differentde 0 Then
MsgBox ''Le fichier '' & x & '' n'est pas ouvert'
End If
End Sub

PS : remplacer differentde par le signe qui va bien

AV [aaa]