impression de plusieurs feuilles de calcul

unbreton

XLDnaute Nouveau
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
 
P

Pom

Guest
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é
;)
 
P

Pom

Guest
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é
;)
 
U

unbreton

Guest
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
 
P

Pom

Guest
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
 

Discussions similaires

Réponses
16
Affichages
756

Statistiques des forums

Discussions
312 967
Messages
2 094 030
Membres
105 920
dernier inscrit
SAUSSARd