vba - détecter si un fichier est ouvert sur mon poste ?

[philppe27]

Bonjour,

J'aurais besoin de savoir le code vba pour détecter si un fichier excel est ouvert ou non sur mon poste.
Merci d'avance de votre aide,

Cordialement

 

[Theze]

Re : vba - détecter si un fichier est ouvert sur mon poste ?

Bonjour,

Une piste :

Sub Test()
    
    'le classeur doit être enregistré !
    MsgBox ClasseurOuvert("Classeur1.xls")

End Sub
Function ClasseurOuvert(NomClasseur As String) As String

    Dim Cl As Workbook
    
    On Error Resume Next
    Set Cl = Workbooks(NomClasseur)
    
    If Err.Number = 0 Then
    
        ClasseurOuvert = "Ouvert !"
        
    Else
    
        ClasseurOuvert = "Fermé !"
        
    End If

End Function

Hervé.

 

[philppe27]

Re : vba - détecter si un fichier est ouvert sur mon poste ?

ok merci ça marche

 

[Staple1600]

Re : vba - détecter si un fichier est ouvert sur mon poste ?

Bonjour à tous

philippe27:
Quand tu créés ta discussion, dans la foulée, regardes en bas de la page de celle-ci.
Dans les cinq liens des discussions similaires, tu trouvera souvent réponse à ta question fraichement posée

Ce qui est le cas ici