Tableau dans word

[ixelo]

Bonjour à tous.
et bon week end.

J' ai trouvé sur le forum beaucoup de solurions pour transporter le contenu de cellules excel vers des plages word (remplacement) .
J' ai aussi trouvé (sur le forum) comment transférer un tableau vers un doc word , le hic c'est que je n'arrive pas à le placer là ou je veux, le tableau est toujours inséré en début de document.
La méthode "With wordDoc.Content.Find" suivie de "With .Replacement"ne fonctionne pas avec un tableau.

Voici mon code (place le tableau au début du doc word), si quelqu'un a une idée géniale, je suis preneur.

Sub Inserer_tableau()

Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object

On Error Resume Next

Set AppWrd = Wrd.Documents.Open("C:\DOCDOC.doc")
Wrd.Visible = True

Application.ScreenUpdating = False
Sheets("Annexe1").Range("tableau1").Copy

AppWrd.Documents.InsertAfter ("<annexe1>")
Wrd.Selection.Paste
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

Merci d'avance

 

[JYLL]

Re : Tableau dans word

Bonsoir Ixelo,

Peut être en plaçantjuste après ces deux lignes le code qui suit.

Set AppWrd = Wrd.Documents.Open("C:\DOCDOC.doc")
Wrd.Visible = True

Application.Browser.Next


le collage devrait être fait à la fin du document.

Autrement si tu sais le nombre de lignes à sauter :

ActiveWindow.ActivePane.VerticalPercentScrolled = 11

autrement tu inserts un signet dans ton document word et tu mets le code suivant après tes deux lignes.

Selection.GoTo What:=wdGoToBookmark, Name:="tableau1"

Tableau1 étant le nom que tu donnes au signet.

Bon test.

Amicalement.

Jean-Yves