comment savoir si un fichier est ouvert

[macro]

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

....

 

[marie]

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

 

[marie]

rebonsoir,

super, ca marche
A+
Marie

 

[AV]

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]