Décaler tableau ds Word par excel

[gaby]

Bonsoir à tous gens de bonne famille,

j'ai fait un système simple de facturation dans Excel grace à VBA, une fois toutes les données entrées un bouton lance la macro et copie le tableau vers Word pour obtenir une mise en page particulière dans mon modèle de facture et profiter de toutes les possibilités de Word quant à la rédaction de détails ultérieurs.

Mon problème est que le tableau dans Word est centré à gauche et j'ai besoin qu'il soit un peu décollé de la marge.

J'ai copié une macro enregistrée dans Word (Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=27, RulerStyle:= _
wdAdjustNone) pour faire le décalage par Excel mais lors de l'exécution j'ai une erreur 438 : propriété ou méthode non gérée par cet objet.

Je débute en VBA pour Excel et je nage pour piloter Word avec Excel!
Bref, si une âme charitable peu m'aider ça serait pas de refus.

En vous remerciant par avance.
Gaby.

 

[michel]

bonjour Gaby

j'espere que la macro ci dessous pourra t'aider

l'exemple copie la feuille active Excel dans un nouveau document Word .
ensuite un retrait est appliqué au tableau dans Word

Sub RetraitTableauDansWord()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Dim j As Byte
On Error Resume Next

Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True

Sheets("feuil1").UsedRange.Copy
Wrd.Selection.Paste

With Wrd.Selection
.Tables(1).Rows.SetLeftIndent LeftIndent:=27, RulerStyle:=1
End With

Application.CutCopyMode = False

End Sub


bon apres midi
michel

 

[michel]

rebonjour

...oouppss...

Dim j As Byte , n'est pas utile dans l'exemple


michel

 

[gaby]

Salut Michel,

je viens de me brancher il y a quelques minutes et j'ai essayé ton code dans ma macro : c'est pile-poil ce que je voulais!

Je te remercie donc, car je commençais à tourner en rond.
Bonne soirée à toi.

Gaby.