Microsoft 365 Envoi mail : mise en forme du corps de mail

raf26 · 11 Avril 2020

Bonjour,

J'ai un fichier avec macro envoi mail.

Tout marche nickel.

Le corps du mail reprend des cellules de la feuille "joursferies" A42:A48.

La cellule A42 contiendra une valeur, les autres de A43:A48 pas forcément.

Comment faire pour que "Cordialement" soit affiché sous la dernière ligne remplie et non pas tout en bas si j'ai des cellules vides (par exemple si seules A42 et A43 sont remplies, "Cordialement" juste en dessous).

Actuellement, la macro positionne le mot "Cordialement" en bas du corps, après la valeur de A48, même si elle est vide et laisse un vide (voir la barre rouge sur la capture d'écran).

J'espère avoir été assez clair dans ma demande.

Ci-joint un fichier test épuré.

Bonne journée

Cordialement

Hasco · 11 Avril 2020

Bonjour,

Dans le fichier joint une toute petite fonction :

Code:

Private Function Extraire(c As Range) As String
    If c.Text <> "" Then Extraire = c.Text & "<BR><BR>"
End Function

puis ses appels pour construire la variable strBody :

VB:

 With Sheets("joursferies")
        strBody = "Bonjour,<br><br>Veuillez trouver en pièce jointe ma demande de congés pour" _
                & .Range("D45") & " : <br><br>"

        strBody = strBody _
                & Extraire(.Range("A42")) _
                & Extraire(.Range("A43")) _
                & Extraire(.Range("A44")) _
                & Extraire(.Range("A45")) _
                & Extraire(.Range("A46")) _
                & Extraire(.Range("A47")) _
                & Extraire(.Range("A48")) _
                & "Cordialement"

    End With

Je ne l'ai pas testé mais devrait fonctionner.

Cordialement

raf26 · 11 Avril 2020

Bonjour Roblochon

Merci pour ta solution, cela marche impeccable.

Bravo et encore merci

Bonne journée

Microsoft 365 Envoi mail : mise en forme du corps de mail

raf26

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Pièces jointes

raf26

XLDnaute Occasionnel

Discussions similaires