Copier un Range dans Excel, coller dans Word sur Signet

Fermé

benjamin67VBA Messages postés 8 Date d'inscription mardi 30 juin 2015 Statut Membre Dernière intervention 21 avril 2017 - 21 avril 2017 à 15:21
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 avril 2017 à 09:30

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


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
Comment supprimer une page sur word - Guide
Liste déroulante excel - Guide
Word excel gratuit - Guide
Espace insécable word - Guide
Comment faire un organigramme sur word - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 avril 2017 à 09:30

Bonjour

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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters