[VBA] Importer données Word vers Excel

[soulwax]

Bonjour à tous,

Premièrement, je voulais remercier les gens qui passent sur ce thread car je dois avouer que ce forum m'a beaucoup appris en excel ces dernières années, une vrai mine d'or!

Deuxièmement, j'effectue actuellement bcp de recherches sur un souci d'importation de données mais je n'arrive pas à trouver la solution ):

Pour ce faire, j'aimerais via une macro VBA en excel, que celui-ci fasse une recherche d'un mot-clé sur un dossier contenant des centaines de fichiers word afin d'y extraire tous les adresses mails disponibles dans ceux-ci.

Cela me permettrait de récupérer une base de données complète des adresses mails auquel j'ai déjà envoyé un fichier word.

En annexe, voici un projet très simplifié qui est similaire à mon problème.

Merci beaucoup!!

 

[Yaloo]

Re : [VBA] Importer données Word vers Excel

Bonjour soulwax, le forum,

Vois avec la macro ci-dessous, une adaptationd'un code du grand chaman

Option Explicit

Sub Importation_Donnees_Word()
Dim rep$, i&, Temp$, fs
Dim Wapp As Object, Wdoc As Object, WSel As Object
Application.ScreenUpdating = False
rep = "D:\Downloads\projet\word\"
Temp = Dir(rep & "*.docx")
i = [A65536].End(3)(2).Row
Set Wapp = CreateObject("Word.Application")
Wapp.Visible = -1
Do While Temp <> ""
  Set Wdoc = Wapp.Documents.Open(rep & Temp)
  Wapp.Selection.HomeKey unit:=6
  Wapp.Selection.Find.ClearFormatting
  Wapp.Selection.Find.Execute "@"
  Wapp.Selection.Moveleft unit:=3, Count:=1, Extend:=0
  Wapp.Selection.MoveRight unit:=3, Count:=1, Extend:=1
  Set WSel = Wapp.Selection
  Cells(i, 1) = WSel
  Wdoc.Close
  i = i + 1
  Temp = Dir
Loop
End Sub

A+

Martial