Impression feuille masqué et classeur protégé.
Résolu
Gilles.DR315
Messages postés
28
Statut
Membre
-
Gilles.DR315 Messages postés 28 Statut Membre -
Gilles.DR315 Messages postés 28 Statut Membre -
Bonjour,
J'aurai besoin de votre appui pour corriger ces lignes.
Commande d'impression avec sélection de cellules + ajustement.
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.
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
-
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 -
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 -
Un grand Merci pour vos astuces.
Ca marche !
Je comprend mes erreurs.
