Erreur du corps du mail dans une macro outlook

Salut a tous

J'ai une erreur qui s'affiche dans le corps de mon mail dans une procédure d'envoi de mail, le code du body se place en premier avant le contenu qui est renseigné automatiquement.

Or, tout le reste fonctionne normalement

Sub Mail_topo()

Dim Monoutlook As New Outlook.application
Dim Monmessage As Object

Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)

Set Monoutlook = Nothing

    With Monmessage
        .To = "robert@smith.com "
        .Cc = "david@bowie.com"
        .Subject = "MonSujet"
        .body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
        .Attachments.Add "C:\Users\... "
        .OriginatorDeliveryReportRequested = True
        .ReadReceiptRequested = False
        .display
    End With

    Application.Wait (Now + TimeValue("0:00:04"))
    SendKeys "^v", True
    Application.CutCopyMode = False

End Sub

Et le code se place tel quel

Ton sujet est-il résolu ? car il est coché ...

Sinon, je ne vois pas le contenu "renseigné automatiquement." que tu évoques !

Oui @Steelson il est résolu j'avais oublié d'enlever les 3 lignes

    Application.Wait (Now + TimeValue("0:00:04"))
    SendKeys "^v", True
    Application.CutCopyMode = False

qui étaient en trop..

Par contre j'ai une autre petite erreur qui me tracasse concernant "une propriété non géré par l'objet" au niveau du "With Sheets..." (pour pas faire un autre sujet). Même en essayant avec plusieurs With ou des AND entre les différents choix ca ne marche pas.

Sub Mise_en_PDF()

Dim fichier As String

Date_F = Format(Date, "ddmmmm_")
With Sheets("MATIN", "AM", "NUIT", "TOTAL JOURNEE")
fichier = "\" & Date_F & .Range("B7") & ".pdf"
dossier = "C:\Users\PJFK659\Desktop\PDF Tableaux extractions"
Chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End With

End Sub

Ah ! je n'ai jamais essayé les with sheets multiples ... ma question est "qu'est-ce que tu veux faire" ? car tu appelles .Range("B7") normalement sur la feuille considérée, mais l il y en a plusieurs !

C'est un code que j'ai récupéré du coup il y a des trucs dont je sais pas forcement leur signification et leur impact sur mon code...

Je souhaite sortir 4 onglets en format PDF et les enregistrer dans un dossier de mon bureau "PDF Tableaux Extractions", j'ai trouvé plusieurs procédures mais je ne sais comment les adapter

On n'est donc plus du tout dans le même sujet !

Essaie ceci pour exporter tes onglets :

Sub Mise_en_PDF()

    Date_F = Format(Date, "ddmmmm_")
    Sheets(Array("MATIN", "AM", "NUIT", "TOTAL JOURNEE")).Select
    fichier = "\" & Date_F & "essai" & ".pdf"
    dossier = "C:\Users\Michel\Desktop"
    Chemin = dossier & fichier
    Sheets(Array("MATIN", "AM", "NUIT", "TOTAL JOURNEE")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

à adapter (notamment je n'ai pas compris ton Range("B7") ! sur quelle feuille ?

Niquel ! Une fois adapté il marche bien merci @Steelson