savoir si un classeur est ouvert

[pierre@]

Bonjour à tous,

bonjour à tous,

je voudrais savoir comment faire pour vérifier si mon workbook que j'ai initialisé auparavant est toujours ouvert... (il a pu être fermé par l'utilisateur entre temps)

voici un bout de code :

sub maFocntion()

    set monWorkbook=ActiveWorkbook
    .....
    If monWorkbook is open        /*ce que j'aimerai faire*/
          ....
    End If

End sub

j'ai essayé

If monWorkbook = Nothing Then

et j'ai eu un bug : incompatibilité de type


Auriez vous une idée ?

Merci!

 

[francedemo]

Re : savoir si un classeur est ouvert

bonjour

perso, j'utilise la gestion d'erreur :

On Error Resume Next
    n = Workbooks("Fichier.xls").Width
    If Err <> 0 Then
        Fichier = "C:\blalbla\fichier.xls"
        Workbooks.Open FileName:=Fichier, _
            UpdateLinks:=1
    End If
"ton code"
End Sub

à +

 

[Efgé]

Re : savoir si un classeur est ouvert

Bonjour pierre@, francedemo
Une autre version:

[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]

Cordialement

 

[Trounk]

Re : savoir si un classeur est ouvert

Bonsoir,

Attention, comme je le dis sur ce sujet, il faut combiner les deux méthodes pour éviter les problèmes.

=> Dans le code indiqué par Efgé, l'application va planter su l'open si, par exemple, l'utilisateur n'a pas le droit d'accès au fichier ciblé .

 

[Efgé]

Re : savoir si un classeur est ouvert

Bonjour à tous, au fil, au forum,
@carcharodon-carcharias ,
Si tu veux reprendre mon exemple dans un de tes tuto, malgrés la très bonne remarque de Trounk, j'en serai ravi .
Cordialement

 

[laetitia90]

Re : savoir si un classeur est ouvert

bonjour tous ;
une autre version de j.Walkenbach. avec instruction SET

Dim x As Workbook
On Error Resume Next
Set x = Workbooks("boucle.xls")
If Err = 0 Then MsgBox " ok" Else MsgBox " pas ok"
On Error GoTo 0