Impression feuille masqué et classeur protégé.

Résolu/Fermé

Gilles.DR315 Messages postés 26 Date d'inscription samedi 2 novembre 2013 Statut Membre Dernière intervention 27 janvier 2015 - 6 nov. 2013 à 19:46
Gilles.DR315 Messages postés 26 Date d'inscription samedi 2 novembre 2013 Statut Membre Dernière intervention 27 janvier 2015 - 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.

A voir également:

Impression feuille masqué et classeur protégé.
Spouleur d'impression - Guide
Appel masqué - Guide
Masque apple - Guide
Feuille de pointage excel - Télécharger - Tableur
Feuille a5 - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 6/11/2013 à 21:13

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
6 nov. 2013 à 21:30

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 samedi 2 novembre 2013 Statut Membre Dernière intervention 27 janvier 2015 1
Modifié par Gilles.DR315 le 6/11/2013 à 21:50

Un grand Merci pour vos astuces.
Ca marche !

Je comprend mes erreurs.

Discussions similaires

Rappeler un numéro inconnu

Comment faire un masque sous word ?

Transparence en tete et bas de page

Feuille de score belote

Reporter valeur sur autre feuille avec critere

Discussions similaires

Newsletters