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