Impression feuille masqué et classeur protégé.

Résolu

Gilles.DR315 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Gilles.DR315 Messages postés 26 Date d'inscription Statut Membre Dernière intervention - 6 nov. 2013 à 21:50

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.

Afficher la suite

A voir également:

Impression feuille masqué et classeur protégé.
Spouleur d'impression - Guide
Impression livret a5 - Guide
Numero masque - Guide
Bruler feuille de laurier - Guide
Feuille de pointage excel - Télécharger - Tableur

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Réponse 2 / 3

foo

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

Réponse 3 / 3

Gilles.DR315 Messages postés 26 Date d'inscription Statut Membre Dernière intervention 1

Un grand Merci pour vos astuces.
Ca marche !

Je comprend mes erreurs.

Discussions similaires

Comment faire un masque sous word ?

Feuille de score belote

Contenue masqué

Les feuilles Diddl

Votre réponse

Discussions similaires