Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro impressions qui plante

pascalmou

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Junior
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…