Imprimer plusieurs fois la meme page avec un numéro différent

Bonjour,

Essaie comme ceci en adaptant les noms des feuilles et des objets
selon ceux de ton application.

La numérotation des pages se fera au centre du pied de page des feuilles.

'--------------------------------------
Sub test()
Dim Sh As Object, Nb As Integer
Dim Rg As Range, C As Range, A As Integer

'Supposons que le contenu de la zone de texte
'se retrouve dans la plage A1:A100 de la Feuil2
Set Rg = Worksheets("Feuil2").Range("A1:A100")
'Nb = Nombre de feuille a imprimer
Nb = Rg.Cells.Count

'Nom feuille a adapter
With Worksheets("Feuil1")
'Nom de la shape a adater
Set Sh = .Shapes("denis").OLEFormat.Object
For Each C In Rg
A = A + 1
Sh.Text = C.Value
With .PageSetup
.CenterFooter = "page " & A & " sur 100 pages"
End With
.PrintOut
Next
End With
End Sub
'--------------------------------------



"Titi" a écrit dans le message de
groupe de discussion :
B6D43415-CD3D-452F-AD7C-8017ABE5FCB1@microsoft.com...
Bonjour à Tous,

Je souhaite imprimer plusieurs fois la même page avec un numéro de
page
différent (de 1 à 100).

Le texte à changer se trouve dans une "zone de texte"

Comment faire ?

Merci d'avance.


--
Cordialement,

Thierry

Désolé, ce n'est pas propre à Word mais à l'application Excel.

Erreur d'aiguillage !

;-))

"Titi" <nomail@mail.com> a écrit dans le message de news:
B6D43415-CD3D-452F-AD7C-8017ABE5FCB1@microsoft.com...

Bonjour à Tous,

Je souhaite imprimer plusieurs fois la même page avec un numéro de
page différent (de 1 à 100).

Le texte à changer se trouve dans une "zone de texte"

Si j'ai bien compris, il y a une page avec un contenu variable...
( 100 versions distinctes)
et vous désirez imprimer les 100 documents correspondants...

Ce que je décris varie plus ou moins selon la version d'office
utilisée...

donc

1. dans Excel
faire un tableau avec :

ligne 1 : "PAGE" ; "Contenu"

Ligne 2 : 1 ; <contenu pour la zone de texte sur la page 1>
ligne 3 : 2 ; <contenu pour la zone de texte sur la page 2>
etc ...

Chaque contenu prévu pour la zone de texte
est dans une unique cellule (B2 ; B3; etc ...)
mais celle -ci peut quand même contenir des retours à la ligne
(avec Alt-Entrée)

2. fermer le classeur et le mettre qqpart avec le document word

3. ouvrir la page avec word

4. menu Outils
lettre et publipostage
fusion et publipostage
a. sélectionner "Lettre" ou "lettre type" ( selon la
version de word)
b. choisir document actuel ( ou intitulé équivalent)
c. liste existante
d. sélectionner le format excel
aller choisir le document fait en 1.
il propose les feuilles existantes
dans le classeur
la tableau est sans doute sur la première.

[ Remarque :
On peut, dans excel, nommer la zone contenant le tableau
( insertion -> nom -> ...)
L'outil de publipostage proposera ce nom là...
C'est plutôt pratique
surtout si à côté du tableau à utiliser
il y a des zones de calculs intermédiaires... ]

5. Normalement, la barre d'outil "Fusion et publipostage" est arrivé
toute seule
sinon, la demander ( outils -> personnaliser -> ...)
Ensuite :

6. a. Se positionner dans la "zone de texte"
"Insérer un champs de fusion"
sélectionner "Contenu"

b. Cliquez sur l'outils "<< >>" avec ABC dessous
qui est visible dans la nouvelle barre d'outils
Cela permet de basculer
entre "affichage du nom du champs" et "Affichage du
résultat"

b. Affichage
Entête et pied de page
pied
se mettre à l'endroit voulu
"Insérer un champs de fusion"
sélectionner "PAGE"

et voilà ...

Ensuite, avec le petit compteur visible sur la barre d'outils
on passe d'une "page" à l'autre... sébo !

Parmi les outils de cette barre ,il y a
"Fusionner vers l'imprimante"
et
"Fusionner vers un nouveau document"

qui seront franchement pratique ;o)

Cordialement,

HB