VBA impression classeur entier

[TheProdigy]

Bonjour à tous,

Je voudrais avoir le code permettant d'imprimer le classeur entier même si les autres feuilles autres que la feuille "Plan" sont masquées "very hiden" ou bien elles sont affichées. un code qui marche pour les deux casà la fois.

Merci.

 

[YANN-56]

Re : VBA impression classeur entier

Bonjour à toi, et à ceux qui passeront par ici,

Regarde le Classeur joint; tu y trouveras peut-être une réponse.

Amicalement.

Yann

P.S.
A noter que je n'ai jamais trop pigé l'utilité de masquer une feuille!!! 🙁

 

[TheProdigy]

Re : VBA impression classeur entier

Merci pour ton code

Private Sub CommandButton1_Click()

For Each FEUILLE In ThisWorkbook.Worksheets 'Boucle sur toutes les feuilles

    FEUILLE.Visible = True
    
    FEUILLE.PrintOut
    
      If FEUILLE.Name = "Feuil2" Then
        FEUILLE.Visible = False 'Remettre la propriété de celle-ci non visible
      End If
    
    Next
End Sub

Je ne sais pas comment l'adapter à ma situation:

J'ai une première feuille intitulée "Plan" et les autres feuilles peuvent être soit masquées soit affichées.
Comment imprimer ces feuilles aussi bien masquées que affichées. Dans les deux cas.

Merci

 

[Softmama]

Re : VBA impression classeur entier

Bonjour,

Tu peux essayer comme ceci :

Private Sub CommandButton1_Click()
For Each fFeuil In ThisWorkbook.Worksheets
    a = fFeuil.Visible
    fFeuil.Visible = True
    fFeuil.PrintOut
    fFeuil.Visible = a
Next fFeuil
End Sub

 

[TheProdigy]

Re : VBA impression classeur entier

Merci,

Comment traduire le fait que si il existe au moins une feuille masquée alors on demande le mot de passe d'impression? Sinon on imprime la classeur entier

Merci.

 

[Softmama]

Re : VBA impression classeur entier

Bonjour,

Essaie comme ceci en remplaçant "toto" par ton mdp :

Private Sub CommandButton1_Click()
For Each fFeuil In ThisWorkbook.Worksheets
    a = fFeuil.Visible
    If a <> True Then
        rép = InputBox("La feuille " & fFeuil.Name & " est masquée" & vbLf & "Entrez le mot de passe pour pouvoir y accéder...")
        If rép = "toto" Then
            fFeuil.Visible = True
            fFeuil.PrintOut
            fFeuil.Visible = a
        Else
            MsgBox "La feuille ne peut être imprimée", vbCritical + vbOKOnly, "Mot de passe erroné"
        End If
    Else
        fFeuil.PrintOut
    End If
Next fFeuil
End Sub

 

[TheProdigy]

Re : VBA impression classeur entier

Re bonjour,

Erreur de compilation objet introuvable il connait pas

fFeuil

Merci.

 

[Compte Supprimé 979]

Re : VBA impression classeur entier

Bonjour,

Tu dois avoir OPTION EXPLICIT dans ton module d'où l'erreur
Il suffit de définir tes variables

[COLOR=#0000fc]Private[/COLOR] [COLOR=#0000fc]Sub[/COLOR] CommandButton1_Click()
[B][COLOR=green]Dim fFeuil as Worksheet[/COLOR][/B]
[COLOR=#0000fc]For[/COLOR] [COLOR=#0000fc]Each[/COLOR] fFeuil [COLOR=#0000fc]In[/COLOR] ThisWorkbook.Worksheets
...

A+

 

[TheProdigy]

Re : VBA impression classeur entier

Merci mais j'ai essayé le même problème.

Private Sub Bouton24_Clic()

en jaune

a=

en bleu.

Merci.

 

[YANN-56]

Re : VBA impression classeur entier

Bonjour à vous, Bonjour Bruno

Je ne gère pas la possibilité d'entrer un mot de passe, mais plus simple: Je ne sais pas faire!

Private Sub CommandButton24_Click()
Dim FEUILLE As Worksheet

   For Each FEUILLE In ThisWorkbook.Worksheets 
      If FEUILLE.ProtectScenarios = False Then
          FEUILLE.PrintOut
      End If
   Next

End Sub

Quant à l'éventuelle proposition de déprotéger provisoirement la feuille,
avec une petite recherche sur le site, tu trouveras plein de solutions.

Amicalement

Yann

 

[TheProdigy]

Re : VBA impression classeur entier

ReBonjour BrunoM45, YANN-56, Softmama YANN-56 et à tout l forum,

Voilà mon problème

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci d'avance

 

[Compte Supprimé 979]

Re : VBA impression classeur entier

Re,

Avec un mot de passe qui bloque l'accès au code ... 😡
comment veux-tu que l'on puisse voir 😕

A+

 

[TheProdigy]

Re : VBA impression classeur entier

OOOOOOOOOOOH dslé

123

Dslé BrunoM45 Dslé le forum.

 

[Compte Supprimé 979]

Re : VBA impression classeur entier

Re,

Pas mal de pb dans ton VBE
- référence manquante : Swiftsoft multimedia tool
je pense que le soucis vient de là

- function sans "End Function"

- code erroné dans sub

Avant de lancer ton code utilises le menu -> Débogage -> Compiler VBAproject
Tu verras, après correction, chez moi ça fonctionne 😉

A+

 

[YANN-56]

Re : VBA impression classeur entier

adilprodigy je te laisse entre de bonnes mains!

Que sont, of Course, celles de BrunoM45

Je ne serai pas vexé que

If FEUILLE.ProtectScenarios = False Then

Reste coincé dans les vieux souvenirs du grenier.

Amicalement.

Yann