Bonjour à tous et toutes,

j'ai fait une petite macro pour renommer un fichier (date + contenu de la celule AB9).
La macro en elle même fonctionne : le fichier nouvellement renommé apparait mais l'ancien fichier n'est pas ecrasé par le nouveau .
Ainsi, j'ai sur mon bureau, les deux mêmes fichiers dont l'un nouvellement renommé et le second avec toujours son ancienne appelation.
Je souhaiterais supprimer l'ancien fichier mais je ne sais pas comment m'y prendre
J'ajoute que le fichier original ( l'ancien fichier) possede un nom aléatoire qui change chaque jour.

Je vous joins ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Renommer()
If Range("A1").Value = "HERMES - JOURNAL D'ACTIVITE TRANSPORT DEPART:" Then Range("AB9").Value = "DEPART" Else
If Range("A1").Value = "HERMES - JOURNAL D'ACTIVITE TRANSPORT ARRIVEE:" Then Range("AB9").Value = "ARRIVEE"
 
Dim nom As String, Fichier As String
nom = Range("AB9") & "-" & Format([B5].Value, "dddd-dd-mm-yyyy")
 
'Nom à donner au nouveau fichier
Fichier = nom
 
'Enregistrement au format du classeur
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
 
End Sub