impression de plusieurs feuilles de calcul

  • Initiateur de la discussion Initiateur de la discussion unbreton
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

U

unbreton

Guest
Bonjour,

j'ai un fichier que j'utilise régulièrement comportant plusieurs feuilles de calcul. régulièrement, il me faut faire une impression des plusieurs feuilles en même temps. est ce possible de mettre un bouton qui déclenche l'impression des ces feuilles de calcul sans que j'ai besoin des les selectionner toutes avant d'utiliser la touche imprimer ?

Merci

Yannick...unbreton
 
bonsoir Yannick,

Tu peux essayer ca :

Sub Imprime_Feuilles()

Application.ScreenUpdating = False

Dim Feuille As Worksheet
For Each Feuille In Sheets(Array('NomFeuil1', 'NomFeuil2', 'NomFeuil3'))

Feuille.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next

Sheets('Feuille de Traval').Select
Application.ScreenUpdating = True

End Sub



NomFeuil = Les feuilles que tu veux imprimer
Feuille de travail = La feuille où tu veux placer ton bouton

Bonne nuit Lien supprimé
😉
 
bonsoir Yannick,

Tu peux essayer ca :

Sub Imprime_Feuilles()

Application.ScreenUpdating = False

Dim Feuille As Worksheet
For Each Feuille In Sheets(Array('NomFeuil1', 'NomFeuil2', 'NomFeuil3'))

Feuille.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next

Sheets('Feuille de Traval').Select
Application.ScreenUpdating = True

End Sub



NomFeuil = Les feuilles que tu veux imprimer
Feuille de travail = La feuille où tu veux placer ton bouton

Bonne nuit Lien supprimé
😉
 
Je suis désolé mais celà ne fonctionne pas, il me donne deux messages possibles le premier cas 'end sub attendu' (alors qu'ils sont présents)
Le second il y a un problème de débogage

Merci d'avance

Yannick
 
bonsoir,

C'est bizarre j'utilise cette procédure au boulot, et elle fonctionne trés bien ! J'imprime une dizaine de feuille avec.

Tu as bien mis les noms des feuilles que tu veux imprimer et le nonm de ta feuille de travail ?

La procedure commence à :

Sub Imprime_Feuille()

et se termine à :

End Sub

Les deux dernières lignes, NonFeuil = et
Feuille de travail = ne font pas partis de la procédure, elles sont là parce que je ne connait pas le nom des feuilles de ton classeur.


A plus

Pom
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
439
Réponses
17
Affichages
885
Réponses
17
Affichages
1 K
Retour