Classeur ouvert ou pas ?

[carlos]

Bonsoir le forum

Comment peux t'on savoir si le classeur 'Toutou' est ouvert ou non ?

merci

Carlos

 

[Fred]

bonsoir,

tu insères la ligne :
Windows('toutou').Activate
Si il n'est pas ouvert, tu récupères une erreur 9

Bonne nuit !

 

[carlos]

Bonsoir Fred , bonsoir le forum

Merci pour cette réponse aussi rapide.

Carlos

 

[myDearFriend!]

Bonsoir carlos, Fred,

Je me sers pour ma part d'une fonction personnalisée :

Sub Test()
        MsgBox 'Fichier ' & IIf(FichOuvert('MonClasseur.xls'), '', 'NON ') & 'ouvert.'
End Sub

Function FichOuvert(F As String) As Boolean
Dim Wk As Workbook
        On Error Resume Next
        Set Wk = Workbooks(F)
        On Error GoTo 0
        FichOuvert = Not Wk Is Nothing
End Function

Cordialement,

 

[carlos]

Bonsoir MyDearFriend!

Toujours à notre écoute.

Merci grandement pour ta réponse et ta rapidité , comme Fred.

Bonsoir

Carlos