XL 2013 [Resolu]Copier un graphe de Excel a Word

Zohnya

XLDnaute Nouveau
Bonjour le forum.
Comme si bien dit dans le titre, je cherche a copier un graphe depuis Excel dans Word en pilotage word.

Voici mon code et ça fait quelque temps que je bloque dessus en cherchant sur internet avec acharnement mais pas moyen de trouver comment faire :

Il arrive a retrouver le graphe que je veux, ça, ça marche. Mais impossible de le copier / coller à la suite de mon texte dans mon document.

VB:
'Ajouter graphe 1 : Utilisation par semaine
 For i = Feuille.ChartObjects.Count To 1 Step -1
        Feuille.ChartObjects(i).Activate
     If ActiveChart.ChartTitle.Text = Feuille.Name & " Utilisation par semaine" Then
         With Feuille.ChartObjects(i)
             .CopyPicture
         End With
            WordDoc.Paragraphs.Add
            WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range.Select
            Selection.Paste
         DoEvents
         Exit For
     End If
Next i
 

Zohnya

XLDnaute Nouveau
Voici la solution :
VB:
For i = Feuille.ChartObjects.Count To 1 Step -1
       Feuille.ChartObjects(i).Activate
     If ActiveChart.ChartTitle.Text = Feuille.Name & " Utilisation par semaine" Then
         With Feuille.ChartObjects(i)
             .CopyPicture
         End With
          '  WordDoc.Paragraphs.Add
         '  WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range.Select
         '  Selection.Paste
       WordApp.Selection.EndKey Unit:=6 ' aller à la fin du doc
       WordApp.Selection.Paste
        ' DoEvents
        Exit For
    End If
Next i
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO