OVH Cloud OVH Cloud

Numérotation automatique de document

3 réponses
Avatar
René Delcourt
Bonjour,

Y a-t-il un moyen de placer un numero dans un document (s'incrémentant par
1) à la création de celui-ci. En Word ou en VBA.
Merci de vos lumières et joyeuses fêtes.
--
René Delcourt

3 réponses

Avatar
lSteph
Bonjour,
Si tu crée un modèle , son nom s'incrémente.
Le hic c'est que le décompte repart chaque fois de 1 quand tu ouvre
excel.

Suivant le but d'une numérotation, tu vas trouver un exemple
fc-factures,
sur excelabo, il me semble que cela pourrait convenir

http://www.excelabo.net/moteurs/bestclics.php


Cdlt.

lSteph

Il se trouve que René Delcourt a formulé :
Bonjour,

Y a-t-il un moyen de placer un numero dans un document (s'incrémentant par
1) à la création de celui-ci. En Word ou en VBA.
Merci de vos lumières et joyeuses fêtes.


--
- -

Avatar
René Delcourt
Merci pour ta réponse.
Je me suis trompé de forum; ma demande concerne Word
--
René Delcourt



Bonjour,
Si tu crée un modèle , son nom s'incrémente.
Le hic c'est que le décompte repart chaque fois de 1 quand tu ouvre
excel.

Suivant le but d'une numérotation, tu vas trouver un exemple
fc-factures,
sur excelabo, il me semble que cela pourrait convenir

http://www.excelabo.net/moteurs/bestclics.php


Cdlt.

lSteph

Il se trouve que René Delcourt a formulé :
Bonjour,

Y a-t-il un moyen de placer un numero dans un document (s'incrémentant par
1) à la création de celui-ci. En Word ou en VBA.
Merci de vos lumières et joyeuses fêtes.


--
- -






Avatar
DoMi
Personnellement, j'utilise un fichier .ini, un simple fichier texte.
La référence, ici, est composée de 2 lettres et 4 chiffres.
A l'ouverture du fichier, on lit le fichier ini:

On Error Resume Next
Num = FreeFile ' lecture du fichier .ini
Open NomFichierIni For Input As #Num
If Err.Number = 53 Then ' si pas de fichier ini, c'est
que c'est la 1ere référence
Ref = "CR" & "0001" ' on crée la référence
Else
Line Input #Num, Ref ' si le fichier ini existe, on
y lit la référence du dernier fichier enregistré
Ref = Left(Ref, 2) & Format(Val(Right(Ref, 4)) + 1, "0000") '
on l'incrémente
End If
Close #Num

A la fermeture du fichier, on écrit le fichier .ini (sous certaines
conditions, par exemple si on a cliqué sur un bouton "Valider",
puisqu'il ne faudrait pas incrémenter le compteur en cas d'abandon)

Num = FreeFile
Open NomFichierIni For Output As #Num ' on ouvre le fichier ini
Print #Num, Ref ' pour y écrire la
référence
Close #Num

C'est valable aussi bien pour Excel que pour Word...

DoMi



Merci pour ta réponse.
Je me suis trompé de forum; ma demande concerne Word
--
René Delcourt



Bonjour,
Si tu crée un modèle , son nom s'incrémente.
Le hic c'est que le décompte repart chaque fois de 1 quand tu ouvre
excel.

Suivant le but d'une numérotation, tu vas trouver un exemple
fc-factures,
sur excelabo, il me semble que cela pourrait convenir

http://www.excelabo.net/moteurs/bestclics.php


Cdlt.

lSteph

Il se trouve que René Delcourt a formulé :
Bonjour,

Y a-t-il un moyen de placer un numero dans un document (s'incrément ant par
1) à la création de celui-ci. En Word ou en VBA.
Merci de vos lumières et joyeuses fêtes.


--
- -