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?

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
J'ai essayé de changer le format (html etc...) mais l'impression se fait qd meme en B&W.
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.