adresse internet

[Bruce68]

Bonsoir à tous

Je recherche à faire une macro pour recuperer tout ce qui se trouve après le @ en sachant que le nombre de lettre peut varier d' une adresse à l'autre et mettre un point devant .
ceci servira à initialer = .SMTP.free.fr, .SMTP.evhr.net etc....

Je vous remercie de votre aide

 

[gbinforme]

Re : adresse internet

Bonjour,

Sans macro avec une formule basique et ton adresse en A1 :

="."&DROITE(A1;NBCAR(A1)-TROUVE("@";A1))

Tu peux tirer la formule sur la colonne.

 

[Bruce68]

Re : adresse internet

Bonsoir gbinforme

Merci pour la formule cela fonctionne bien

Maintenant j'ai un 2° probleme:

C'est une macro pour expédier la feuil1 par mail en la transformant en fichier PDF, le destinataire est dans la macro ainsi que le SMTP.evhr.net
J'ai cree un combobox pour pouvoir choisir mon destinataire et de l'intégrer dans la macro par l'intermédiaire d'une variable "Mail" et de recuperer ce qui se trouve apres @ de l'adresse mail et de l'integrer également dans la macro par une variable "X".
J'ai déclarer "Mail" en Public (dans le module1) mais cela ne fonctionne pas.
Voir le fichier joint.
Je vous remercie de toute votre aide

 

[mutzik]

Re : adresse internet

bonjour

essaie :

Public Mail As String

Sub Envoi_Feuil_Excel_en_PDF()
UserForm1.Show
Dim messageHTML

et change le m par Mail

 

[Bruce68]

Re : adresse internet

Bonjour muytzik et le forum

Merci pour la réponse mais cela ne fonctionne pas .
Apres le choix dans le combobox la macro ne continue pas il faut refermer l'userform et là l'adresse se trouvant dans la variable Mail Public disparait.
Si quelqu'un a une utre idée je suis preneur
Je vous remercie de toute votre aide

 

[mutzik]

Re : adresse internet

re,

il ne faut pas lancer l'USF, il faut lancer la macro qui elle va lancer l'USF, et en tous cas, cela fonctionne chez moi
et ne pas oublier le public ... dans le code

 

[Bruce68]

Re : adresse internet

Bonjour mutzik et le forum

effectivement cela fonctionne merci beaucoup

Dans l' adresse internet il faut récupérer le Smtp se trouvant en Feuil2 col B et le mettre dans la variable "Serveur"

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur

De meme je voudrais mettre 3 commentaires l'un endessous de l'autre dans la ligne de code ci dessous avec 3 MgBox

Message1;Message2;Message3

objMessage.TextBody = message1 & vbCrLf & message2 & vbCrLf & message3

Merci pour toute votre aide

Ci joint fichier modifier

 

[Bruce68]

Re : adresse internet

Bonjour à tous

Pour ceux que cela intéresse voici le fichier terminé pour envoyer une feuille par mail au format PDF avec:

-Une liste d'adresse à compléter
-Choix du destinataire par un combobox.
-La possibilité de mettre 3 messages dans le mail avec InputBox