Bonjour,
Je souhaite envoyer automatiquement par e-mail (via Outlook) un fichier pdf généré automatiquement par une macro et je n’y arrive pas.
Donc j’ai un fichier excel avec une macro qui l’enregistre au format PDF toujours dans le même dossier mais avec un nom différent.
Le fichier PDF est ouvert. Les adresses e-mails sont différentes selon les transporteurs : elles sont présentent dans mon fichier Excel dans les cellules J6 et J7
Je connais ce système qui fonctionne très bien pour envoyer un fichier Excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Dim myadress(1 To 2) Set mylst = ActiveSheet.Range("j6:j7") Count = 1 For Each Envoi In mylst If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1 Next ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2)), Subject:="Ordre affrètement"
Existe-t-il la même chose pour un fichier PDF ?
Merci beaucoup pour votre aide.
Catherine
Partager