Bonjour,

Voici le principe général de mon code : Je pars de plusieurs tableaux situés dans un même fichier Word les uns à la suite que je copie dans un classeur Excel de la façon suivante :
-1 tableau sous word = 1 feuille d'un classeur sous Excel.
-J'ai n tableau sous word donc j'arrive à N feuille de classeurs.
J'ai donc 1 fichier Word en entrée et un fichier Excel en sortie.

Tout se passe très bien, le code marche très bien sauf que de temps en temps, les tableaux ne sont pas copiés en cellule A1. Mais C4, C5...

Je voudrais forcer le copier coller à partir de la cellule A1.

Voici la partie du code en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 1 To nb_Table
        wrdDoc.Tables(i).Range.Copy                              "copie les tables de word"
 
        Worksheets(i).Paste                                           "coller dans la feuille i du du classeur Excel".
 
    Next i
Je voudrais rajouter à la ligne du coller une expression du type :
Worksheets(i).range("a1").Paste mais ça n'a pas vraiment l'air de lui plaire.

Avez-vous une petite idée de la marche à suivre ?

Merci