Vérifier si un fichier Excel est ouvert depuis Outlook

Bonjour,

J'essaye de tester si un fichier Excel est ouvert ou non depuis Outlook (au lancement d'une macro dans Outlook) mais je n'y arrive pas...

Merci par avance pour votre aide !

ça inspire personne mon problème ?

Bonjour,

Utiliser cette fonction

Function IsFileOpenForWrite(ByVal nom_fichier As String) As Boolean
    Dim no_fichier As Long

    On Error Resume Next
    no_fichier = FreeFile()
    Open nom_fichier For Binary Access Read Lock Read Write As #no_fichier
    If Err.Number = 0 Then IsFileOpenForWrite = False _
    Else IsFileOpenForWrite = True
    Close no_fichier

End Function

Merci pour ta réponse ! mais ça me renvoi "True" dans les 2 cas...

Sub macro_1()

MsgBox IsFileOpenForWrite("NOM FICHIER.xlsx")

End Sub

Function IsFileOpenForWrite(ByVal nom_fichier As String) As Boolean

    Dim no_fichier As Long

    On Error Resume Next
    no_fichier = FreeFile()
    Open nom_fichier For Binary Access Read Lock Read Write As #no_fichier
    If Err.Number = 0 Then IsFileOpenForWrite = False _
    Else IsFileOpenForWrite = True
    Close no_fichier

End Function

Est-ce que mon utilisation est correcte ?

Bonjour,

Est-ce que mon utilisation est correcte ?

Non. Car le nom du fichier doit inclure le chemin complet comme dans un WorkBooks.Open.

Sub macro_1()

MsgBox IsFileOpenForWrite(Adresse + nom fichier + .xlsx)

End Sub

Function IsFileOpenForWrite(ByVal nom_fichier As String) As Boolean

    Dim no_fichier As Long

    On Error Resume Next
    no_fichier = FreeFile()
    Open nom_fichier For Binary Access Read Lock Read Write As #no_fichier
    If Err.Number = 0 Then IsFileOpenForWrite = False _
    Else IsFileOpenForWrite = True
    Close no_fichier

End Function

Nickel ça marche, merci bien !