Incrémenter un nombre à chaque impression

Bonjour,

Voilà mon problème, mon document Word (Correspondant à une fiche d'intervention numérotée) possède une TextBox incluant un numéro, par exemple "Fiche d'intervention N°" "0005".
J'aimerais que ce numéro s'incrémente automatiquement à chaque impression afin d'éviter de le faire manuellement.
J'ai réussi à trouver un code fonctionnel mais qui m'oblige à ajouter un bouton sur ma feuille pour lancer l'impression et donc l'incrémentation. J'aimerais donc obtenir le même code mais sans le bouton avec la démarche "Fichier" "Imprimer" habituelle.

Je vous remercie pour vos réponse !

Salut,

Il faudrait utiliser une procédure événementielle, comme dans Excel BeforePrint.
Saut que par défaut, cet événement n'existe pas dans Word.

Tu as remarqué, Par défaut ...:D

Regarde sur le lien suivant et tu pourras lancer ce que tu veux avant l'impression.
http://www.info-3000.com/vbvba/evenementword/index.php
Bonne lecture. En espérant que cela réponde à ta demande.

Salut,

BeforePrint existe en Word.

Code:

---

1 2 3 4 5 6

Public WithEvents App As Word.Application     Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)   End Sub

---

http://heureuxoli.developpez.com/off...ord/#LII-C-1-c

Merci à vous deux pour vos réponses ! Mon problème est résolu..

Du moins l'incrémentation s'effectue correctement à chaque impression.. Seulement, une nouvelle interrogation m'est survenue, est il possible de faire l'incrémentation lorsque l'on imprime la feuille par exemple en 10 exemplaires d'un coup ??
Là je sent venir les difficultés, puisque avec le code actuel, si je lance une impression en 10 exemplaires, l'incrémentation va se réaliser qu'une seule fois et donc mes 10 exemplaires auront la même référence..? :koi:

Si jamais vous avez des idées, elles sont les bienvenues ! :D

Salut,

Malheureusement, ce sera beaucoup plus complexe.
Le nombre d'exemplaire n'est pas entré dans une boîte de dialogue Word mais dans une boîte Windows.
Récupérer ces infos en VBA ne sera pas aidé du tout, en plus, si on change de PC, la boîte risque de changer aussi.
Il ne te reste qu'à tenter de faire une impression en boucle pour plusieurs exemplaires.

C'est bien ce qu'il me semblais !

En tout cas je vous remercie pour vos informations !