Question excelement compliquée !!

[alf43]

Bonjour le forum,
j'ai besoin d'un coup de main pour résoudre un problème d'aperçu:
le code suivant me sert de ""publipostage""
avant d'imprimer mes feuilles de résulats je désire visualiser chaque page créée mais je n'y arrive pas; seule la première s'affiche et l'aperçu me signale page 1 sur 1 même si j'en imprime plusieurs différentes.

si qq1 c'est quoi faire
merci


Dim DerLig As Integer, L As Integer, Rep
DerLig = Sheets(Feuille).Range("k65536").End(xlUp).Row
Sheets("Poule 4").Activate
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

End If
Next

 

[Celeborn61]

Re : Question excelement compliquée !!

Salut,

As tu essayé de lui dire que c'était un seul document ?
ActiveWorkbook.PrintOut Copies:=1, Preview:=True, Collate:=True

 

[alf43]

Re : Question excelement compliquée !!

salut celeborn,
j'avais essayé ce code mais avec une erreur. le tien fonctionne mais comme imaginé elle me donne l'aperçu de tout le classeur etpas seulement des pages créées par le code ci dessus.
merci quand même de ton intéret.

 

[alf43]

Re : Question excelement compliquée !!

je n'arrive toujours pas à trouver un solution
j'ai essayé
ActiveWorkbook.PrintOut Copies:=1, Preview:=True

et meme
Activesheet.PrintOut Copies:=1, Preview:=True
mais la seconde version ne me donne toujours que la vue de la première des pages créées

ce n'est peut etre pas possible !!!

 

[alf43]

Re : Question excelement compliquée !!

bonjour le forum,
je relance ma question une nouvelle fois car c'est le dernier point afin de finaliser mon projet.
si vous pouviez au moins me dire si c'est réalisable
je cherche peut etre avec une création de feuille provisoire que je delete ensuite, mais je n'arrive pas à copier les résultats de mon code donné plus haut.
merci quand même à ceux qui ont pris le temps d'y réfléchir
a+
alf