Sujet Précédent Sujet Suivant

Trouvé email dan word ou excel, creer fichier

Alain -  
JvDo Messages postés 1924 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
Configuration: Windows XP
Firefox 3.0.5
A voir également:

3 réponses

Réponse 1 / 3
m@rina Messages postés 26675 Date d'inscription   Statut Contributeur Dernière intervention   11 529
 
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 59042 Date d'inscription   Statut Contributeur Dernière intervention   17 465
 
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 1924 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