Copier un Range dans Excel, coller dans Word sur Signet
benjamin67VBA
Messages postés
10
Statut
Membre
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
Bonjour à tous,
Je suis un peu bloqué là :
J'exporte des données d'excel à Word avec VBA, pour le texte tout se passe bien, lorqu'il s'agit de copier un Range, ça ne passe plus. Ou est mon erreur ?
Je lance la maccro avec un activeX sur la feuill1, le range qui m’intéresse est sur une autre feuill "EB", je pense que le problème vient de là..
Merci par avance pour vos réponses
Benjamin
Je suis un peu bloqué là :
J'exporte des données d'excel à Word avec VBA, pour le texte tout se passe bien, lorqu'il s'agit de copier un Range, ça ne passe plus. Ou est mon erreur ?
Je lance la maccro avec un activeX sur la feuill1, le range qui m’intéresse est sur une autre feuill "EB", je pense que le problème vient de là..
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Users\fichier.docx") 'ouvre le document Word
WordDoc.Bookmarks("S1").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S2").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S3").Range.Text = Cells(5, 2).Value
'etc etc , j'usqu'ici ça marche très bien
'
Sheets("EB").Activate
Sheets("EB").Select
Range(Cells(1, 1), Cells(10, 8)).Select '
Selection.Copy
'Cherche signet1 dans le rapport-type
WordDoc.Selection.Goto What:=wdGoToBookmark, Name:="test"
WordDoc.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False
Merci par avance pour vos réponses
Benjamin
A voir également:
- Copier un Range dans Excel, coller dans Word sur Signet
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Supprimer une page dans word - Guide
- Retrouver un copier-coller android - Guide
- Tableau word - Guide
1 réponse
Bonjour
il faut transformer la zone à copier en image
et dans word
'collage de la zone au signet "essai"
il faut transformer la zone à copier en image
Range("zone").CopyPicture Appearance:=xlPrinter
et dans word
'collage de la zone au signet "essai"
.Selection.Goto What:=wdGoToBookmark, Name:="essai"
'provoque un décalage d'une ligne pour ne pas écraser le signet "essai"
.Selection.TypeParagraph
.Selection.Paste