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 :

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
Cette macro fonctionne déjà en partie,

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