Comment savoir si le fichier est déjà ouvert ?

[Pit]

Bonjour,

Avant d'ouvrir un fichier via une macro en arrière plan, je voudrais tester s'il est déjà ouvert ..... mais je ne sais pas le faire !!!!
Qui peut me donner un tuyau ?

Merci pour votre aide

 

[michel_m]

Re : Comment savoir si le fichier est déjà ouvert ?

BonjourPit

ci dessous fonction réalisée par notre ami Didier:

Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf sur forum www.Excel-downloads.com (merci)
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

Bon WE à tous