Créer espaces dans le .BODY (VBA)

Bonjour à tous,

J'ai créer un code seulement je souhaiterais ne pas avoir les caractère collés dans la partie ".Body". J'ai utilisé &VbNewLine mais cela me crée un saut à la ligne.

Sub EnvoiParMailRELANCE1()

 Dim ObjOutlook As New Outlook.Application
 Dim oBjMail
 Dim Nom(1 To 2000) As String
 Dim Mail(1 To 2000) As String
 Dim i As Integer
 Dim FL As Range

Windows("Fichier executeur").Activate

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    If cell.Value Like "?*@?*" Then

    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = cell.Value
        .Subject = "Rappel heures non imputées"
        .CC = "************"
        .Body = "Bonjour" & vbNewLine & Cells(cell.Row, "A").Value & vbNewLine & vbNewLine & _
                "Selon le fichier extraction du" & Cells(cell.Row, "D").Value & "vous avez" & Cells(cell.Row, "C").Value & "heures non imputées" & vbNewLine & vbNewLine & _
                "Vous en souhaitant bonne réception." & vbNewLine & vbNewLine & _
                "Nouun"

    .display
 End With
 On Error GoTo 0
 Set OutMail = Nothing
 End If
 Next cell

Bonjour,

Quand vous dites collé c'est espace/tabulation ?

Si espace alors simplement mettre un espace à droite et gauche de votre texte :

.Body = "Bonjour " & Cells(cell.Row, "A").Value & vbNewLine & vbNewLine & _
                "Selon le fichier extraction du " & Cells(cell.Row, "D").Value & " vous avez " & Cells(cell.Row, "C").Value & " heures non imputées " & vbNewLine & vbNewLine & _
                "Vous en souhaitant bonne réception." & vbNewLine & vbNewLine & _
                "Nouun"

Cdlt,

Bonjour Ergotamine,

Merci pour votre réponse.

Par exemple, le message que je souhaiterais avoir est: (vous avez 200 heures). Or, lorsque j'exécute le code, j'ai comme résultat : (vousavez200heures).

Pour effectuer un espace entre les mots j'ai utilisé (vbNewLine). Existe t'il un autre moyen d'y parvenir svp?

Cordialement

Bonjour,

Avec le code donné vous aurez le bon résultat. Il suffit d'intégrer un espace en fin de texte avant le renvoi de la valeur comme je l'ai fait.

Cdlt,

merci !