Changement format date dans noms de fichiers

Version imprimable

15/06/2022, 09h35
Ysae68

Changement format date dans noms de fichiers

Bonjour à tous,

J'ai des fichiers dont le nom se présente sous cette forme : J_RM_03.04.2022, J_RJ_11.05.2022, J_RH_30.05.2022, etc. Il a été décidé de changer le format de la date pour qu'elle apparaisse en année mois jour, sans caractères séparateurs. Par exemple, le document J_RH_30.05.2022 deviendra J_RH_20220530. Comme il y a beaucoup de fichiers, j'aimerais automatiser tout ça et ne pas avoir à changer les noms manuellement un par un.

J'ai déjà eu besoin de changer des noms de fichiers, j'ai donc des petits scripts, mais ils servent soit à changer tout le nom des fichiers, ou alors à remplacer un caractère précis. Je bloque sur la partie manipulation de chaîne de caractères pour mes dates... J'aurais bien besoin d'un coup de pouce parce que même en lisant la doc sur le sujet, je ne vois pas par quel bout aborder mon problème :oops:

Merci d'avance pour votre aide !

Salut

Si c'est la partie formatage, cette fonction doit faire le job

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' J_RM_03.04.2022
' J_RJ_11.05.2022
' J_RH_30.05.2022 ===>
' J_RH_20220530
Dim NameFicheier
NameFicheier = "J_RH_30.05.2022.XXX"
 
NewNameFichier = ParseName(NameFicheier) 'appel à la fonction
msgbox NewNameFichier ' affichage
 
'**********************************************************************
Function ParseName(FichierName)
        Dim Eclater
        Dim NbrIdx, T
 
        Eclater = split(replace(FichierName,"_","."),".")
        NbrIdx = ubound(Eclater)
 
        For T = 0 To NbrIdx
                If Not Isnumeric(Eclater(T)) Then
                        If T = 0 Then
                                ParseName = Eclater(T)
                        Else
                                ParseName = ParseName & "_" & Eclater(T)
                        End If
                Else
                        Exit For
               End If
        Next
        ParseName = ParseName & "_" & Eclater(NbrIdx-1)&Eclater(NbrIdx-2)&Eclater(NbrIdx-3)&"."&Eclater(NbrIdx)
End Function
'**********************************************************************

J'ai ajouter .XXX au nom du fichier pensant que tes fichiers ont un attribut Type

15/06/2022, 15h59
ProgElecT

Re

Si les fichier n'ont pas de Type, il faut remplacer la ligne 30 par

Code:

ParseName = ParseName & "_" & Eclater(NbrIdx)&Eclater(NbrIdx-1)&Eclater(NbrIdx-2)