incrémenter un numéro chronologique à chaque création de documen Résolu/Fermé

Question

Bonjour, 
je cherche à incrémenter un numéro chronologique à chaque création de document basé sur ce modèle.
j'ai trouvé ça
  

 

Créer un nouveau fichier et l'enregistrer en tant que modèle, sous le nom "bon de commande" par exemple.

Créer une macro du nom de "AutoNew" :

Cette macro stocke dans une insertion automatique nommée "numéro" celui attribué au dernier document fondé sur le modèle bon de commande.

Pour initialiser cette insertion automatique, entrer dans le document le numéro qui sera attribué au premier document (moins 1). Sélectionner ce numéro et choisir la commande :

Word 2000 à 2003 : Insertion, Insertion automatique-insertion automatique.
Word 2007 à 2010 : Onglet Insertion ; Groupe Texte, Quickpart, Insertion automatique, Enregistrer la sélection dans la galerie d'insertion automatique

- Taper le nom de l'insertion : "numéro".
- Dans la liste Rechercher dans, sélectionner bon de commande.dot(m) pour l'enregistrer dans le modèle. Cliquer sur Ajouter (2000 à 2003) ou OK (2007 à 2010).
- Effacer le numéro qui a été saisi, enregistrer le modèle et le fermer.

Pour commencer un nouveau bon de commande, choisir Fichier-Nouveau et double-cliquer sur l'icône du modèle Bon de commande. La numérotation se fait et le document est automatiquement sauvegardé (faire attention à se trouver dans le dossier où devra être stocké le bon de commande)

Macro à copier par Alt + F11, coller dans Thisdocument, Fichier, Fermer et retourner à word

Sub AutoNew ()
  num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
  num = num + 1
  ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
  num = Right("0000" & num, 4)
  Selection.TypeText Text:="Bon de commande No " & num
  SendKeys "o"
  ActiveDocument.SaveAs FileName:="Bon de commande" & num & ".doc"

mais après plusieurs essais rien ne marche, un message d'erreur apparait je pense que c'est par ce que je bosse sur WORD 2010

Quelqu'un peux m'aider?
merki




Configuration: Windows Vista / Firefox 37.0

C-Claire · Answer

Bonjour,

"j'ai trouvé ça" : ce serait bien d'indiquer la source.
En l'occurrence, il s'agit du site de m@rina, très présente ici, et plus précisément de la page suivante :
https://www.faqword.com/index.php/word/faq-word/mise-en-forme/466-serait-il-possible-a-partir-dun-modele-word-dincrementer-un-numero-chronologique-a-chaque-creation-de-document-base-sur-ce-modele

Je n'ai pas testé, mais je serais surprise que cela ne fonctionne pas puisque la v2010 est indiquée.

Mais pour avancer, il serait intéressant que tu indiques le contenu du message d'erreur.

tontonzunny · Answer

bonjour
c'est bien cela que j'ai trouvé
je n'arrive pas à le faire fonctionner...peut être cela vient de moi, donc je demande
le message c'est le membre de la collection requise n'existe pas
merci de ta réponse

tontonzunny · Answer

j'ai ça qui apparait apres différentes manip

ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = Num

juste avant une fenetre s'ouvre disant erreur débogage...

tontonzunny · Answer

bonjour
bon j'ai beau faire toutes les manip possibles je n'y arrive pas. Je ne dois pas mettre la macro au bon endroit ou peut être je dois la mal la recopier.
Bref j'ai laissé tombé, je vais passer par excel et incorporer un graphique. 
Je n'ai pasle temps de l'expliquer là mais je le ferais, en gros:
j'ai créé un bouton qui m'incrémente par appuis un numéro (+1 à chaque fois), j'ai utilisé plusieurs cellule pour mise bout à bout ne forme qu'un nombre, et j'ai créé un bouton pour remettre à zéro quand je le désire.
J'expliquerais mieux plu tard...
A bientôt et merci de ta patience

tontonzunny · Answer

Bonjour
comme convenu explication:
je n'arrivais pas à incrémenter via une macro un nombre dans word
du coup je fais tout passer par excel

je créé un bouton et j'y insére une macro qui a chaque appuis fait plus un a un nombre

ce nombre via la fonction insérer tableau dans word viens se grefer

voilà si besoin de plus d'explication...
merci

Incrémenter un numéro chronologique à chaque création de documen

5 réponses