je met un petit bout de code pour mieu comprendre vers ou je veux aller
Private Function EstDansCollection(Coln As Object, Item As String) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function
Sub fichier_ouvert()
Dim Reponse
If EstDansCollection(Workbooks, 'Mensuel.xls') = True Then 'si Mensuel déja ouvert
MsgBox ('mensuel ouvert')
Workbooks.Open ('Mensuel2.xls')
Exit Sub
End If
If EstDansCollection(Workbooks, 'Mensuel2.xls') = True Then 'si mensuel2 déjà ouvert
MsgBox ('mensuel2 ouvert')
Workbooks.Open ('Mensuel3.xls')
Exit Sub
End If
If EstDansCollection(Workbooks, 'Mensuel3.xls') = True Then 'si mensuel3 déjà ouvert
MsgBox ('mensuel3 ouvert')
MsgBox ('tout les fichiers sont ouvert')
End If
Exit Sub
End Sub