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

Signaler
Messages postés
3
Date d'inscription
mardi 1 août 2017
Statut
Membre
Dernière intervention
1 août 2017
-
Messages postés
3
Date d'inscription
mardi 1 août 2017
Statut
Membre
Dernière intervention
1 août 2017
-
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!

1 réponse

Messages postés
8154
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 juillet 2020
1 441
Bonjour,

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


1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57127 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
mardi 1 août 2017
Statut
Membre
Dernière intervention
1 août 2017

C'est parfait, merci beaucoup! Ca fonctionne parfaitement :)
Sais-tu pourquoi ma formule ne fonctionnait pas? Juste à titre informatif :)
Messages postés
8154
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 juillet 2020
1 441 >
Messages postés
3
Date d'inscription
mardi 1 août 2017
Statut
Membre
Dernière intervention
1 août 2017

IgnorePrintAreas ne fait pas partie des arguments de la fonction PrintOut du VBA Excel:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.window.printout?redirectedfrom=MSDN
Messages postés
3
Date d'inscription
mardi 1 août 2017
Statut
Membre
Dernière intervention
1 août 2017

Ah en effet! Merci! :)