bonsoir le forum,
j'utilise le code ci dessous pour faire du publipost sur excel par contre le code aperçu ne me renvoie qu'une seule page sur toutes celles créées par le publipost.
donc vous avez compris que je cherche une idée pour résoudre mon petit pb !!
merci pour votre aide.
code:
......
Dim DerLig As Integer, L As Integer, Rep
' Dernière ligne de la liste des poules
DerLig = Sheets(feuille).Range("k65536").End(xlUp).Row
' Activer la feuille des poules de 4
Sheets("Poule 4").Activate
' Pour chaque ligne
For L = 3 To DerLig
If Range("N" & L).Value <> "OUI" Then
Sheets("Poule 4").Range("B5").Value = Sheets(feuille).Range("K" & L)
Sheets("Poule 4").Range("B6").Value = Sheets(feuille).Range("L" & L)
Sheets("Poule 4").Range("B7").Value = Sheets(feuille).Range("M" & L)
Sheets("Poule 4").Range("B8").Value = Sheets(feuille).Range("N" & L)
Sheets("Poule 4").Range("B15").Value = Sheets(feuille).Range("O" & L)
Sheets("Poule 4").Range("B16").Value = Sheets(feuille).Range("P" & L)
Sheets("Poule 4").Range("B17").Value = Sheets(feuille).Range("Q" & L)
Sheets("Poule 4").Range("B18").Value = Sheets(feuille).Range("R" & L)
' Impression des poules
Me.Hide
ActiveSheet.PrintOut preview:=True
Me.Show
j'utilise le code ci dessous pour faire du publipost sur excel par contre le code aperçu ne me renvoie qu'une seule page sur toutes celles créées par le publipost.
donc vous avez compris que je cherche une idée pour résoudre mon petit pb !!
merci pour votre aide.
code:
......
Dim DerLig As Integer, L As Integer, Rep
' Dernière ligne de la liste des poules
DerLig = Sheets(feuille).Range("k65536").End(xlUp).Row
' Activer la feuille des poules de 4
Sheets("Poule 4").Activate
' Pour chaque ligne
For L = 3 To DerLig
If Range("N" & L).Value <> "OUI" Then
Sheets("Poule 4").Range("B5").Value = Sheets(feuille).Range("K" & L)
Sheets("Poule 4").Range("B6").Value = Sheets(feuille).Range("L" & L)
Sheets("Poule 4").Range("B7").Value = Sheets(feuille).Range("M" & L)
Sheets("Poule 4").Range("B8").Value = Sheets(feuille).Range("N" & L)
Sheets("Poule 4").Range("B15").Value = Sheets(feuille).Range("O" & L)
Sheets("Poule 4").Range("B16").Value = Sheets(feuille).Range("P" & L)
Sheets("Poule 4").Range("B17").Value = Sheets(feuille).Range("Q" & L)
Sheets("Poule 4").Range("B18").Value = Sheets(feuille).Range("R" & L)
' Impression des poules
Me.Hide
ActiveSheet.PrintOut preview:=True
Me.Show