XL 2010 Macro VBA envoi mail + pièce jointes

[saoudi]

Bonjour à tous,

je souhaite créer une macro qui me permettrait d'envoyer un mail de base à plusieurs personnes ( des personnes en destinataire, d'autre en cc) ayant pour chaque personne une pièce jointe différente..
Pouvez-vous svp m'aider? J'ai essayé de créer une macro mais elle ne fonctionne pas
Les différents fichiers à envoyer aux destinataires sont sur un réseau commun.



merci par avance

 

[fhoest]

Bonjour,
à première vu il manque .send pour l'envoi.
j'ai regardé vite fait donc si ç'est pas ça je regarderai en détail.
A bientôt.

 

[saoudi]

Un grand merci pour ta rapidité !
L'erreur affichée est "erreur de compilation" dès le début au niveau du "sub envoiemail"..

 

[fhoest]

Que veux tu dire par la :

.Attachments.Add "R:\Envoi controle budgetaire\OUT 2020-08\Pour envoi" & Lien
ActiveWorkbook.Path 'ici pourquoi ça ??

Activeworkbook.Path ne fait pas partie de l'objet donc cela retourne une erreur c'est normale.

 

[saoudi]

il s'agit de l'endroit (réseau commun) ou le fichier se trouve.
C'est certain, que j'ai fais beaucoup d'erreur dans le codage...

Merci pour ton aide

 

[fhoest]

Merci, je sais ce que veux dire cette instruction, ma question n'était pas de savoir ce que voulais dire cette ligne, mais pourquoi le ActiveWorkbook est la entre le with et End with
la variable lien = address ? donc l'attachement est ok ? non ?
si tu enlève l'instruction act...path ça doit fonctionner.
et mettre

.Attachments.Add  Lien

A+

 

[saoudi]

La macro fonctionne je vous remercie !!!!

Dernière question, j'ai quand même un message d'erreur " l'indice n'appartient pas à la sélection" à chaque fois qui me renvoie à cette ligne "Lien = Range("C" & Ligne).Hyperlinks(1).Address"

 

[fhoest]

Oui
est ce que la ligne = 4 et C4 = "" dans ce cas il y a une erreur car pas de lien.
c'est ce que je pense.
il faut tester avant si non vide.
A+

 

[saoudi]

C'est parfait ! Ca fonctionne, un grand merci à vous ! 🙂