Macro enregistrement qui ecrit date et numero incremental

pilcar Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je souhaite une macro qui pourrait me donne en automatique un nom de fichier qui se compose de la date du joue et d'un numero qui s'increment automatiquement par rapport au fichier existant
ex
01_toto_16122012
02_toto_16122012

Merci
A voir également:

4 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

rapport au fichier existant lequel?? celui qui a la macro ou.....
0
pilcar Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   5
 
j'ai une macro qui ma sauvegarde mon fichier en automatique dans un repertoire precis mais je suis obligé de lui donner un nom manuellement.
ex 02_toto_16122012
je voudrais qu'elle m'incrive en auto
03(numero incremental)_toto_16122012(date du jour)
Merci pour votre aide
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Si les noms de tes fichiers sont tous de la forme : numéro + underscore + NOM + underscore + Date, il te faut :
- boucler sur tous les fichiers du répertoire,
- tester si les caractères précédents le premier underscore sont numériques,
- si c'est le cas :
==> 1er fichier de la boucle = on stocke ce numéro dans une variable "num"
==> autres fichiers, on compare ce numéro à celui déjà stocké dans la variable, s'il est plus petit : fichier suivant, s'il est plus grand on le stocke à la place de l'ancien...
- en fin de boucle, on obtient donc le + grand numéro de fichier, suffit d'y ajouter 1
- on enregistre le fichier sous :
num & "_TOTO_" & Format(Date, "ddmmyyyy")
0
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour pilcar, pijaku, f894009,

Une idée pour raccourcir les boucles est de changer le format de nom de fichier:
toto_16122012_01
toto_16122012_02

La recherche s'effectuerait d'abord sur la date, puis uniquement sur le numéro
0