Arriere plan Xls vers html

bonjour Claudy,

voici une réponse données par Denny Campbell, le 99-03-04
sur le forum microsoft.public.excel.programming
en espérent que tu puisse l'adapter pour html

'la zone d'impression doit être préalablement définie
Sub ImprimeFiligrane()
Dim ZoneImp As Range
Set ZoneImp = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImp.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImp
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

isabelle

Bonjour, à tous...
Par macro, j'enregistre ma zone d'impression, au format html....
ça va bien, mais je n'arrive pas à y inclure l'arrière plan de la feuille
d'origine!
Merci d'avance
Claudy

Salut....
merci, Isabelle,
mais je connaissais déjà cette bonne macro, dont je me sert pour le même
classeur :-))
Mais même en essayant d'adapter pour mon html, ça ne va pas car en fait,
cette macro transforme la zone en une image avant de l'imprimer!
Bon dimanche, a+
Claudy

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F801D95.1B1A10BA@videotron.ca...

bonjour Claudy,

voici une réponse données par Denny Campbell, le 99-03-04
sur le forum microsoft.public.excel.programming
en espérent que tu puisse l'adapter pour html

'la zone d'impression doit être préalablement définie
Sub ImprimeFiligrane()
Dim ZoneImp As Range
Set ZoneImp = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImp.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImp
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

isabelle

Bonjour, à tous...
Par macro, j'enregistre ma zone d'impression, au format html....
ça va bien, mais je n'arrive pas à y inclure l'arrière plan de la
feuille

d'origine!
Merci d'avance
Claudy