Sujet Précédent Sujet Suivant

Trouvé email dan word ou excel, creer fichier

Fermé
Alain - 11 janv. 2009 à 17:51
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 - 12 janv. 2009 à 18:49
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 21657 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 24 février 2025 11 404
11 janv. 2009 à 18:03
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 58862 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 février 2025 17 285
12 janv. 2009 à 01:43
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 mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 858
12 janv. 2009 à 18:49
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