Extraire les fichiers excel d'un doc word
Fermé
Fgrisou
-
24 mars 2010 à 16:50
Le Pingou Messages postés 12058 Date d'inscription mercredi 11 août 2004 Statut Non membre Dernière intervention 2 mai 2024 - 24 mars 2010 à 22:32
Le Pingou Messages postés 12058 Date d'inscription mercredi 11 août 2004 Statut Non membre Dernière intervention 2 mai 2024 - 24 mars 2010 à 22:32
A voir également:
- Extraire les fichiers excel d'un doc word
- Supprimer une page word - Guide
- Fichier .doc - Guide
- Liste déroulante excel - Guide
- Word excel gratuit - Guide
- Espace insécable word - Guide
1 réponse
Le Pingou
Messages postés
12058
Date d'inscription
mercredi 11 août 2004
Statut
Non membre
Dernière intervention
2 mai 2024
1 430
24 mars 2010 à 22:32
24 mars 2010 à 22:32
Bonjour,
Dans le cas ou les fichiers sont sous forme de tableau, cette procédure devrait vous aider (l'adapter selon vos besoins)
Dans le cas ou les fichiers sont sous forme de tableau, cette procédure devrait vous aider (l'adapter selon vos besoins)
Sub importTableWordVersExcel() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Tableau As Word.Table Dim i As Integer, j As Integer Set WordApp = New Word.Application WordApp.Visible = False 'Ouvre le document Word Set WordDoc = WordApp.Documents.Open("C:\NomDocument.doc") 'Représente le premier tableau dans le document Set Tableau = WordDoc.Tables(1) 'Boucle sur les colonnes du tableau For i = 1 To Tableau.Columns.Count 'Boucle sur les cellules de claque colonne For j = 1 To Tableau.Columns(i).Cells.Count 'Importe les données du tableau dans la feuille active ActiveSheet.Cells(j, i) = Tableau.Columns(i).Cells(j) Next j Next i WordDoc.Close False WordApp.Quit End Sub