Macro enregistrement qui ecrit date et numero incremental

Fermé
pilcar Messages postés 19 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 7 novembre 2013 - 16 déc. 2012 à 08:51
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 17 déc. 2012 à 12:26
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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
16 déc. 2012 à 10:20
Bonjour,

rapport au fichier existant lequel?? celui qui a la macro ou.....
0
pilcar Messages postés 19 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 7 novembre 2013 5
16 déc. 2012 à 12:57
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
17 déc. 2012 à 11:29
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 vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 92
17 déc. 2012 à 12:26
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