Trouvé email dan word ou excel, creer fichier

Alain -  
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   -
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 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
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 58991 Date d'inscription   Statut Contributeur Dernière intervention   17 358
 
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 1978 Date d'inscription   Statut Membre Dernière intervention   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