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

philppe27 · 6 Novembre 2012

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 · 6 Novembre 2012

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

Bonjour,

Une piste :

Code:

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 · 6 Novembre 2012

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

ok merci ça marche

Staple1600 · 6 Novembre 2012

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 😉

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

philppe27

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

philppe27

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

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

philppe27

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

philppe27

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency