Discussion :

[jérémyp8]

Bonjour,

J'ai un tableau qui comporte plusieurs colonnes, j'arrive à extraire facilement quelques colonnes bien précises.

Le problème je sais pas comment les copier où je veux dans le fichier excel ? c'est-à-dire si je veux extraire 2 colonnes et les copier par exemple à partir de A4 pour la 1ere colonne et B6 pour la 2eme colonne.

Voila le code qui extrait quelques colonnes d'un tableau mais il les copie par défaut au début du fichier excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub importTableWord_VersExcel()
'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 Tableau As Word.Table
Dim i As Integer, j As Integer
 
'Création instance Word
Set wdApp = CreateObject ("Word.Application")
'Masque Word pendant l'opération
WordApp.Visible = False
'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("E:\monDocument.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
 
'Ferme le document Word
WordDoc.Close False
'Ferme l'instance Word
WordApp.Quit
End Sub

Merci

[Sepia]

Bonjour jérémyp8,

C'est normal, tu demandes à écrire dans les cellules de la feuille de calcul ayant comme coordonnées "i" et "j" via l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Cells(j, i)

et comme tu fais une boucle sur i en partant de 1 et sur j en partant de 1 aussi tu commences à la cellule (1, 1) donc la 1eère cellule de la 1ère colonne.

La solution consiste à te décaler à partir des positions que tu veux.

@+