Bonjour !
j'utilise cette méthode pour ne modifier que les fichiers avec les extensions .EDI mais elle ne fonctionne pas et je ne vois pas où est l'erreur...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
If (GetExtention(f2) = "edi") Then
        datejour = year(now()) & mois & day(now())
        partfic = split(f2.name,".")
        f2.name = datejour & partfic(0)& "_" & cpt & ".edi"
        cpt = cpt+1
        'f2.move("D:\Stepcom\OUT\"& f2.name)
 
end if
Merci d'avance !