Discussion :

[josephhd]

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

[CODYCO]

essai avec ca

Code :

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

1
2
 
Range(Cells(1, 1))

[josephhd]

Quand j'écris ça :

Code :

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

Worksheets(i).Range(Cells(1, 1)).Paste

Ca me met un message d'erreur.

[nchal]

Bonjour,

Ou alors après le paste, tu fais un test pour voir si il y a des cellules vides. Ensuite, il suffit de decaler ton tableau en A1.

Si tu as besoin d'aide pour le code, n'hésite pas à poster.

[SfJ5Rpw8]

Bonsoir,

essai:

Code :

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

 Worksheets(i).Range("A1").PasteSpecial xlPasteAll

[Paritec]

Bonjour Tous,
j'ai relu la question et j'avais répondu à coté alors je viens d'éditer!!! (pardon)
a+
papou