Classeur ouvert ou pas ?

F

Fred

Guest

• 12 Novembre 2005

• #2

bonsoir,

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

Bonne nuit !

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 12 Novembre 2005

• #3

Bonsoir Fred , bonsoir le forum

Merci pour cette réponse aussi rapide.

Carlos

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 12 Novembre 2005

• #4

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

Cliquez pour agrandir...

Cordialement,

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 12 Novembre 2005

• #5

Bonsoir MyDearFriend!

Toujours à notre écoute.

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

Bonsoir

Carlos

 

Vote positif 0 Vote négatif