Discussion :

[gilles06]

Bonjour,

J'ai un petit soucis que je n'arrive pas a resoudre.
Je travaille en VBA sous un fichier Excel et j'ouvre un document word dans lequel je veux dupliquer un tableau existant. J'arrive a faire ca, mais il me le duplique toujours en ligne 1, je n'arrive pas a controler la position du curseur dans le document word a partir de VBA excel.

Lorsque j'execute ce code il ne veut pas executer la commande >>>>
il me dit Error 438 "Object doesnot support this property or method"

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oDoc As Document
Dim oTbl As Table
Set oDoc = ActiveDocument
Set oTbl = oDoc.Tables(1)
'Sélection de la table
oTbl.Range.Select
Selection.Copy
>>>>> Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeParagraph
Selection.PasteAndFormat (wdPasteDefault)

Comment faire ?

Merci de votre aide.

[wape]

Bonjour,

Etant donné que la macro est exécutée depuis Excel, il faut indiquer que l'objet Selection se réfère à Word :

Code :

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

1
2
3
4
5
6
With objWord.Selection
   .Copy
   .MoveDown Unit:=wdLine, Count:=1
   .TypeParagraph
   .PasteAndFormat (wdPasteDefault)
End With

où objWord correspond à un objet Word que tu as dû instancier plus haut dans la macro.

wape

[gilles06]

C'est exact ! Je te remercie de ton aide, je n'avais pas vu.

Merci encore pour tout