Signaler

Problème d'impression en macro avec Excel 2010 [Résolu]

Posez votre question MelynB 3Messages postés mardi 1 août 2017Date d'inscription 1 août 2017 Dernière intervention - Dernière réponse le 1 août 2017 à 15:21 par MelynB
Bonjour à tous,

Après des minutes, que dis-je, des heures à tourner le problème dans tous les sens et à chercher sur le forum en vain, je m'échoue ici, avec une petite lueur d'espoir dans les yeux, afin de quémander votre aide...

Je suis débutante en VBA, mais j'arrive à relativement comprendre les "paragraphes" de codage (excusez mon jargon). J'ai donc réussi le bouton d'enregistrement pdf et quelques autres relativement simples. L'impression faisant aussi partie des boutons simples (normalement), je me suis dit que c'était largement à ma portée. SAUF QUE... Et là c'est le drame, lorsque je clique sur "imprimer", une MsgBox s'affiche, me disant, je cite:

"Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet"

Mes lignes de codes sont les suivantes:

Range("A1:I68").Select
Range("I1").Activate
{Et jusqu'ici tout va bien, mais les problèmes arrivent à ce moment...}
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Range("I3").Select

Si vous pouviez m'aider à déboguer ce programme, ce serait super!

Merci beaucoup!
Afficher la suite 
Utile
+1
plus moins
Bonjour,

Essaies simplement (adapter le nom de la feuille) :
Sub Imprimer()
  Worksheets("Feuil1").Range("A1:I68").PrintOut Copies:=1, Collate:=True
End Sub


MelynB 3Messages postés mardi 1 août 2017Date d'inscription 1 août 2017 Dernière intervention - 1 août 2017 à 13:53
C'est parfait, merci beaucoup! Ca fonctionne parfaitement :)
Sais-tu pourquoi ma formule ne fonctionnait pas? Juste à titre informatif :)
Répondre
Patrice33740 6109Messages postés dimanche 13 juin 2010Date d'inscription 21 août 2017 Dernière intervention - 1 août 2017 à 14:04
IgnorePrintAreas ne fait pas partie des arguments de la fonction PrintOut du VBA Excel:
https://msdn.microsoft.com/fr-fr/library/office/ff823028(v=office.15).aspx
Répondre
MelynB 3Messages postés mardi 1 août 2017Date d'inscription 1 août 2017 Dernière intervention - 1 août 2017 à 15:21
Ah en effet! Merci! :)
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !