Bonjour,
J'ai plusieurs fichiers *.CSV dans un meme repertoire, du type :
Fichier brut : NERON_27_06_2013 Fichier renommé : NERON
Fichier brut : BRUTUS_27_06_2013 Fichier renommé : BRUTUS
J'arrive bien a renommer un fichier avec le code :
Dim chemin$, typ$, fic$
typ = ".csv"
fic = Dir(Chemin_Report & "*" & typ)
If fic = "" Then
ElseIf Dir = "" Then
Name Chemin_Report & fic As Chemin_Report & "NERON" & typ
End If
Mais je n'arrive pas quand il y a 2 fichiers et plus.
Merci pour votre aide.
J'ai plusieurs fichiers *.CSV dans un meme repertoire, du type :
Fichier brut : NERON_27_06_2013 Fichier renommé : NERON
Fichier brut : BRUTUS_27_06_2013 Fichier renommé : BRUTUS
J'arrive bien a renommer un fichier avec le code :
Dim chemin$, typ$, fic$
typ = ".csv"
fic = Dir(Chemin_Report & "*" & typ)
If fic = "" Then
ElseIf Dir = "" Then
Name Chemin_Report & fic As Chemin_Report & "NERON" & typ
End If
Mais je n'arrive pas quand il y a 2 fichiers et plus.
Merci pour votre aide.