[VBA] Importer données Word vers Excel

soulwax

XLDnaute Nouveau
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!!
 

Pièces jointes

  • projet.zip
    32 KB · Affichages: 41
  • projet.zip
    32 KB · Affichages: 47
  • projet.zip
    32 KB · Affichages: 53

Yaloo

XLDnaute Barbatruc
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
VB:
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
 

Pièces jointes

  • excel.xlsm
    16.4 KB · Affichages: 59
  • excel.xlsm
    16.4 KB · Affichages: 62
  • excel.xlsm
    16.4 KB · Affichages: 66

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 808
Membres
101 819
dernier inscrit
lukumubarth