Classeur déjà ouvert???

To ntruc ne convient pas si i=0 et que le nom différent il va ouvrir alors que pour i=1 c bon!!

Salut,
Ou alors tu gère par rapport au erreur

'Là si pas ouvert erreur !!!!
On Error Resume Next
Workbooks("x").Activate
If Err.Number <> 0 Then
Workbooks.Open ("C:\test1.xls")
Err.Clear
End if




Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

bonsoir,
une petite fonction qui fait ça :

Function WbIsOpen(Nom$) As Boolean
For Each o In Workbooks
Y = o.Name = Nom
If Y Then Exit For
Next
WbIsOpen = Y
End Function

Sub Test()
MsgBox WbIsOpen("MonBeauClasseur.xls")
End Sub

A+