Discussion :

[arkhang]

Bonjour !

Je réalise un traitement de préparation de mail (sous Lotus) et j'ai pour consigne de laisser libre choix au corps du mail.
Je passe donc par un userform, et un textbox mais voici ma question.
Est-il possible de renseigner du texte (Mail typique du genre "Bonjour, vous trouverez ci-joint blablabla ..").
Quand je le fais :

Code :

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

1
2
3
4
Private Sub CorpsMail_Change()
CorpsMail.MultiLine = True
CorpsMail.Text = "Bonjour," & vbCrLf & vbCrLf & vbCrLf & "vous trouverez ci-joint les fichiers du mois de paie vous concernant."
End Sub

Tout d'abord le texte ne s'affiche que lorsque j'appuie sur le clavier, et la textbox devient non modifiable alors que ma propriété Enable est à true.

Y a-t-il solution à mon problème ?

Merci d'avance !

Cdt, arkhang.

[SfJ5Rpw8]

Bonjour,

il semble que tu n'est pas utilisé le bon événement... si ton textbox et sur une Userform, un peu de lecture :

http://silkyroad.developpez.com/VBA/UserForm/#LIV

[arkhang]

Humm merci bien, j'ai bcp lu ! lol

Mais si j'ai bien compris, cela se passe donc dans initialize ?

Code :

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

1
2
3
4
5
6
 
Private Sub TxtMail_Initialize()
 
LblMail.Text = "Bonjour," & vbCrLf & vbCrLf & vbCrLf & "vous trouverez ci-joint les fichiers du mois de paie vous concernant."
 
End Sub

(LblMail fait réference à ma textbox)
J'ai essayé .value ou .text, mais cette fois ça ne me met plus du tout le texte, ça me laisse le champs vierge

[arkhang]

C'est réglé !

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
 
LblMail = "Bonjour," & vbCrLf & vbCrLf & vbCrLf & "vous trouverez ci-joint les fichiers du mois de paie vous concernant."
 
 
End Sub

µMerci !