Savoir si un fichier spécifique est ouvert?

P

pat1545

Guest

• 23 Mars 2005

• #2

Salut,

de Michel Pierron (mpfe)


Function FileLocked(FileName As String) As Boolean
On Error Resume Next
Open FileName For Binary Access Read Write Lock Read Write As #1
Close #1
FileLocked = Err.Number > 0
If FileLocked Then MsgBox 'Fichier déjà ouvert !', 64
End Function

MP

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 23 Mars 2005

• #3

Bonsoir Michel,

Il semblerait, si j'ai bien compris, que tu regarde si j'ai 1 fichier ouvert. Moi je voudrais voir si le fichier 'fipart' est ouvert.

Merci pour ta réponse.
@+

Eric D

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 23 Mars 2005

• #4

Bonjour Eric D, pat1545,

Essaie ce code :

Code:

        For Each WB In Workbooks
            If WB.Name = [i]'Nom du fichier à tester avec l'extension'[/i] Then
                MsgBox ([i]'Nom du fichier'[/i] & ' est déjà ouvert.')
             End If
        Next WB

En espérant que cela te dépanne.

Abel.

 

Vote positif 0 Vote négatif