[VBA-E] Impression page paire sur plusieurs onglets

**liop49** · 15/02/2005, 16h42

Bonjour,

Je suis en train de séché sur mon code et donc je me permets de vous solliciter car je pense que c'est un truc tout con.

Je suis sur un fichier Excel présentant 13 onglets. Je souhaite via ma macro lancer une impression sur 5 onglets. Le truc c'est que je souhaite avoir uniquement les pages impaires dans un premier temps puis les paires. Ma macro me permets de le faire en deux temps mais je n'arrive pas à lui faire comprendre qu'elle doit s'exécuter sur certains onglets uniquement.

Bref, disait Pépin

, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Impression()
'
' Impression Macro
' Macro enregistrée le 15/02/05 par Nicolas BAUDRY
'
 
 
 
 Sheets(Array("Impression", "Chiffres Clés", "Contacts", "Actions", "Produits")).Select
 
 Dim i&, NbPages&, rep, PremierePage&
  rep = MsgBox("Cliquer sur :" & vbLf & _
               "- Oui pour imprimer les pages paires" & vbLf & _
               "- Non pour imprimer les pages impaires" & vbLf & _
               "- Annuler pour quitter sans rien faire.", vbYesNoCancel)
  If rep = vbCancel Then Exit Sub
  PremierePage = IIf(rep = vbYes, 2, 1)
  NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
  For i = PremierePage To NbPages Step 2
    ActiveSheet.PrintOut From:=i, To:=i, Preview:=False
  Next i
 
 
    Sheets("Fiche Client").Select
    ActiveSheet.Cells(1, 1).Select
 
 
End Sub

Merci d'avance pour votre aide

**liop49** · 15/02/2005, 17h41

Personne peut m'aider??

**bidou** · 15/02/2005, 18h10

activesheet n'imprime que la feuille courante non ?

**liop49** · 16/02/2005, 09h02

Ouais tu as raison Bidou !!

Le truc c'est que j'ai essayé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Preview:=True, collate:=True

Mais rien n'y fait. A l'aperçu avant impression, il me met bien mon nbre de page impaire mais il ne m'imprime que la 1ère !!!

Help SVP

**bidou** · 16/02/2005, 09h28

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets(i).PrintOut.....

**liop49** · 16/02/2005, 09h51

Bidou merci pour l'aide mais ca ne marche pas mieux.

Maintenant il ne me propose que le premier onglet à imprimer???

**120** · 16/02/2005, 10h31

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  For i = PremierePage To NbPages Step 2
    Sheets(i).Select
    ActiveSheet.PrintOut  Preview:=False
  Next i

Non?

**liop49** · 16/02/2005, 12h36

120 : Non plus

Il me prend le premier onglet de mon fichier; il ne prend même pas le premier onglet de la sélection!

Voici mon code dans son ensemble et je veux que sur les 15 onglets de mon fichier seules les pages impaires des onglets sélectionnés soient imprimées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Impression()
'
' Impression Macro
' Macro enregistrée le 15/02/05 par Nicolas BAUDRY
'
 
 
 
 Sheets(Array("Impression", "Chiffres Clés", "Contacts", "Actions", "Produits")).Select
 
 
 Dim i&, NbPages&, rep, PremierePage&
  rep = MsgBox("Cliquer sur :" & vbLf & _
               "- Oui pour imprimer les pages paires" & vbLf & _
               "- Non pour imprimer les pages impaires" & vbLf & _
               "- Annuler pour quitter sans rien faire.", vbYesNoCancel)
  If rep = vbCancel Then Exit Sub
  PremierePage = IIf(rep = vbYes, 2, 1)
  NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
  For i = PremierePage To NbPages Step 2
 
    ActiveWindow.SelectedSheets(i).PrintOut From:=i, To:=i, Preview:=True, collate:=True
 
  Next i
 
    Sheets("Fiche Client").Select
    ActiveSheet.Cells(1, 1).Select
 
 
End Sub

J'y arrive pas

[Edité par Thierry AIM; Attention de ne pas désactiver le bbcode dans les messages comportant des balises]

**liop49** · 16/02/2005, 14h28

Bon si je comprends bien mon post ne vous emballe pas

Je pensais que c'était simple mais a priori pas autant qua çà et par conséquent je comprends pourquoi je n'ai pas réussi

Merci quand même à Bisou et 120 pour leur aide.

P.S. : Désolé Thierry AIM, je ne savais pas.

**liop49** · 16/02/2005, 14h28

Bon si je comprends bien mon post ne vous emballe pas

Je pensais que c'était simple mais a priori pas autant qua çà et par conséquent je comprends pourquoi je n'ai pas réussi

Merci quand même à Bidou et 120 pour leur aide.

P.S. : Désolé Thierry AIM, je ne savais pas.

**120** · 16/02/2005, 14h36

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim feuille as worksheet
 
for each feuille in ActiveWindow.SelectedSheets
  if (feuille.index mod 2) =1 then
      feuille.PrintOut  Preview:=False
   end if
next

