Macro pour regroupements d'email pour mailing en CCI

Question

Je voudrais savoir comment je peux envoyer un email à tous mes clients à partir d'un fichier excel, sachant que ce fichier contient plusieurs feuilles dont chaque feuille contient plusierus clients?? en fait, je voudrais créer une macro qui va chercher dans les colonnes C de chaque feuille du fichier xls les adresses mail et les réunit, soit dans un fichier txt, ou une cellule du fichier xls. Puis je copie colle le tout dans un mail en CCi.Donc ce qui doit être automatisé est simplement la réunion de tout ces mails dans un même endroit. mais comme je suis débutante en Excel , j'arrive pas à trouver la solution!!!! NB: j'utilise un webmail et non pas outlook! comment dois-je faire car j'en ai urgemment besoin dans mon travail ? Sos,une personne pourrais m'aidé svp ,je suis désespérée Merci Beaucoup les amis...

Yvouille · Answer

Saut Cyrina,

Je pense que l'étape suivante serait de préparer automatiquement un courriel avec toutes les adresses trouvées, mais ça je ne suis pas sur de savoir le faire.

Si personne ne se manifeste et que tu en aurais vraiment besoin, je peux éventuellement essayer.

Dans un premier temps, je pense quand même avoir répondu à ta première demande.

cyrina a écrit :
Donc ce qui doit être automatisé est simplement la réunion de tout ces mails dans un même endroit.

Bonnes saluations.

NB : J'ai tenté d'envoyer un courriel avec ce regroupement d'adresses, mais il m'est revenu en retour

59courriels.zip (15.38 Ko)

Yvouille · Answer

Il faut absolument que tu voies mon fichier, car je te l'ai déjà fournie, ta solution A te relire...

Yvouille · Answer

Ma macro tient compte des lignes vides (as-tu seulement bien observé mon exemple, c'est tellement évident )

Il est toujours délicat de travailler sans le fichier réel. Place ton fichier sur le forum, s'il te plait, après y avoir enlevé les données confidentielles mais dans sa structure réelle ; il faut que l'on puisse voir si toutes les pages sont identiques, s'il y a des lignes de titre, des lignes vides, etc.

A te relire.

NB : il est inutile de citer l'entièreté des textes précédents ; ils sont toujours à disposition. Ca rend tes demandes un peu compliquées à comprendre.

Yvouille · Answer

Pourquoi t'entêtes-tu à citer toute la réponse précédente, alors qu'elle est à disposition juste au dessus ? En un mois, tu as quand même eu le temps de lire mon texte, non ? Dans ton tout premier message, tu parlais d'un fichier .xls alors que tu m'as fourni maintenant un fichier .xlsx ; les macros ne fonctionnent pas avec un tel fichier. Dans ton tout premier message, tu disais que tu avais des adresses dans ta colonne C, sans préciser qu'il y avait un titre. Pour un code VBA, ça fait une sacrée différence Voici ton fichier en retour, transformé en .xlsm. Dis-moi quoi (sans citer l'entièreté du présent message, s'il-te-plait !)...

Yvouille · Answer

Re,

J'ai renommé ma première feuille - celle sur laquelle j'ai placé mon bouton - Xxxxx et ai modifié mon code de la manière suivante :

Sub Adresses_électroniques()

Dim Feuille As Worksheet, DerLigC As Integer, DerligG As Integer, i As Integer, j As Integer

Application.ScreenUpdating = False
Range("J1").ClearContents

    For j = 1 To Sheets.Count
            Sheets(j).Activate
            DerLigC = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
            For i = 2 To DerLigC
                Range("C" & i).Select
                    If ActiveCell <> "" Then
                        If Sheets("Xxxxx").Range("J1") = "" Then
                            Sheets("Xxxxx").Range("J1") = ActiveCell.Value
                        Else
                            Sheets("Xxxxx").Range("J1") = Sheets("Xxxxx").Range("J1") & "; " & ActiveCell.Value
                        End If
                    End If
            Next
    Next
Sheets("Xxxxx").Select
Range("A1").Select

End Sub

Modifie le code de la même manière en fonction du nom de ta feuille et ça devrait passer

A te relire

42cyrina-v3.xlsm (20.31 Ko)