Obliger Excel à n'imprimer qu'une seule page par onglet

beegees

XLDnaute Occasionnel
Bonjour tout le monde,

J'ai un module vba qui remplit des sheets excel automatiquement.

Je dois ensuite imprimer ces sheets (+-200).

Le problème, c'est que parfois, il y'a une sheet qui contient deux pages (la seconde page ne contient rien en fait, c'est juste du blanc).

Est-il possible en VBA, lorsque j'imprime, d'obliger à excel qu'à imprimer QUE la première page de chaque onglet ?

ça serait donc un évènement qui se produirait lorsque l'on clique sur le bouton d'impression.

Où peut être devrais-je créer un bouton personnalisé ? C'est sur le code que je me demande comment faire.

Merci d'avance pour votre aide.

beegees
 

deudecos

XLDnaute Impliqué
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

Salut beegees,

En fait tu peux definir a l'avance ce que tu veux imprimer par feuille.
Pour ca : Selectionnes les cellules a imprimer, va dans fichier - zone d'impression - definir, et c'est enregistre.
Par contre, c'est vrai que pour 200 onglets, ca devient laborieux.

L'autre solution serait de faire la meme operation, en passant par l'enregistreur de macro, et ensuite, par le biais de vba, tu automatise l'evenement.

Bonne journee

Olivier
 

beegees

XLDnaute Occasionnel
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

Salut Deudecos,

Merci pour ta réponse.

Ce que je n'ai pas dit ce que le nombre de ligne peut être différent d'un onglet à l'autre.

Je ne sais pas si ta solution pourrait alors s'appliquer.

Je présûme que chaque sheet excel à la même dimension (c'est à dire qu'une feuille excel contient x ligne et x colonnes), je peux alors jouer là dessus ?

Merci encore.

beegees
 

deudecos

XLDnaute Impliqué
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

re

Tu peux en effet jouer la dessus, mais mieux encore quand tu fais ta mise en page, excel te montre les limites de chaque feuille avec des pointilles, il te suffit de te servir de ces limites pour etre sur de ton coup.

Bonne journee

Olivier
 

DIGGERJACK

XLDnaute Occasionnel
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

Bonjour le forum, deudecos et beegees

Tu peux aussi nommer ta plage d'impression de façon dynamique : cela décalera ta plage d'impression à chaque rajout de ligne

Si cela peut te servir ......
Bonne journée
 

beegees

XLDnaute Occasionnel
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

Bonjour le forum, deudecos et beegees

Tu peux aussi nommer ta plage d'impression de façon dynamique : cela décalera ta plage d'impression à chaque rajout de ligne

Si cela peut te servir ......
Bonne journée

Bonjour DIGGERJACK,

Merci pour ta réponse.

Qu'entends-tu par "nommer ta plage d'impression de façon dynamique" ?

Merci encore pour ton aide.

beegees
 

matthieu33

XLDnaute Occasionnel
Re : Obliger Excel à n'imprimer qu'une seule page par onglet

Bonjour beegees et le forum,

Peux-tu essayer en mettant ce bout de code avant chaque impression de chaque feuille ?
With Worksheets("Nom Feuille").PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With

Dans une feuille du classeur, cela équivaut à effectuer :
- Fichier/Mise en page
- Sur l'onglet Page : sélectionner "Ajuster 1 page(1) en largeur sur toutes en hauteur"

@+
 

Discussions similaires

Statistiques des forums

Discussions
312 249
Messages
2 086 602
Membres
103 258
dernier inscrit
kalis03