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
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