Discussion :

[Luc Brunot]

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.

[goldstar]

Bonjour,

Il faur déclarer la variable body en Public dans un module pour pouvoir la récupérer dans la procédure d'envoi du mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public body  as string

[Luc Brunot]

Merci à celui qui m'a répondu.

C'est bon.