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

3 réponses

  1.
    m@rina Messages postés 27617 Date d'inscription   Statut Modérateur Dernière intervention   11 563
     
    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
  2. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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
  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