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