Récupérer texte textbox dans une variable
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:
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:
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.
