J
Joëlle
Guest
Bien le bonjours à vous tous
Bug de cette macro, je lui demande d’imprimer uniquement un graphe sans la page support.
La macro ce bloque sur la page aperçu avant impression et n’imprime le graphique seulement si je ferme l’aperçu avant impression.
Logique pour j’ai raté un truc ?
Sub Imprim_Graphique()
'
' Imprim_Graphique Macro
'
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Windows("Rebut Suivi JB UET 10.xls").Activate
Range("A13").Select
End Sub
Merci pour le temps passé sur ce sujet.
Joëlle
Bug de cette macro, je lui demande d’imprimer uniquement un graphe sans la page support.
La macro ce bloque sur la page aperçu avant impression et n’imprime le graphique seulement si je ferme l’aperçu avant impression.
Logique pour j’ai raté un truc ?
Sub Imprim_Graphique()
'
' Imprim_Graphique Macro
'
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Windows("Rebut Suivi JB UET 10.xls").Activate
Range("A13").Select
End Sub
Merci pour le temps passé sur ce sujet.
Joëlle