Discussion :

[peetersq]

Bonjour, je n'arrive pas a copier 2 graphique d'excel vers word, quand j'utilise le code suivant, la premier graphique qui est collé se fait supprimer par le deuxième qui est collé

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
 
Sheets("Feuil1").ChartObjects(1).Copy 'copie le 1er graphique de la Feuil1
 
'collage graphique dans Word
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
 
WordApp.Selection.TypeParagraph
 
Sheets("Feuil1").ChartObjects(2).Copy 'copie le 2er graphique de la Feuil1
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False

[deuxmains]

Bonjour

Pour le coup je suis vraiment newbee en VBA sur Word et je penses que tu auras une réponse mieux détaillée en allant sur le forum VBA Word

ceci dit dans le code que tu fourni j'ai remplacé le deuxième collage par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Feuil1").ChartObjects(2).Copy 'copie le 2er graphique de la Feuil1
WordDoc.Range.Paste

Cela donne que les deux graphiques sont collé séparément mais il rest de la mise en page a faire en manuel dans le document word

j'espère que cela t'aidera