Sub testouverture()
Dim VClasseur As Workbook
For Each VClasseur In Workbooks
If VClasseur.Name = "testouverture.xlsm" Then
MsgBox "Workbook " & VClasseur.Name & " déja ouvert"
'==============================================================================================================
Exit For
End If
Next VClasseur
If VClasseur Is Nothing Then
' si le fichier est fermé, je l'ouvre
Workbooks.Open Filename:= _
"C:\xxxx\xxxx\Desktop\testouverture.xlsm"
End If
End Sub