Tranformer les adresse courriel en adresse url

Bonjour,

Je n'arrive pas à trouver le bonne information alors je me permet de demander votre aide.

J'ai une base de données avec liste d'adresse courriel qui m'est précieuse. Je désire la mettre à jour, mais dans plusieurs cas, je n'ai pas l'adresse du site web. J'ai un millier de données comme cela. Cependant, je voudrais transformer cette donnée pour avoir une adresse URL à partir de cette adresse courriel sans être obliger de le faire à la main avec un couper-coller.

exemple:

adresse courrier: sobannon@greensystems.com

je voudrais connaitre la formule qui me permettrais d'avoir ceci:

Donc je voudrais remplacer tout ce qui est avant le "@" et le remplacer par "www."

si quelqu'un pouvais m'aider, cela me sauverait beaucoup de temps.

Merci Bmurray

Bonjour

Voici une fonction à utiliser comme une fonction Excel

Synatxe

= Mel2Web(adresseCourriel)

Retourne le site Web contenu dans l'adresse !

adresseCourriel est obligatoire mais quelconque (valeur texte ou cellule)

Function Mel2Web(adrMel)
Dim tabAdr
    tabAdr = Split(adrMel, "@")
    Mel2Web = "www." & tabAdr(1)
End Function

Rebonjour Andrea73,

Merci mais je ne suis pas sûr de comprendre la formule.

Si dans la colonne A j'ai les addresses courriels et que dans la colonne B, je veux les adresses URL.

Qu'est-ce que j'écris exactement dans le cellule B1 pour avoir

alors que dans A1, j'ai l'adresse sobannon@greensystems.com

Merci.

Bmurray

(re)

Voici un exemple...

30exemple.xlsm (19.05 Ko)

WOW!

Merci beaucoup!

C'est très appécier!

Murray

(re)

C'est pas du

BMurray a écrit :

WOW!

c'est du VBA
BMurray a écrit :

Merci beaucoup!

Rechercher des sujets similaires à "tranformer adresse courriel url"