Bonjour,

Je commence juste avec VBA et je galère depuis des heures pour récupérer du texte entré dans une text box afin de l'affecter dans une variable utilisée dans une procédure sub. J'ai essayé plusieurs syntaxes en vain.

L'objectif est de saisir le texte d'un e-mail pour l'envoi de celui-ci.

Le texte est à entrer dns la variable body

Le code pour l'envoi de l'email est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Email()
    Dim destinataire, destinataireBCC, sujet, numero As String
    destinataire = "xxx@wanadoo.fr"
    destinataireBCC = "xxx"
    numero = InputBox("Numéro ?", "Numéro de l'envoi")
    sujet = "Envoi n°" & numero
    UserForm1.Show vbModal
    strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
    strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
    strcommand = strcommand & "," & "bcc='" & destinataireBCC & "'"
    strcommand = strcommand & "," & "subject=" & sujet & ","
    strcommand = strcommand & "body=" & body
    MsgBox strcommand
    Call Shell(strcommand, vbNormalFocus)
End Sub
Et voici le code créé pour le Userform :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub BoiteTexte_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
    body = BoiteTexte.Value
    Unload Me
End Sub
 
Private Sub UserForm_Click()
 
End Sub
L'e-mail est bien généré mais ne prend pas en compte le texte entré dans la textbox.

Est-ce le "body = BoiteTexte.Value" qui est en cause et qu'il faudrait remplacer ?

Cordialement.