Bonjour,
Mon code ci-dessous fonctionne chez moi.à coller dans le code du bouton du formulaire
A tester
Amicalement
Pierrot
Private Sub CommandButton7_Click() ' bouton dans le formulaire
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = TextBox7.Value
'C_Cachee = Range("A1")
Subj = "Personnel : "
'Msg = Msg & "Bonjour " & ",%0D%0A %0D%0A"
'Msg = Msg & " VOICI LE MAIL VIA TEXTBOX " & "%0D%0A %0D%0A"
' Msg = Msg & "Cordialement," & "%0D%0A" & "Et1000lio" & "%0D%0A" & "Nom Entreprise" & "%0D%0A" & "Adesse 1" & "%0D%0A" & "Adresse 2" & "%0D%0A" & "Tel. O2 00 00 00 00" & "%0D%0A"" & ""%0D%0A"
'Msg = Msg & "Cordialement," & "%0D%0A" & "Et1000lio" & "%0D%0A" & "Nom Entreprise" & "%0D%0A" & "Adesse 1" & "%0D%0A" & "Adresse 2" & "%0D%0A" & "Tel. O2 00 00 00 00" & "%0D%0A"" & ""%0D%0A"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg '& "&Cc=" ' & "&Bcc=" '& 'C_Cachee
ActiveWorkbook.FollowHyperlink Address:=URLto
'Range("A1").Select
Unload Me
End Sub