Bonjour à tous,
je suis sur Excel 97-2003 et je souhaite copier mes tableaux Excel vers un document Word, qui est déjà pré-rempli de textes et d'images.
J'ai un bouton sur Excel qui me met à jour mes données, je m'en sers également pour ouvrir le Word et copier les tableaux.
--> ça c'est bon, voir le code ci dessous
Le problème, c'est que je peux faire plusieurs mises à jour, mais ça me rajoute un tableau et ça me supprime pas le précédent.
Quelqu'un a une idée?
Merci d'avance
je suis sur Excel 97-2003 et je souhaite copier mes tableaux Excel vers un document Word, qui est déjà pré-rempli de textes et d'images.
J'ai un bouton sur Excel qui me met à jour mes données, je m'en sers également pour ouvrir le Word et copier les tableaux.
--> ça c'est bon, voir le code ci dessous
Le problème, c'est que je peux faire plusieurs mises à jour, mais ça me rajoute un tableau et ça me supprime pas le précédent.
Quelqu'un a une idée?
Merci d'avance
VB:
Sub ouvrirdoc()
Dim Nom_Fichier As Variant
Dim Img As Object
On Error Resume Next
Nom_Fichier = ActiveWorkbook.Path & "\MEMOIRE_PR.doc"
Set WordApp = CreateObject("word.Application")
With WordApp
.Documents.Open (Nom_Fichier)
.Visible = True
End With
' 1er tableau
Sheets("MEMOIRE").Range("B3:C10").Copy
With WordApp
.Selection.GoTo What:=wdGoToBookmark, Name:="tableau2"
.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement _
:=wdInLine, DisplayAsIcon:=False
End With
End Sub