Incrémenter un numéro par impression

[jerome]

Bonjour,
Je souhaiterais savoir si il est possible d'imcrémenter un numéro pour chaque impresion d'une meme feuille.
J'ai une feuille type, je lance 100 impréssions de la meme feuille mais que chaque impréssion soit numéroté de 1 à 100 sur la feuille
Merci d'avance
Jérôme

 

[dg62]

Bonjour Jérôme

Sub imprim()
For i = 1 To 100
Range('A1').Value = 'exemplaire n°' & i
ActiveWindow.SelectedSheets.PrintOut 
Next i
End Sub

Cordialement

 

[Jérôme]

Merci beaucoup je teste cela demain.

Jérôme