insérer à une ligne du code

[Laurent]

Bonjour,

Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un bouton :

Ex : Userform1 avec Texbox1 et un bouton.

Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.

Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un
mail automatique avec Lotus notes.
Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style :
If TextBox1.Value = 'LG' Then MailDoc.sento = 'lg@wanadoo.fr'
Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer
le mail, il faut que l'adresse du destinataire doit déjà être inscrite.


Si quelqu'un peut m'aider.

Merci

Laurent

 

[WILFRIED]

Salut laurent,

Pourquoi ne pas utilisé une feuille masqué comme bibliotéque d'addresse, ainsi tu n'aurait pas le problème de devoir insérer une ligne de code dans le code, il te suffirait de faire une boucle de recherche dans ta liste :
-Si tu trouve le correspondant alors une varialbe recopie l'adresse mail.

-Si non tu demande de renseigner l'adresse, et tu la rajoute à ta liste, une sauvegarde auto et le tour est jouer.

tu remasque ta feuille aprés la recherche et en utilisant les screenupdating=true et false, ton utilisateur n'as rien vu.

ni vu ni connu!!!!

Si tu met un exemple de ton usf je peut t'inserer le code si tu veut.

A+

 

[PascalXLD]

Bonjour

Autre possibilité

tu peux passer par une variable que tu as déclaré public dans un module avant toute procédure

Public MonAdresseMail as string

et ton code devient

If TextBox1.Value = 'LG' Then MonAdresseMail = 'lg@wanadoo.fr'

et dans ton module 1

MailDoc.sento = MonAdresseMail

Bon courage

Message édité par: Pascal76, à: 04/03/2005 09:32