compteur d'impression

[jtitin]

bonjour à tous

j'ai trouvé dans le forum une macro que je voudrais utiliser pour incrémenter un compteur pour chaque nouvelle feuille imprimée.
mais je ne parvient pas à obtenir le résultat désiré.
le compteur s'incrémente mais les feuilles imprimées portent le même numéro.
Ex: je souhaite imprimer 3 fois la feuille active, mon comteur est à 100
le compteur s'incrémente bien à 103 mais mes trois feuilles imprimés portent toutes le même N° le 100
que faut il modifier pour obtenir le résultat esconté ?

merci pour votre aide
ps: ci joint fichier explicatif

 

[Modeste]

Re : compteur d'impression

salut jtitin, le forum,

peut-être en inversant les 2 dernières instructions:

For i = 1 To exemplaires
'impression de la feuille
[COLOR="Red"]Range("A1").Value = Range("A1").Value + 1 'incrément du numéro
ActiveSheet.PrintOut 'MsgBox Range("A1").Value[/COLOR]
Next

Mais je ne vois pas pourquoi, si tu en imprimais 3, les numéros restaient les mêmes. Je n'ai fait qu'un test et ça a l'air de fonctionner.

Modeste