Bonjour,
Je sollicite votre aide pour avoir une marche à suivre la plus efficace possible
1-
J'ai dans un tableau 3 colonnes. on va simplifier en disant une colonne nom une colonne prenom et une colonne lieu
la finalité => Je souhaite pouvoir obtenir dans le corps d'un email tous les noms et prénoms qui appartiennent au même lieu.
je suis donc parti sur ce principe mais il y a peut être plus simple c'est pourquoi je vous demande une marche à suivre svp:
je fais ma recherche ligne a ligne et j'ajoute dans un tableau aje crée b par un split et j'ajoute le résultat à un dictionnaire d
Code : Sélectionner tout - Visualiser dans une fenêtre à part nom & "-" & prenom & "/" & lieu
ensuite je mets mes elements et clé du dictionanire dans des tableaux c et c1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 For i = 0 To UBound(a) b() = Split(a(i), "/", , vbTextCompare) d.Add b(0), b(1) Next i
première question au passage pour ma culture, est ce que je peux transférer les éléments et clés du dictionnaire dans un seul et même tableau à 2 dimensions?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 c() = d.items c1() = d.Keys
ensuite je veux mettre ce tableau dans le corps du mail pour un lieu donnée
et la je ne sais pas comment faire car j'arrive pas à intégrer un tableau dans un corps de mail via ce code:
avec ce code en principale tester pour un tableau au piff à une dimension
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Mail(Sujet As String, Message As String, Destinataire As String, Optional DestinataireCopy As String, Optional DestinataireCopyCacher As String, Optional Pj As String = "") Set objOutlook = CreateObject("Outlook.application") Set MailObj = objOutlook.CreateItem(olMailItem) With MailObj .To = Destinataire .CC = DestinataireCopy .BCC = DestinataireCopyCacher .Subject = Sujet .BodyFormat = 2 .HTMLBody = Message .display End With End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 sub Main() Mail application.transpose(a),"Destinataire@gmail.com" End Sub
Avez-vous une autre approche plus simple à me proposer ? ou est ce que je suis plutôt pas mal en m'orientant comme ceci?
merci d'avance
Bonne journée
Partager