Bonsoir,
Grace à Halaster, j'ai pu résoudre mon premier problème:
https://www.developpez.net/forums/d2...ers-via-macro/
à savoir scinder ma base fournisseur en onglets.
maintenant j'aimerais que ma seconde macro aille chercher le contenu de chaque onglet qui à été extrait avec les données de chaque fournisseur et les incorpore dans un email.
ci dessous ma macro pour le moment :
Cette macro fonctionne déjà en partie,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Option Explicit Private Sub CreateHTMLMail() Dim objMail As Variant Dim Ligne As Integer Dim Fichier As Variant 'ajout d'un fichier en Pièce jointe Fichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer") If Fichier = "" Then MsgBox "Aucun fichier sélectionné, Opération annulée" End If Set objMail = CreateObject("Outlook.Application") 'creation d'un objet Outlook For Ligne = 9 To 40 'Taille de la bdd mail With objMail.CreateItem(olMailItem) 'données du mail .Attachments.Add Fichier .Subject = Range("f8") & Range("b" & Ligne) .To = Range("c" & Ligne) .Body = Range("f10") .Display End With Next Ligne End Sub
J'aimerais surtout modifier la partie qui construit le corps du mail.
en gros il faut que
.Body = Range("F10") ' texte générique
' puis intégrer le contenu de l'onglet extrait précédemment.
' intégration de ma signture outlook (si possible)
Avez vous des suggestions ?
merci d'avance,
Nicolas
Partager