XL 2019 Exporter un label vers outlook en gardant la mise n forme du label

[carlos]

Bonjour,
j'ai un Label1 qui a la mise en forme suivante par exemple:
Lundi
--> Tomates
Jeudi
--> Salades

pour la mise à la ligne, j'ai utilisé CHR(10).
Lorsque j'exporte vers Outlook , la mise en forme disparait et tout se colle :
Lundi--> Tomates Jeudi--> Salades
Voici le code utilisé :
MonContenu = Feuil7.Range("A1").Value
Rq : la mise en forme de mon Label est bien conservée dans la cellule mais est perdue ensuite dans Outlook
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
Merci et bonne journée

 

[carlos]

Je précise que mon mon Label est exporté vers la cellule A1sans perte de mise en forme

 

[patricktoulon]

bonsoir
fait un replace de chr(10) par un vbcrlf
de quel app mail tu te sert ?
dans le mail tu l'envoie comment le corps du message en bodytext ou en bodyhtml

 

[carlos]

Bonjour patricktoulon, le forum,
J'ai remplacé mais c'est le même résultat.
Mon appli mail est Outlook 2019.
Voici le code :
Sub TestEnvoiEmail_Variables()
'par Excel-Malin.com ( https://excel-malin.com )

'définition des variables
Dim MonSujet As String
Dim MonDestinataire As String
Dim MonContenu As String
Dim MaPieceJointe As String
Dim f As Worksheet, p As Range, NomPDF$
Set f = Feuil7
Set p = f.Range("A1") '
chemin = ThisWorkbook.Path & "\AFL23\"
NomPDF = UserForm1.ListBox2.Value & ".pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
MonDestinataire = Range("D" & UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 1)).Value
Feuil7.Range("A1").Value = "METHODOLOGIE : " & vbCrLf & UserForm1.Methodologie.Caption _
& vbCrLf & "SOCIALE : " & vbCrLf & UserForm1.Sociales.Caption
MonContenu = "Bonjour " & UserForm1.ListBox2.Value & "," & vbCrLf & "Voici en piece jointe le bilan du travail réalisé " & vbCrLf & Feuil7.Range("A1").Value

MaPieceJointe = chemin & NomPDF

'test envoi de l'email
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
End Sub

 

[patricktoulon]

bonjour
heu je répète plus précisément puisque visiblement je n'ai pas été compris
si tu veux que l'on t'aide il nous faut tout!!!!!!!!!!!!!! le code
ou est la fonction EnvoyerEmail c'est elle qui nous interesse pas ton truc de cancat de texte

 

[carlos]

Bonjour,
désolé d'avoir tardé à répondre.
Voici le fichier.
Cordialement

 

[carlos]

Bonjour,
Est ce que c'est possible de conserver la mise en forme de mon label dans le corps de message d'Outlook.
Cordialement