Savoir si un fichier spécifique est ouvert?

[Eric D]

Bonsoir à toutes et tous,

J'aimerais savoir si un fichier particulier 'fipart' est ouvert. Malgrés la simplicité du code, je pense, je n'y arrive pas.

Merci de votre aide

Eric D

 

[pat1545]

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

 

[Eric D]

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

 

[Abel]

Bonjour Eric D, pat1545,

Essaie ce 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.