Ajout Signature VBA

Bonjour la communauté étant débutant dans le VBA

Je voudrais savoir pourquoi je n'arrive pas à intégrer ma signature dans mon mail

j'ai essaye plusieurs solutions soit je n'ai que la signature soit j'ai que le corps de mon mail

Voici mon VBA pour l'envoi de mon mail

Private Sub CommandButton1_Click()
Dim Fichier As String

Fichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
MsgBox Fichier

Dim Fichier2 As String
Fichier2 = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")

MsgBox Fichier2
Dim MaMessagerie As Variant

Set MaMessagerie = CreateObject("Outlook.Application") 'création d'un objet Outlook

With MaMessagerie.CreateItem(olMailItem)
.Display
.To = Range("A4")
.CC = Range("B4")
.BCC = Range("C4")
.Attachments.Add Fichier
.Attachments.Add Fichier2
.Subject = Range("D4")
.Body = Range("E4")
.Display

End With
End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Merci de vos reponses et de votre aide

Bonjour Kevin42560 et

Une petite présentation ICI serait la bienvenue

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] ainsi que ses fonctionnalités
qui vous aideront dans vos demandes et réponses sur ce forum et notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité (bouton) </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

Merci de votre participation

Concernant votre demande, il faut afficher le mail au début pour avoir la signature comme vous l'avez fait, mais ensuite l'intégré au Body

.Body = Range("E4") & .Body

Cordialement

Bonjour

Merci de votre réponse

Mais ayant une image dans ma signature

Celle ci n'apparaît pas

Re,

C'est normal vous avez mis initialement ".Body" tout seul, donc du texte pur

Si vous avez une image, il faut alors que votre mail soit au format HTML

.HtmlBody = Range("E4") & .HtmlBody

A+

Merci

Alors quand je fais cette manipulation

Mon texte contenu dans la cellule E4 disparaît de mon mail

Je n'ai que ma signature et plus le corps de mon mail

Re,

Navré mais ce code fonctionne chez moi

Option Explicit

Const olMailItem As Integer = 0

Sub Test()
  Dim MaMessagerie As Object
  Dim Fichier As String
  Dim Fichier2 As String
  'Fichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
  'MsgBox Fichier
  'Fichier2 = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
  'MsgBox Fichier2

  Set MaMessagerie = CreateObject("Outlook.Application") 'création d'un objet Outlook
  With MaMessagerie.CreateItem(olMailItem)
    .Display
    .To = Range("A4")
    .CC = Range("B4")
    .BCC = Range("C4")
    '.Attachments.Add Fichier
    '.Attachments.Add Fichier2
    .Subject = Range("D4")
    .HtmlBody = Range("E4").Value & .HtmlBody
    .Display
  End With
End Sub

A+

Merci beaucoup pour votre aide je viens de comprendre mon erreur il manquait le terme .Value a coté de la derniere ligne

J'ai d'autres questions

mon mail ne comporte que 2 pieces jointes comment faire pour que je puisse choisir un nombre illimite de fichiers?

et mon autre question est comment faire comprendre que je veux garder la même disposition de texte d'Excel à Outlook

merci pour vos réponses

Re,

Autres questions autre fil SVP

Vous pouvez clôturer celui-ci

A+