[COLOR=blue]Sub[/COLOR] Classeur_ouvert()
[COLOR=blue]Dim[/COLOR] Classeur [COLOR=blue]As String[/COLOR], Chemin [COLOR=blue]As String[/COLOR], ouvert [COLOR=blue]As Boolean[/COLOR], w [COLOR=blue]As[/COLOR] Workbook
Classeur = "Test.xls"
Chemin = "D:Temp\"
[COLOR=blue]For Each[/COLOR] w [COLOR=blue]In[/COLOR] Workbooks
[COLOR=blue]If[/COLOR] w.Name = Classeur [COLOR=blue]Then[/COLOR] ouvert = [COLOR=blue]True[/COLOR]: [COLOR=blue]Exit For[/COLOR]
[COLOR=blue]Next[/COLOR] w
[COLOR=blue]If Not[/COLOR] ouvert [COLOR=blue]Then[/COLOR] Workbooks.Open Filename:=Chemin & Classeur
[COLOR=blue]End Sub[/COLOR]