Bonjour,
Ci-dessous un code inséré dans une macro un peu plus complexe pour envoyer un mail :
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'
On Error Resume Next
With OutMail
.To = "moi@coucou.com"
'.CC = copie_mail
'.BCC = ""
.Subject = "Frais CA-CIB à enregistrer par activité - " & mois_frais
.HTMLBody = "Bonjour,<br/><br/>" _
& "Vous trouverez ci-joints les frais pondérés par activité.<br>" _
& "Comme convenu, les données de <b>" & mois_frais & "</b> correspondent bien à une provision basée sur une estimation de ces frais.<br><br>" _
& "<u>SUIVI DES FRAIS :</u><br><br>" _
& "- Stock de créance cédées : <br>" _
& "- Bitumes = " & mont_crean_bitumes & ".<br>" _
& "- Carburants Pro = " & mont_crean_carpro & ".<br>" _
& "- Fuel Indus = " & mont_crean_fi & ".<br>" _
& "- Cartes GR = " & mont_crean_gr & ".<br>" _
& "- Montant cédé = " & mont_crean_tot & ".<br>" _
'.Attachments.Add("Cession et stock " & lib & "_" & annee_cession & ".xls")
.Display
End With
On Error GoTo 0
'
Set OutMail = Nothing
Set OutApp = Nothing
'
Toutes les variables étant définies au préalable dans des lignes de code précédentes.
Mon problème est que je voudrais bien que le texte à partir de "Bitumes " soit décalés de un ou plusieurs caractères par rapport au titre.
J'ai un peu tout essayé mais là je sèche....
Quelqu'un(e) à une idée ?
Merci !