XL 2013 RECUPERATION FICHIER WORD VERS EXCEL

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
405
Réponses
0
Affichages
609
Retour