Menu

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

MelynB 3 Messages postés mardi 1 août 2017Date d'inscription 1 août 2017 Dernière intervention - 1 août 2017 à 12:37 - Dernière réponse : MelynB 3 Messages postés mardi 1 août 2017Date d'inscription 1 août 2017 Dernière intervention
- 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!
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Patrice33740 7118 Messages postés dimanche 13 juin 2010Date d'inscription 19 juillet 2018 Dernière intervention - 1 août 2017 à 13:41
1
Merci
Bonjour,

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


Merci Patrice33740 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 22520 internautes ce mois-ci

MelynB 3 Messages 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 :)
Patrice33740 7118 Messages postés dimanche 13 juin 2010Date d'inscription 19 juillet 2018 Dernière intervention > MelynB 3 Messages postés mardi 1 août 2017Date d'inscription 1 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
MelynB 3 Messages 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! :)
Commenter la réponse de Patrice33740