Sub renomme()
Dim ANCIENNom As String
Dim NOUVEAUNom As String
ANCIENNom = "C:\ton chemin\fichier.recu"
NOUVEAUNom = "C:\ton chemin\fichier.csv"
'Vérifie si le fichier à renommer existe.
If Dir(ANCIENNom) = "" Then Exit Sub
Name ANCIENNom As NOUVEAUNom 'renomme le classeur
End Sub