Ajout d'un point virgule après une adresse email pour mailing
Fermé
isa74
-
20 sept. 2015 à 18:13
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 20 sept. 2015 à 19:33
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 20 sept. 2015 à 19:33
A voir également:
- Point virgule après adresse mail
- Darkino nouvelle adresse - Guide
- Rechercher ou entrer l'adresse - Guide
- Creer adresse mail outlook - Guide
- Yahoo mail - Guide
- Adresse mac - Guide
2 réponses
tyranausor
Messages postés
3545
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
1 avril 2022
2 031
20 sept. 2015 à 19:21
20 sept. 2015 à 19:21
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 20/09/2015 à 19:43
Modifié par Mike-31 le 20/09/2015 à 19:43
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.
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.
