Voir si un fichier Excel est ouvert

[Stéphane]

Bonjour le forum,

Y-a-t-il un moyen de savoir via une code VBA si un fichier Excel est ouvert sur notre ordinateur.

Merci à vous tous

Stéphane

 

[PascalXLD]

Bonjour

Peut-être comme ceci

Sub cherche()

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name = 'toto.xls' Then
MsgBox 'fichier ouvert'
Exit Sub
End If
Next
MsgBox 'fichier non ouvert'

End Sub

Bon courage