bonne année....recherche fonction de test si fichier déjà ouvert

[pl]

Bonjour,

Déjà meilleurs voeux à tout le monde .

Je recherche la fonction,de type boolean par exemple, me permettant de tester si un fichier est déjà ouvert sur mon excel. (Conflit d'ouverture si déjà ouvert).

Merci de votre aide

 

[Romuald]

Public Sub closeOpenedWorkbook(sFilePath As String)

Dim wkb As Workbook

For Each wkb In Workbooks
If wkb.FullName = sFilePath Then
Application.DisplayAlerts = False
wkb.Close False
Application.DisplayAlerts = True
Exit For
End If
Next

End Sub

 

[pl]

merci pour cette réponse très bien détaillé.

Bonne journée