Discussion :

[julienDN]

Bonjour à tous,

Désolé si cette question a déjà été posée sur le forum mais je n'ai rien trouvé à ce sujet.

J'ai réalisé une macro sur Excel qui génère un mail automatique sur Outlook. J'ai réussi à insérer ma PJ avec .Attachments.Add ("chemin"). Mais, ma le chemin de ma PJ change car à chaque fois que je génère un nouveau mail, la PJ est également nouvelle. Comment réussir à ce que le chemin se mette à jour dans la macro pour pouvoir trouver la bonne PJ ?

Merci beaucoup pour votre aide à tous !

Julien

[Invité]

Bonjour,
tu génères ta pièce jointe juste avant l'envoi du mail ou lus tard et tu as perdus le lien ou c'est tu autre chose?

[julienDN]

Alors en fait je souhaite insérer en PJ une photo. A chaque mail (qui correspond à une réclamation) correspond une photo. Mais je ne sais pas comment associer ma réclamation et ma photo. Toutes mes photos sont nommées selon l'objet du mail automatique et sont toutes rangées dans un fichier.

[Invité]

il faut gérer ton message au format HTML!

http://www.developpez.net/forums/d68...e/#post4015775

ensuite il faut que tu établisses une règles de nommage entre ta demande et ton image!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Image=array("Image0.jpj","Image1.jp","Image2.jpj")
demande=0
debug.print "c:\mesImages\" &  Image(demande)

[julienDN]

Je suis tout nouveau sur les macros et VBA donc je ne suis pas sûr de comprendre mais je ne crois pas que ton astuce fonctionnerait.

En fait, je rentre dans une cellule mon numéro de réclamation, ce qui m'édite un mail auto dans une feuille Excel. Je copie l'objet du mail pour nommer la photo que je vais prendre et qui correspond à ma réclamation. Et enfin je veux que le chemin de l'image dans ma macro se mette automatiquement à jour avec le chemin comportant le nom de la photo qui correspond à la réclamation voulue.

Pas sûr que je sois bien clair

Voilà actuellement ma macro :


En espérant que la photo aide un peu...

Merci.

[Invité]

Bonjour,
ce n'est pas une astuce, c'est un exemple! je ne connais pas tes règle de nommages!

mais en revanche, tu écrits "chemin" hors ça ne ressemble pas un un nom de fichier, je présume que c'est un variable alors pas de ["]

.attachments.add chemin

[julienDN]

Non j'ai juste mis chemin comme ça.

Par exemple, pour ma réclamation n°100, la photo est nommée Réclamation n°100 - #Pb-1. Donc si dans ma macro je mets Attachments.Add ("U:\Réclamations\Réclamation n°100 - #Pb-1.JPG") ça fonctionne sans aucun souci.

Sauf que si après pour ma réclamation n°101, la photo est nommée Réclamation n°101 - #Pb-2, ce sera toujours la photo de la réclamation n°100 qui sera en PJ car c'est le chemin que j'ai inscrit manuellement dans la macro. Je cherche un moyen que le chemin se mette à jour automatiquement selon le numéro de réclamation.

J'ai dans le cellule A37 la chemin de ma photo qui se met à jour selon la réclamation grâce à une concaténation. Mais si dans ma macro j'inscris Attachments.Add ("Cells (37, 1)"), ça ne prend pas le texte en compte...

[halaster08]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attachments.Add ("Cells (37, 1)")

VBA interprète ce que tu met entre "" comme du texte, donc il ne va pas chercher ce que tu as mis dans ta cellule.
Si tu peux soit mettre les "" directement dans la cellule soit essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attachments.Add (""" & Cells (37, 1) & """)

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attachments.Add (chr(34 & Cells (37, 1) & chr(34))

desolé mais je ne comprends pas!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attachments.AddCells (37, 1)

http://www.developpez.net/forums/d14...t/#post7968025

[julienDN]

Merci beaucoup à vous, en effet cela fonctionne en supprimant les guillemets Attachments.Add Cells(37, 1).Value.

Bonne journée à vous.