Bonjour
Essayez ceci
Private Sub CommandButton5_Click() Dim DoubleCrLf as String = Chr(13) & Chr(10) & Chr(13) & Chr(10) ' 2 CrLF Dim Procedure as String = "Procédure tapis rouge à XXXX début " & TextBox16.Value Dim Information as String = "Information donnée par la tour de XXXX " Dim Lemail As Variant Set Lemail = CreateObject("Outlook.Application") With Lemail.CreateItem(olMailItem) If TextBox17.Value <> "" Then ' si la TextBox est vide .Body = "Monsieur," & DoubleCrLf & Procedure & " pas d'heure de fin estimée. " & Information & DoubleCrLf & "Respectueusement," Else ' si une heure a été définie .Body = "Monsieur," & DoubleCrLf & Procedure & " fin estimée " & TextBox17.Value & " " & Information" & DoubleCrLf & "Respectueusement," End If .Subject = "Procédure Tapis Rouge" .To = Range("C6") .Display End With End Sub
J'ai finalement trouvé la solution en revenant à la ligne à chaque fois pour définir la valeur.
Merci
19 sept. 2022 à 10:49
Bonjour, merci de votre réponse.
Lorsque je rentre le code pour les 3 premières lignes, elles passent en rouge et un boite de dialogue qui indique "Erreur de compilation: Attendu: fin d'instruction.
Je cherche à comprendre d’où cela peut venir mais pour l'instant sans succès