Re : incrementation d un numero
Bonjour le forum
Une piste à creuser (pour Word)
WD98 : macro à numéro de facture d'incrément dans le nouveau document de formulaire
(Attention utilisation de la base de registre)
et pour Excel
Comment incrémenter un numéro de facture sous Excel X ?
Autre piste (pour Word)
SOURCE: FAQ MS WORD
Serait-il possible à partir d'un modèle WORD, d'incrémenter un numéro chronologique à chaque création de document basé sur ce modèle?
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 Insertion-Insertion automatique-insertion automatique. Taper le nom de l'insertion : "numéro". Dans la liste Rechercher dans, sélectionner bon de commande.dot pour l'enregistrer dans le modèle. Cliquer sur Ajouter. 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 :
Sub AutoNew ()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
Selection.TypeText Text:="Bon de commande No " & num
num = Right("0000" & num, 4)
SendKeys "o"
ActiveDocument.SaveAs FileName:="Bon de commande" & num & ".doc"
End Sub