Mise en forme données de Range ou cells dans HTML BODY

Version imprimable

Bonjour à tous,

Je me permets de vous solliciter à nouveau car nous avons une petite interrogation mon collègue et moi sur une macro de publipostage que nous avons récupéré et adapté à notre besoin.

En effet, nous souhaitons automatiser le corps du courriel envoyé. Celui ci doit varier en fonction du destinataire.
Le véritable problème est que nous ne parvenons pas à gérer la mise en forme final du corps du courriel dans Outlook lorsque la donnée provient d'une cellule. Cf la partie "HTMLBody" .

Exemple :
Code:

1 2 3 4 5 6 7 8 With Message .Subject = suj .BodyFormat = olFormatHTML .HTMLBody = ThisWorkbook.Worksheets(1).TextBox5.Text & Chr(10) & Chr(10) & "<HTML><body> &ThisWorkbook.Worksheets(1).Cells(1, 1).Text & </body><HTML>" .Recipients.Add (email) .Cc = emaila .Send End With
Avec l'exemple suivant : ThisWorkbook.Worksheets(1).Cells(1, 1).Text sera en gras et non pas le contenue de la celulle... Ce qui est embêtant.

Nous vous remercions pour le coup de main que vous pourrez nous apporter.

03/09/2015, 10h54
joe.levrai

Bonjour,

sauf erreur, il faut sortir ton .Text du String qui envoie les balises HTML ?

je ne peux pas tester là, mon Outlook est occupé en automation pour plusieurs heures

Code:

.HTMLBody = ThisWorkbook.Worksheets(1).TextBox5.Text & Chr(10) & Chr(10) & "<HTML><body>" & ThisWorkbook.Worksheets(1).Cells(1, 1).Text & "</body><HTML>"

Merci.

Effectivement ça marche très bien... j'ai un autre problème.

Peut être aurez vous également la réponse. Je ne parviens pas à sauter mes lignes lors de la création de ma signature.
Dans mon fichier j'ai créé des zones de texte avoir la diverses informations qui s'appelle ici " zt_...". Tout fonctionne bien sauf que les lignes ne sont pas sautées... avez vous une idée à ce sujet ?

Mon bout de code :
Code:

1 2 3 4 .HTMLBody = "<HTML><body>" & Cells(i, 1) & " " & Cells(i, 2) & " ," & Chr(10) & Chr(10) & "</body><HTML>" & ThisWorkbook.Worksheets(1).TextBox5.Text _ & Chr(10) & Chr(10) ThisWorkbook.Worksheets(1).zt_nomprenom.Text & Chr(10) & Chr(10) & ThisWorkbook.Worksheets(1).zt_mission.Text _ & Chr(10) & Chr(10) & ThisWorkbook.Worksheets(1).zt_structure.Text & Chr(10) & Chr(10) & ThisWorkbook.Worksheets(1).zt_unite.Text & Chr(10) & Chr(10) & ThisWorkbook.Worksheets(1).zt_tel.Text _ & Chr(10) & Chr(10) & ThisWorkbook.Worksheets(1).zt_adresse.Text
Mon résultat :

Mme x , (cells i,1) et cells (i,2)
Test : Pouvez vous me dire quels sont les fichiers reçus ? (le nom des fichiers) Et, si vous êtes le destinataire principal du courriel ou secondaire ? (contenue box5) Nom Prénom (contenu zt_prenom) Chargé de mission Région x Unité x / Service x Tél. xx xx

D'avance je vous remercie.

Code:

1
2
3
4
        .HTMLBody = "<HTML><body><b>" & Cells(i, 1) & " " & Cells(i, 2) & " ,<br><br><b></body><HTML>" & ThisWorkbook.Worksheets(1).TextBox5.Text _
        &  "<br><br>" & ThisWorkbook.Worksheets(1).zt_nomprenom.Text & "<br><br>" & ThisWorkbook.Worksheets(1).zt_mission.Text _
        &  "<br><br>" & ThisWorkbook.Worksheets(1).zt_structure.Text & "<br><br>" & ThisWorkbook.Worksheets(1).zt_unite.Text & Chr(10) & "<br>" & ThisWorkbook.Worksheets(1).zt_tel.Text _
        & "<br><br>" & ThisWorkbook.Worksheets(1).zt_adresse.Text

03/09/2015, 15h57
joe.levrai

Bonjour,

tu peux utiliser les balises html pour revenir à la ligne
03/09/2015, 16h56
jejeaunet75

Yes super.

J'arrive quasiment à ce que je veux et ceci grace à votre aide. Un grand merci à vous pour votre coup de pouce.

Dernière question. Comment puis je faire pour mettre en rouge cette partie ?

Je pense qu'avec ça, ça devrait aller :



Est ce le cas, si oui ou dois je le placer ?
03/09/2015, 17h08
Invité

