Classeur déjà ouvert???

Question

Existe t'il une propri&#233;t&#233; pour savoir si un classeur est d&#233;j&#224; ouvert ou non???
Genre(mais qui marche pas)
If Workbooks("x") Is Open then

damdam04 · Answer

salut 

tu veux faire quoi exactement apr&#233;s ton "if"???

nostra78 · Answer

En fait c pour &#233;viter l'erreur 9 l'indice n'appartient pas &#224; la s&#233;lection.
If Workbooks("x") Is open then
Workbooks("x").Activate
Else
Workbooks.Open filename:=...
End if

damdam04 · Answer

tu peux faire un truc de ce style la...



Dim i As Integer

For i = 1 To Workbooks.Count
If Workbooks(i).Name = "test1.xls" Then
MsgBox ("ouvert")
Else
Workbooks.Open ("C:	est1.xls")
End If

Next i



voila si tu cherches sur le forum y a plein de sources qui parlent de &#231;a

nostra78 · Answer

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

damdam04 · Answer

tu testes alors le nombre de classeurs ouvert avant de rentrer dans le "for" 



    If Workbooks.Count <> 0 Then

        For i = 1 To Workbooks.Count

        ...

        Next i

    Else

        Workbooks.Open ("C:	est1.xls")

    End If

valtrase · Answer

Salut,
Ou alors tu g&#232;re par rapport au erreur

'L&#224; si pas ouvert erreur !!!!
On Error Resume Next
Workbooks("x").Activate 
If Err.Number <> 0 Then
Workbooks.Open ("C:	est1.xls")

Err.Clear
End if

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

galopin01 · Answer

bonsoir,
une petite fonction qui fait &#231;a :

Function WbIsOpen(Nom$) As Boolean
For Each o In WorkbooksY o.Name Nom
If Y Then Exit For
Next
WbIsOpen = Y
End Function


Sub Test()
MsgBox WbIsOpen("MonBeauClasseur.xls")
End Sub

A+

Classeur déjà ouvert???

7 réponses

Discussions similaires