Classeur ouvert ou pas ?

myDearFriend!

XLDnaute Barbatruc
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,
 

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 303
dernier inscrit
dreydrette