bonjour
Pourquoi est ce que je n'arrive pas à me rendre sur la page voulue ? Comment dire à la macro de prendre le tableau de cette page et pas celui de la première (ce qu'il fait actuellement) page (qui est un tableau qui ne me sert à rien !)
c'est normal puisque tu as écrit
ActiveDocument.Tables(1).Cell(1, 1).Select
Tables(1) correspond au 1er tableau dans le document.
Tu n'as pas besoin d'atteindre une page particuliere. Lorsque le document Word est ouvert, il suffit d'indiquer l'index de ton tableau dans la macro : Tables(x)
par contre je n'ai pas compris si ta macro est dans Word ou Excel: peux tu le préciser ?
en attendant , voici un principe de boucle pour extraire le contenu d'un tableau Word
1 2 3 4 5 6 7 8 9 10 11
| Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
i = ActiveDocument.Tables(2).Rows.Count
j = ActiveDocument.Tables(2).Columns.Count
For x = 1 To i
For y = 1 To j
Debug.Print ActiveDocument.Tables(2).Cell(x, y).Range.Text
Next y
Next x |
Une autre solution pourrait consiter à copier le tableau Word et ensuite faire un collage spécial dans Excel pour ne récupérer que les contenu
j'espere que ce lien pourra aussi t'aider
http://vb.developpez.com/faq/?page=word
bonne journée
michel
Partager