macro impressions qui plante

[pascalmou]

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

 

[JeanMarie]

Bonsoir Pascal

Question, les objets 'Picture 38' et 'Picture 39' existent bien sur la feuille 'WordArt 2'

@+Jean-Marie

Message édité par: JeanMarie, à: 10/03/2005 22:40

 

[pascalmou]

mes 2 image word art sont sur une feuille que j'ai crée dans le meme classeur et nommé TAMPON

 

[JeanMarie]

Re...

Pourquoi pas, rendre invisible les deux images par
ActiveSheet.Shapes('Picture 38').visible = FALSE
ActiveSheet.Shapes('Picture 39').visible = FALSE

pour inverser l'état des deux images
ActiveSheet.Shapes('Picture 38').visible = TRUE
ActiveSheet.Shapes('Picture 39').visible = TRUE

ce qui évite le delete, l'incrémentation automatique des objets par Excel.

@+Jean-Marie

Message édité par: JeanMarie, à: 11/03/2005 07:09

 

[pascalmou]

pour tous dire je sais pas utiliser le VBA, je me contente d'enregistrer une nouvelle macro je fait ce que je veux que cela fasse et j'arrete la macro.

Mais je pense que cela doit etre bien simple d'ajouter un texte sur la feuille, mais en transparance afin de ne pas masque ce qu'il y as en dessous