Ajout d'un point virgule après une adresse email pour mailing Fermé

Question

Bonjour, 


je dispose d'une 'mailing list' composé d'adresses emails placées chacun dans une ligne
différente. Seulement, je ne peux pas l'exploiter tel quelle car il manque le séparateur qui permet d'envoyer son message à chacun des destinataires.

Je souhaiterai donc ajouter un point virgule après chaque adresse email.

Je crois savoir qu'il existe un script qu permet d'ajouter le ";" au bout de chaque ligne,
il faut mettre le signe";" en colonne 2 puis appliquer une macro.

Si vous pouviez me communiquer une macro compatible pour Office 2007, 2010 ou 2013, voir 2015 ce serait bien aimable.

Merci bien !

tyranausor · Answer

Bonjour, rien de bien compliqué pour programmer la macro. Tu mets en route l'enregistreur en effectuant tout ce que tu fais pour la récupération des adresses mail de chaque destinataire et, à la fin, tu auras ton code.

Mike-31 · Answer

Bonsoir, si ta base de données est sur Excel et tes adresses mails colonne A et B de A2 à B20 tu peux commencer par ce code dans lequel j'ai inséré un détecter de point virgule pour éviter qu'il ne soit doublé Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 20 If Cells(i, 1) <> "" And Right(Cells(i, 1), 1) <> ";" Then Cells(i, 1) = Cells(i, 1) & ";" If Cells(i, 2) <> "" And Right(Cells(i, 2), 1) <> ";" Then Cells(i, 2) = Cells(i, 2) & ";" Next End Sub A+ Mike-31 Une période d'échec est un moment rêvé pour semer les graines du savoir.

Ajout d'un point virgule après une adresse email pour mailing

2 réponses

Discussions similaires