Bonsoir,
Voici quelques indications, mais y'a d'autres moyens certainement ...
Code:
Dim classeur as Workbook
....
classeurouvert = False
For Each classeur in Workbooks
If classeur.Name = nomdufichierconcerne then
classeurouvert = True
End If
Next
....