bonjour,
une 'tite fonction personnalisée pour ça -à coller dans un module standart (Module1)-
Function WbIsOpen(WbName As String) As Boolean
On Error Resume Next
WbIsOpen = Not Workbooks(WbName) Is Nothing
End Function
ensuite tu testes en envoyant cette ligne dans ton code
If Not WbIsOpen("blabla.xls") Then Workbooks.Open Filename:="blabla.xls"
A+
Nota : Merci de Lire la Charte
(Pas de titre en majuscule)
A+