Insertion pdf dans outlook 2016 via VBA

[MR.O]

Bonjour,

Je souhaiterais insérer un PDF qui est enregistrer sur mon bureau vers Outlook 2016 (office 365) mais je n'y parviens pas il ne sélectionne pas mon fichier PDF sur le bureau. Savez-vous comment faire ?

Merci d'avance,

Cordialement,

Mr.O

 

[Lone-wolf]

Bonsoir MR.O et bienvenue sur XLD

Cette ligne n'est pas correcte: .AddAttachment "C:\Users\SO250810\Desktop\commande transport " & v & ".pdf"

Vu que tu as ceci : doc = "C:\Users\SO250810\Desktop\commande transport " & v & ".pdf"

.Attachments.Add doc

EDIT: j'ai corrigé plus ou moins le code, ne sachant pas quelle feuille tu copie. Tu avais en plus deux fois l'ouverture d'outlook avec les même lignes.

 

[MR.O]

Lone-wolf,

Merci de ton accueil,
J'ai lancé le fichier mais j'ai toujours une erreur à .Attachement.Add il ne veux pas récupérer mon fichier PDF qui lui est bien enregistrer sous le bureau et Outlook ne c'est pas ouvert non plus.

 

[Lone-wolf]

Re

Quelle feuille tu copie?

 

[MR.O]

j'enregistre sous la feuille commande sous PDF

 

[Lone-wolf]

Re

ça je le sais, je veux savoir quelle feuille tu copie parce-que tu as Selection.Copy. Sur quelle feuille tu fait cette selection??

 

[MR.O]

Je sélectionne une ligne dans la feuille transport.

 

[Lone-wolf]

Re

Ok. J'ai vu. mais pourquoi ces lignes??

Selection.Copy
Sheets("carnet d'adresses").Select
Range("A90").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Que viens faire cette feuille dans l'histoire??

 

[MR.O]

C'est pour récupérer le nom du transporteur et les adresses mail associées. j'ai cependant remarqué une erreur c'est pas K90 mais I90.

 

[Lone-wolf]

Re

J'ai modifier la cellule du transporteur en la mettant en K1, en I1 c'est le numéro qui vient s'incrémenter. J'ai modifié aussi la macro pour inserer tous les destinataires dans Outlook, suivant le nom recherché. J'ai fait un test, pour moi c'est OK.

Note: n'inscrit rien en I1, le numéro s'affichera automatiquement.

 

[MR.O]

Re
Super cela fonctionne parfaitement, un grand merci pour ton aide on peux clôturer le sujet.

Merci encore,

Cordialement,

Mr.O