Bonjour,
J'utilise le code suivant pour copier entre autre des graph dans word mais le probleme est que lorsque je lance l'impression de ce fichier .doc, il sort en Noir et blanc...quelqu'un a t'il deja eu ce pb?
J'ai essayé de changer le format (html etc...) mais l'impression se fait qd meme en B&W.
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Sub exportdoc() Dim FL1 As Worksheet Dim WdApp As Object Dim WdDoc Workbooks("Analyse réelle.xls").Activate Sheets("Graph1").Select ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Set WdApp = CreateObject("Word.Application") Set WdDoc = WdApp.Documents.Open(Filename:="R:\Limites\Fichiers de Travail\Template_Print.doc") DoEvents WdApp.Visible = False WdApp.Selection.PasteSpecial LinkFormat.BreakLink, DataType:=3, _ Placement:=0 DoEvents WdDoc.SaveAs Filename:= _ "R:\Limites\Fichiers de Travail\" & TextBox1.Value & "\Impression.doc" WdDoc.Close False DoEvents WdApp.Quit Set WdApp = Nothing Set WdDoc = Nothing MsgBox "Terminé" End Sub
De plus quand je fait un apercu avant impression mes graph apparaissent bien en couleur.
Enfin mon imprimante est bien en couleur et les parametres sont correctyement réglés.
En attendant de vous lire avec delectations , merci par avance pour vos réponses.
Partager