Générer un nom de fichier avec numéro

Ok, le titre de ce billet est complètement nébuleux ! En clair : vous disposez du chemin complet d’un fichier (par exemple : C:\un\chemin\quelconque\test.jpg), et vous souhaitez le transformer en C:\un\chemin\quelconque\test-00001.jpg si un fichier test.jpg existe déjà à cet emplacement.

Quelques pré-requis

Le code qui va suivre utilise lui-même d’autres portions de VBA publiées sur ce blog, portions que vous devez aussi intégrer à votre base de données. Reportez-vous à ces articles :

Le code

Exemple

Pour tester ce bout de code :

  1. Ouvrez la fenêtre Exécution (CTRL + G).
  2. Tapez-y quelque chose comme :
    ? FilenameInc("C:\un\chemin\quelconque\test.jpg")

Si aucun fichier test.jpg, n’existe à cet emplacement, le résultat affiché sera :
C:\un\chemin\quelconque\test.jpg

Dans le cas contraire, le chemin sera :
C:\un\chemin\quelconque\test-00001.jpg

Et si un fichier test-00001.jpg existe aussi, le chemin proposé sera :
C:\un\chemin\quelconque\test-00002.jpg

Bien sûr, ce code n’a aucun intérêt s’il est utilisé tout seul. La fonction FilenameInc() ne renomme pas de fichier, elle ne fait que proposer le prochain « nom numéroté » disponible. Elle sera utilisée dans d’autres articles à venir.

Vous aimerez aussi...

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *