XL 2013 RECUPERATION FICHIER WORD VERS EXCEL

laurentsicli

XLDnaute Nouveau
Bonjour, Bonne Année à tous j'ai cette macro de récupération des éléments word vers excel, qui fonctionne à merveille en l'occurrence mon word et sous forme de tableau la récupération fonctionne sans soucis.
j'aimerais pouvoir sélectionner mon *. Doc à partir de la macro car là le *. Doc est fixe dans ma macro, j'aimerais lancer la macro et que celle-ci ouvre le dossier ou se trouve mes *. Doc comment faire

merci à vous de votre aide.

voici la Macro
Sub copieTableauWordVersExcel()
'nécessite d'activer la référence
'Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Dim Fichier As String

'le document Word est supposé fermé avant le lancement de la macro
Fichier = "C:\Users\*.*\Documents\2020\***\***\***\"
'creation session Word
Set WordApp = New Word.Application
'pour que word reste masqué pendant l'opération
WordApp.Visible = True
'ouverture du fichier Word
Set WordDoc = appWrd.Documents.Open(Fichier)

'copie le premier tableau Word
WordDoc.Tables(2).Range.Copy
Range("n10").Select
ActiveSheet.Paste
WordDoc.Tables(4).Range.Copy
Range("n15").Select
ActiveSheet.Paste
WordDoc.Tables(3).Range.Copy
Range("N2").Select
ActiveSheet.Paste
'ferme le document Word sans sauvegarde
WordDoc.Close False
'ferme l'application Word
WordApp.Quit
End Sub
 

Discussions similaires

Réponses
11
Affichages
385
Haut Bas