faut pas se décourager comme ça...

[edit] : j'ai un doute c'est les onglets impairs ou les pages impaires des onglets que tu veux ...
j'ai l'impression que j'ai encore lu trop vite...
Dans le second cas tu peux essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
    i = 1
    While Err.Number = 0
        On Error Resume Next
        feuille.PrintOut i, i, False
        i = i + 2
    Wend
    On Error GoTo 0
Next

[/edit]

**liop49** · 16/02/2005, 15h20

120 : ton code m'a fait une boucle pas joli-joli, j'ai été obligé de faire ctrl alt supp

Bon ce n'est pas grave !!

Ce que je veux en fait c'est sur mon fichier excel de 15 onglets imprimer uniquement les pages impaires (dans un premier temps) des onglets sélectionnés soit seulement 5 onglets sur les 15.
Dans un deuxième temps, je veux imprimer les pages paires des onglets sélectionnés pour obtenir au final un recto-verso en impression des 5 onglets parmis les 15.

Est ce plus clair?

Je te remets ci dessous le code utilisé jusqu'à présent. Le pb, c'est qu'à l'aperçu avant impression il ne prend pas toutes les pages à imprimer mais uniquement la première!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Impression()
'
' Impression Macro
' Macro enregistrée le 15/02/05 par Nicolas BAUDRY
'
 
 
 
 Sheets(Array("Impression", "Chiffres Clés", "Contacts", "Actions", "Produits")).Select
 
 
 Dim i&, NbPages&, rep, PremierePage&
  rep = MsgBox("Cliquer sur :" & vbLf & _
               "- Oui pour imprimer les pages paires" & vbLf & _
               "- Non pour imprimer les pages impaires" & vbLf & _
               "- Annuler pour quitter sans rien faire.", vbYesNoCancel)
  If rep = vbCancel Then Exit Sub
  PremierePage = IIf(rep = vbYes, 2, 1)
  NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
  For i = PremierePage To NbPages Step 2
 
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Preview:=True, collate:=True
 
Next i
 
 
    Sheets("Fiche Client").Select
    ActiveSheet.Cells(1, 1).Select
 
 
End Sub

**120** · 16/02/2005, 15h51

quelle est la valeur de nbPages quand tu entres dans ta boucle?
toutes tes feuilles ont le même nombre de pages?
As tu fait une exécution pas à pas?

**liop49** · 16/02/2005, 15h57

1. Le nbre d epage est variable (c'est fonction de la fiche client choisi)

2. Toutes les feuilles (= tous les onglets) n'ont pas le même nbre de page à imprimer.
Parmi les 5 feuilles, les feuilles "Impression" et "Chiffres Clés" ont une seule page alors que les feuilles "Contacts", "Actions" et "Produits" ont un nbre variable de pages à imprimer

3. Non je n'ai pas fait d'exécution pas à pas mais je m'y mets tout de suite en espérant y trouver qqchose.

Merci de me tenir au courant en fonction des points 1 et 2 que je viens de te fournir

Merci encore pour ton aide

**120** · 16/02/2005, 16h43

Pour moi ta solution sera de ce genre là...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
    nbpages='résultat de ta macro qui compte les pages appliquée à l'onglet en cours
    for i=premierepage to nbpages step 2
        feuille.PrintOut i, i, False
    next
Next

**liop49** · 17/02/2005, 10h06

Marche toujours pas mais je laisse tomber

je ne vais pas automatiser mes impressions et c'est tout

Merci pour votre aide

A t'chao

**120** · 17/02/2005, 11h07

Dommage!
As tu fait l'exécution pas à pas ?
Si oui quelle était la valeur de nbPages ?
Variait -elle dans la boucle ?

**liop49** · 17/02/2005, 11h20

En fait la valeur de nb de page varie entre 5 (obligatoirement le minimum) et 15 pour certains clients

**120** · 17/02/2005, 11h29

OK mais ce je voulais savoir c'est si ton comptage de page fonctionnait bien durant ton prog...
tu pourrais mettre un msgbox pour vérifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each feuille In ActiveWindow.SelectedSheets
    nbpages='résultat de ta macro qui compte les pages appliquée à l'onglet en cours
    msgbox feuille.name &": "& nbpages &" pages comptées"
    for i=premierepage to nbpages step 2
        feuille.PrintOut i, i, False
    next
Next

**liop49** · 17/02/2005, 11h52

Il me mets 1 page comptée !!

Normal car il me prend uniquement la première page du 1er onglet (qui est constitué d'une seule page, si je mets comme premier en sélection l'onglet "Produits" (minimum 3 pages) il m'aurait annoncé pour les pages impaires 2)

Le truc c'est qu'en mettant aperçu avant impression, en bas à gauche c'est bien écrit 1 page sur x (x étant au moins égal à 5). Et le truc n°2 c'est que le bouton "suiv." de l'aperçu est grisé et non utilisable.

:

[VBA-E] Impression page paire sur plusieurs onglets

Macros et VBA Excel

Discussions similaires

Partager

Partager