XL 2019 Savoir si un fichier est utilisé

[dodineau]

Bonjour à toutes et tous.
Je travaille en réseau et je dois créer et enregistrer un fichier par une macro.
Comment savoir, avant de l'enregistrer, s'il est déjà utilisé par un autre utilisateur sur le réseau ?
Merci

 

[sylvanu]

Bonjour Dodineau,
Testez avec succès à partir de https://forums.commentcamarche.net/...n-d-une-alerte-fichier-deja-ouvert-excel-2003

Function FichierOuvert(Nom$) As Boolean
' Renvoie True si fichier déjà ouvert, sinon renvoie False
    Dim n°F As Integer
    FichierOuvert = False
    n°F = FreeFile
    On Error Resume Next
    Open Nom For Input Lock Read As #n°F
    If Err = 70 Then FichierOuvert = True
    Close #1
    On Error GoTo 0
End Function

L'appel peut se faire de cette façon :

    MonFichier = "C:\Users\PC_PAPA\Desktop\action.xlsx" 'A remplacer par votre fichier
    If FichierOuvert(MonFichier) = True Then
        MsgBox "Fichier déjà ouvert"
    End If

 

[dodineau]

Merci pour cette réponse.
J'ai un peu modifié à ma sauce et ça fonctionne exactement comme je le voulais.
A+