Bonjour le forum,
J'ai réussi à faire transférer le contenu de cellules vers des signets dans Word sans trop de problèmes. J'ai juste un problème pour le transfert d'une tableau. Je lui ai créée un signet dans ma page Word, quand je lance la macro le signet me renvoi la valeur VRAI et le tableau s'insère en haut de feuille ce qui décale toute ma présentation.
Ma question est donc : Comment peut on définir une zone d'insertion pour un tableau dans une page Word ?
En vous remerciant
J'ai réussi à faire transférer le contenu de cellules vers des signets dans Word sans trop de problèmes. J'ai juste un problème pour le transfert d'une tableau. Je lui ai créée un signet dans ma page Word, quand je lance la macro le signet me renvoi la valeur VRAI et le tableau s'insère en haut de feuille ce qui décale toute ma présentation.
Ma question est donc : Comment peut on définir une zone d'insertion pour un tableau dans une page Word ?
En vous remerciant
Code:
Sub SignetsWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Utilisateur\Mes documents\Chiffrage\Word\Modele.docx")
WordApp.Visible = False
WordDoc.Bookmarks("Signet1").Range.Text = Sheets("Entrée").Range("I3")
WordDoc.Bookmarks("Signet2").Range.Text = Sheets("Entrée").Range("K5")
WordDoc.Bookmarks("Signet3").Range.Text = Sheets("Rapport actuel").Range("A1:E32").Copy
WordApp.Selection.Paste
WordApp.Visible = True
End Sub