Discussion :

[120]

essaies ça

Code :

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

1
2
3
4
5
6
7
8
For Each feuille In ActiveWindow.SelectedSheets
    feuille.select
    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

et montre le code de ta macro qui compte les pages...

[liop49]

On avance mais pas dans le bon chemin

Il m'imprime bien les pages impaires de chaque onglets sélectionné maintenant. Mais je souhaite qu'il m'imprime les pages impaires de la sélection dans son ensemble.
En fait mes 2 premiers onglets ont toujours qu'une seule page donc lors de l'impression via la macro (pages impaires dans un 1er temps puis paiges paires dans un 2nd temps) ma page doit avoir au recto l'unique page du 1er onglet ("impression") et au verso l'unique page du 2ième onglet ("Chiffres clés"). ensuite les autres pages imprimées sont fonction des clients car le nb de contacts, d'actions et de produits sont variables.

Est ce plus clair?

Voici le code utilisé dans son ensemble :

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 ex_Impression_V2()
 
' Impression Macro
' Macro enregistrée le 15/02/05 par Nicolas BAUDRY et 120
 
 
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)
 
  For Each feuille In ActiveWindow.SelectedSheets
      feuille.Select
    NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    MsgBox feuille.Name & ": " & NbPages & " pages comptées"
    For i = PremierePage To NbPages Step 2
        ActiveWindow.SelectedSheets.PrintOut From:=i, to:=i, Preview:=True, Collate:=True
    Next i
Next
   Sheets("Fiche Client").Select
   ActiveSheet.Cells(1, 1).Select
 
 
End Sub

[120]

On avance mais pas dans le bon chemin

Je comprends pas pourquoi...

Est ce plus clair?

Pas pour moi...

si tes deux premiers ont une seule page, tu peux les imprimer directement et gérer le reste avec la boucle non?

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
32
33
34
35
36
Sub ex_Impression_V2()
 
' Impression Macro
' Macro enregistrée le 15/02/05 par Nicolas BAUDRY et 120
 
 
 
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)
 
 ActiveWindow.Sheets("Impression").PrintOut Preview:=True, Collate:=True
 
 ActiveWindow.Sheets(""Chiffres Clés"").PrintOut Preview:=True, Collate:=True
 
 
 Sheets(Array( "Contacts", "Actions", "Produits")).Select
 
  For Each feuille In ActiveWindow.SelectedSheets
      feuille.Select
    NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    MsgBox feuille.Name & ": " & NbPages & " pages comptées"
    For i = PremierePage To NbPages Step 2
        ActiveWindow.SelectedSheets.PrintOut From:=i, to:=i, Preview:=True, Collate:=True
    Next i
Next
   Sheets("Fiche Client").Select
   ActiveSheet.Cells(1, 1).Select
 
 
End Sub

[liop49]

Merci 120 pour ton aide.

J'ai trouvé une autre solution et voici le code finale en tout cas merci pour tout car ton aide m'a permis d'avancer et surtout de ne pas lacher prise.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub Impression()
 
 
'Sélection des feuilles à imprimer
 
    Sheets(Array("Impression", "Chiffres Clés", "Contacts", "Actions", "Produits")).Select
 
    Dim wPage As Long
 
    NbPages = 0
 
    'Parcours du classeur et des feuilles sélectionnées afin de déterminer le nombre de pages à imprimer
 
    For Each sht In Workbooks("Base clients_17-02-05.xls").Windows(1).SelectedSheets
 
        sht.Activate
 
        Pages = ExecuteExcel4Macro("Get.Document(50)")
 
        NbPages = NbPages + Pages
 
    Next sht
 
    'Impression des pages impaires
 
    MsgBox ("Impression des pages impaires ! ")
 
    For wPage = 1 To NbPages Step 2
 
        ActiveWindow.SelectedSheets.PrintOut From:=wPage, To:=wPage, Collate:=True
 
    Next wPage
 
    'Impression des pages paires
 
    MsgBox "Impression des pages paires !"
 
    For wPage = 2 To NbPages Step 2
 
        ActiveWindow.SelectedSheets.PrintOut From:=wPage, To:=wPage, Collate:=True
 
    Next wPage
 
   Sheets("Fiche Client").Select
   ActiveSheet.Cells(1, 1).Select
 
End Sub

Merci pour votre aide

A + pour de nouvelles galère de Nico la frite