Problème d'impression en macro avec Excel 2010

Résolu/Fermé

MelynB Messages postés 3 Date d'inscription mardi 1 août 2017 Statut Membre Dernière intervention 1 août 2017 - 1 août 2017 à 12:37
MelynB Messages postés 3 Date d'inscription mardi 1 août 2017 Statut Membre Dernière intervention 1 août 2017 - 1 août 2017 à 15:21

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!

A voir également:

Problème d'impression en macro avec Excel 2010
Spouleur d'impression - Guide
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Mise en forme conditionnelle excel - Guide

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
1 août 2017 à 13:41

Bonjour,

Essaies simplement (adapter le nom de la feuille) :

Sub Imprimer()
  Worksheets("Feuil1").Range("A1:I68").PrintOut Copies:=1, Collate:=True
End Sub

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775 > MelynB Messages postés 3 Date d'inscription mardi 1 août 2017 Statut Membre Dernière intervention 1 août 2017
1 août 2017 à 14:04

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

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

Ah en effet! Merci! :)

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters