Je viens de créer une macro qui as pour objet d'imprimer 3 fois la meme feuille, la premiere dans une version classique, la deuxieme avec la mention COMPTA, et la troisieme avec la mention DOSSIER.
Cela plante a la ligne rouge, en fait a partir du moment ou il trouve l'image que j'ai crée auparavent dans une feuille de mon classeur avec word art et que je copie sur ma premiere feuille
voici la formule
imprime3fois Macro
' Macro enregistrée le 2005-03-10 par pascal
'
'
Range('G9').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('tampon').Select
ActiveSheet.Shapes('WordArt 2').Select
Selection.Copy
Sheets('cde vitrage').Select
ActiveSheet.PasteSpecial Format:='Image (JPEG)', Link:=False, _
DisplayAsIcon:=False
Selection.Delete
ActiveSheet.PasteSpecial Format:='Image (PNG)', Link:=False, DisplayAsIcon _
:=False
ActiveWindow.SmallScroll Down:=8
Selection.ShapeRange.IncrementLeft -256.5
Selection.ShapeRange.IncrementTop 183#
Range('I22').Select
ActiveWindow.SmallScroll Down:=-15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Shapes('Picture 38').Select
Selection.Delete
ActiveWindow.SmallScroll Down:=27
Sheets('tampon').Select
Range('G17:J17').Select
ActiveSheet.Shapes('WordArt 3').Select
Selection.Copy
Sheets('cde vitrage').Select
ActiveSheet.PasteSpecial Format:='Image (PNG)', Link:=False, DisplayAsIcon _
:=False
Selection.ShapeRange.IncrementLeft -255.75
Selection.ShapeRange.IncrementTop 26.25
Range('A22:C22').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Shapes('Picture 39').Select
Selection.Delete
Sheets('tampon').Select
Range('E20').Select
Sheets('cde vitrage').Select
ActiveWindow.SmallScroll Down:=-15
Range('J7').Select
End Sub