[VBA] Rechercher les adresses de courriel dans documents
1 réponse
Francois
Bonjour chez vous,
je cherche à créer un script vba qui permettrait de récupérer les adresses
de courriel contenues dans des documents Word. (Nous avons 200+ CV dont il
faut extraire les courriels)
J'avais pensé à chercher le caractère @, remonter à l'espace précédent et
sélectionner tout jusqu'à l'espace suivant. Ensuite copier/coller la
sélection dans un autre document quelque part.
Ca c'est la théorie, pour ce qui est de la pratique je suis perdu. Alors si
quelqu'un(e) a une idée se sera très apprécié.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
*Francois que je salut a écrit *:
Bonjour chez vous,
je cherche à créer un script vba qui permettrait de récupérer les adresses de courriel contenues dans des documents Word. (Nous avons 200+ CV dont il faut extraire les courriels)
J'avais pensé à chercher le caractère @, remonter à l'espace précédent et sélectionner tout jusqu'à l'espace suivant. Ensuite copier/coller la sélection dans un autre document quelque part.
Ca c'est la théorie, pour ce qui est de la pratique je suis perdu. Alors si quelqu'un(e) a une idée se sera très apprécié.
Merci et A+
Francois.
Si l'Email est un lien hyperlink
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 14/09/2006 par Oliv' ' Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _ "HYPERLINK" Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend MsgBox Selection End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Francois <francois@framas.net> que je salut a écrit *:
Bonjour chez vous,
je cherche à créer un script vba qui permettrait de récupérer les
adresses de courriel contenues dans des documents Word. (Nous avons
200+ CV dont il faut extraire les courriels)
J'avais pensé à chercher le caractère @, remonter à l'espace
précédent et sélectionner tout jusqu'à l'espace suivant. Ensuite
copier/coller la sélection dans un autre document quelque part.
Ca c'est la théorie, pour ce qui est de la pratique je suis perdu.
Alors si quelqu'un(e) a une idée se sera très apprécié.
Merci et A+
Francois.
Si l'Email est un lien hyperlink
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/09/2006 par Oliv'
'
Selection.HomeKey Unit:=wdStory
Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _
"HYPERLINK"
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
MsgBox Selection
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
je cherche à créer un script vba qui permettrait de récupérer les adresses de courriel contenues dans des documents Word. (Nous avons 200+ CV dont il faut extraire les courriels)
J'avais pensé à chercher le caractère @, remonter à l'espace précédent et sélectionner tout jusqu'à l'espace suivant. Ensuite copier/coller la sélection dans un autre document quelque part.
Ca c'est la théorie, pour ce qui est de la pratique je suis perdu. Alors si quelqu'un(e) a une idée se sera très apprécié.
Merci et A+
Francois.
Si l'Email est un lien hyperlink
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 14/09/2006 par Oliv' ' Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _ "HYPERLINK" Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend MsgBox Selection End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~