Si tu place de double cote ["] dans ton code tu vas vers les ennuis! Alors qu'HTML accepte le simple quote.

Rare sont les balise ouvrantes qui ne dispose pa de balise fermante, ,étant une rare exception

Code:

toto

Effectivement, j'avais trouvé une solution quasi identique :

"" & ThisWorkbook.Worksheets(1).zt_adresse.Text & ""

Plus j'avance, plus je peine à comprendre l'HTML.

En effet, j'ai bien essayé d'enfermer une partie pour essayer d'obtenir du gras seulement dans l'écriture sur une partie du texte mais au final tout est gras...
Code:

1 2 3 4 5 .HTMLBody = "<HTML><body>" & Cells(i, 1) & " " & Cells(i, 2) & " , </body><HTML>" & ThisWorkbook.Worksheets(1).TextBox5.Text _ & " " & ThisWorkbook.Worksheets(1).zt_nomprenom.Text & " " & "" & ThisWorkbook.Worksheets(1).zt_mission.Text & "" _ & " " & ThisWorkbook.Worksheets(1).zt_structure.Text & " " & ThisWorkbook.Worksheets(1).zt_unite.Text & Chr(10) & " " & ThisWorkbook.Worksheets(1).zt_tel.Text _ & " " & "" & ThisWorkbook.Worksheets(1).zt_adresse.Text & "" .Recipients.Add (email)
Ici tout devient gras à partir du zt structure et je perds même les biens fait de la balise rouge et du gras pour mon zt_adresse.

D’où vient mon erreur car au final je pense avoir bien entouré ma valeur ThisWorkbook.Worksheets(1).zt_mission.Text ?

Merci d'avance de votre aide.

Tu n'aurais pas un en trop ?
Code:

1 2 3 4 5 .HTMLBody = "<HTML><body>" & Cells(i, 1) & " " & Cells(i, 2) & " , </body><HTML>" & ThisWorkbook.Worksheets(1).TextBox5.Text _ & " " & ThisWorkbook.Worksheets(1).zt_nomprenom.Text & " " & "" & ThisWorkbook.Worksheets(1).zt_mission.Text & "" _ & " " & ThisWorkbook.Worksheets(1).zt_structure.Text & " " & ThisWorkbook.Worksheets(1).zt_unite.Text & Chr(10) & " " & ThisWorkbook.Worksheets(1).zt_tel.Text _ & " " & "" & ThisWorkbook.Worksheets(1).zt_adresse.Text & "" .Recipients.Add (email)
Pour ne pas me mélanger les pinceaux (je suis pire qu'un débutant en la matière), j'ai toujours pris l'habitude d'utiliser le fermant avec le Slash

c'est plus lisible en relecture

Quand c'est vraiment une mise en forme complexe, tu peux également découper ton corps en plusieurs sous-variable String, que tu injectes ensuite dans ton HTMLBody

03/09/2015, 17h47
Invité
Cette balise là n'existe pas celle là oui c'est juste l'HTML5 qui veut ça!

Des l'instant ou tu utilise style, n'a plus de raison d'être
http://formation.upyupy.fr/style-css/proprietes-bloc/

"Pour information tout le texte doit être implémenter entre les balises body.

Vue que tu t'intéresse au feuilles de style tu pourrais utiliser les balises paragraphe
Code:

1 2 3 4 5 6 7 8 9 10 11 <body style='{}'> <style> .Rd {color:red; font-weight : Bold;} </style> toto titi tutu Rdurupt </body>
La balise paragraphe fait le retour à a la ligne et vue que style gère les interlignes, tu fais la mise en page que tu veux!
04/09/2015, 08h01
joe.levrai

Pourtant j'ai un code avec des qui fonctionne bien ? 8O

il me semblait que les deux étaient possibles ?
04/09/2015, 08h08
Invité

1 pièce(s) jointe(s)

Bonjour Joe,
Moi je me contente de , Drimwever te le dirait!

Pour la mise en page tu peux télécharger topstyle et recopier sa mise en forme comme dans l'exemple class rd!
Pièce jointe 187127
04/09/2015, 10h47
jejeaunet75

Merci à tous les deux pour votre aide.

De cette manière je suis parvenu à faire ce que je souhaitais !

Bonne journée à vous.
04/09/2015, 11h49
Invité

explique comment pour les internautes qui auraient le même problème et intéressés par ta solution!

que les déboires des un servent aux autres!
04/09/2015, 14h32
jejeaunet75

Re bonjour,

Alors voici une première solution que nous avons trouvé :

Code:

.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute

Comme ma mise en forme était pour insérer la signature, nous avons utilisé cette commande.

La deuxième méthode était bien d'utiliser ce que vous m'aviez transmis hier et de faire attention à bien placer mon "" pour conclure ma mise en forme sur la phrase que je souhaitais mettre en forme.

Mon collègue s'est également rendu compte d'un problème auquel nous n'avions pas été confronté avant d'utiliser le HTML. En effet, au sein de la textbox nous avons une mise en forme très simple (des lignes sautées). Lors de l'envoi du courriel, les lignes sautées disparaissent et nous avons au final un contenu d'un seul block assez moche..

**** Voici le format que nous avons dans notre texte présent dans la textbox ***

Test :

Pouvez vous me dire quels sont les fichiers reçus ? (le nom des fichiers)
Et, si vous êtes le destinataire principal du courriel ou secondaire ?

*** Voici ce que nous recevons par email ****

Test : Pouvez vous me dire quels sont les fichiers reçus ? (le nom des fichiers) Et, si vous êtes le destinataire principal du courriel ou secondaire ?

Comment faire pour au final que la mise en forme de cette textbox soit conservée dans l'envoi de mon mail ? Y a-t-il une option spéciale à rajouter ?