VBA - Probleme avec getopenfilename

[baudax]

Bonjour,

j'essaie de faire un code pour faire un envoie de mail via Excel. Envoie du fichier et de pièces jointes...

Voici le code

ActiveWorkbook.SaveAs Filename:=Fichier
    
    F = Application.GetOpenFilename(, , , , True)
    If VarType(F) = vbBoolean Then
        MsgBox "Opération annulée"
    Else
ESubject = "Mail - " & Range("B4") & " - " & Range("B6") & " " & Range("B8") & " " & Range("D8")
SendTo = "mon@mail"
EBody = "Mail - " & Range("F1")

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.Body = EBody
.Attachments.Add (ThisWorkbook.path & "\" & ThisWorkbook.Name)
.Attachments.Add (F)

si jamais je met : F = Application.GetOpenFilename cela fonctionne sans problème par contre si je rajoute (, , , , True) là ça bloque.

Je ne vois pas pourquoi. Merci de votre réponse

ludo