Trouvé email dan word ou excel, creer fichier

Alain -  
JvDo Messages postés 2012 Statut Membre -
Bonjour,
je souhaiterai aller chercher rapidement des emails dispersés dans Excel (ou Word) et en faire un fichier exploitable dans Excel
Merci à tous et toutes
Alain
A voir également:

3 réponses

Réponse 1 / 3
m@rina Messages postés 26524 Date d'inscription   Statut Contributeur Dernière intervention   11 490
 
Bonjour,

Et en langage plus clair, ça veut dire quoi ?....

Pour moi, des emails ne sont pas contenus (par défaut) dans un fichier Word ou Excel...

m@rina
0
Réponse 2 / 3
Raymond PENTIER Messages postés 71833 Date d'inscription   Statut Contributeur Dernière intervention   17 381
 
C'est quoi, pour toi, des emails ? Et en particulier des emails dispersés ?
Et de quel genre d'exploitation tu veux parler : Des pourcentages, des graphiques, des concaténations ?
0
Réponse 3 / 3
JvDo Messages postés 2012 Statut Membre 859
 
Bonsoir à tous,

tu peux trouver tes adresses mail dispersées dans l'objet Hyperlinks. Elles ont la particularité d'être préfixées par "mailto:"

un bout de code excel (pour word, c'est quasiment le même) pour les afficher. 
Sub adrmail()
Dim Adr, lesliens, lien
Set lesliens = ActiveSheet.Hyperlinks
For Each lien In lesliens
    a = lien.Address
    If Left$(a, 7) = "mailto:" Then MsgBox (Right$(a, Len(a) - 7))
Next
End Sub

pour les inscrire dans ta feuille, plutôt que les afficher, utilise RANGE

A+
0