Impression feuille masqué et classeur protégé. [Résolu/Fermé]

Signaler
Messages postés
26
Date d'inscription
samedi 2 novembre 2013
Statut
Membre
Dernière intervention
27 janvier 2015
-
Messages postés
26
Date d'inscription
samedi 2 novembre 2013
Statut
Membre
Dernière intervention
27 janvier 2015
-
Bonjour,

J'aurai besoin de votre appui pour corriger ces lignes.
Commande d'impression avec sélection de cellules + ajustement.

Sub Impression()
ThisWorkbook.Unprotect Password:="******"
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$P$317"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 5
Sheets("Outils de calcul").Visible = False
ThisWorkbook.Protect Password:="******"
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1


End Sub

Ma commande impression est situé sur la feuil1
Tout se passe bien, sauf que c'est la Feuil3 qui s'imprime. Je ne comprend pas.

Merci de votre appui.


3 réponses

Messages postés
8350
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 janvier 2021
1 570
Pour éviter les erreurs, il est préférable de toujours utiliser la même syntaxe pour désigner une même feuille, pas une fois "Feuil2", ensuite Activesheet et finalement "Outils de calcul"

Essaies :
Sub Impression()
ThisWorkbook.Unprotect Password:="******"
With Worksheets("Feuil2")
.Visible = True
With .PageSetup
.PrintArea = "$A$12:$P$317"
.PrintTitleRows = ""
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 5
End With
.PrintOut
.Visible = False
End With
ThisWorkbook.Protect Password:="******"
End Sub

Cordialement
Patrice
1
Merci

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

CCM 63550 internautes nous ont dit merci ce mois-ci

Bonjour
je voie un truc comme ca

Sub Impression()
Sheets("Feuil2").Visible = -1
Sheets("Feuil2").Select
ActiveSheet.Unprotect Password:="******"
ActiveSheet.PageSetup.PrintArea = "$A$12:$P$317"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 5
End With
ActiveSheet.Protect Password:="******"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Feuil2").Visible = 2
End Sub

pour le reste il faut un model de ton fichier

A+
Maurice
Messages postés
26
Date d'inscription
samedi 2 novembre 2013
Statut
Membre
Dernière intervention
27 janvier 2015
1
Un grand Merci pour vos astuces.
Ca marche !

Je comprend mes erreurs.