Discussion :

[Fabrice16ct]

Bonjour
Je suis novice un macro.
J’ai une macro qui fonctionne très bien et cela envoie un e-mail automatique avec Outlook via un tableau Excel
En Range(« A24 ») il engendre une liste de 1 ou 2, 3, 4 ou 5 lignes de texte via des formules de la cellule A24 de ma feuille Excel qui les récupère dans une autre feuille.
J’aimerais que quand le macro crée l’email automatiquement il y a un saut de ligne à chaque phrase en Range(« A24 ») (Minimum 1 phrase et maximum 5) dans le corps du E-mail.
Je sais pas si c’est possible j’ai regardé sur internet j’ai trouvé des explications pour le saut de ligne pour du texte écrit directement dans la macro, mais pas pour une cellule spécifique,(exemple pour moi) Range(« A24 »)
Est-ce qu’il y a un code spécifique à mettre avant ou après Range(« A24 ») pour avoir un saut de ligne entre chaque phrase dans le corps de mon email et de plus avoir une continuité de phrase l’une après l’autre.
Ci-joint le fichier et j'ai Microsoft Office 2019
Merci pour votre aide

[Franc]

Bonjour, voici une suggestion, dans ta portion de code .HTMLBody =, remplace & Range("A24") par & Replace(Range("A24"), ".", ".<br>")
Cela devrait ajouter un saut de ligne à la fin de chaque phrase se terminant par un point dans ta cellule "A24", en supposant qu'il n'y a pas d'autre point dans la phrase.

[Philippe Tulliez]

Bonjour,
Si vous avez inséré manuellement un ou plusieurs sauts à la ligne dans la cellule qui contient le texte à envoyer par mail, il suffit de remplacer celui-ci par la balise HTML soit pour le texte se trouvant par exemple en cellule A5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(Range("A5").Value, vbLf, "<BR>")

[Fabrice16ct]

Bonjour,
Si vous avez inséré manuellement un ou plusieurs sauts à la ligne dans la cellule qui contient le texte à envoyer par mail, il suffit de remplacer celui-ci par la balise HTML soit pour le texte se trouvant par exemple en cellule A5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(Range("A5").Value, vbLf, "<BR>")

Je me permets de profiter de vos naissances !
Dans mon mail automatique qui récupère le texte de deux cellules en Range("A22") et en Range("A23") qui sont parfois vides mais ça me met deux lignes vides dans le corps de mon mail automatique.
Est-ce que vous connaissez une formule pour éviter ces deux lignes vides dans le mail
Merci par avance

[Philippe Tulliez]

Bonjour,
Il suffit de n'écrire la ou les lignes qu'à condition que la cellule concernée soit remplie. Pour cela, vous pouvez utiliser la fonction Len

[Fabrice16ct]

Je suis complètement novice dans les macros, vous pouvez m'aider un peu plus SVP

[Fabrice16ct]

Bonjour et merci pour votre aide.
Oui cela fonctionne très bien mais hélas dans ma liste qui forme une phrase de plusieurs noms d’entreprises, il y a des entreprises qui ont des noms avec des points.
Ex A.B.C. ou C. DUPOND

[Fabrice16ct]

Merci à Franc et Philippe
Le code de Philippe est nickel et j'ai plus de problème de point.
Merci à vous deux