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
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
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
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