Discussion :

[facteur]

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

[datacell33]

L'objet Workbook ne possède pas de méthode delete en effet...
D'ailleurs, sous Excel tu ne peux jamais supprimer un fichier ! Dans le menu fichier, tu as enregistrer sous, mais pas supprimer. C'est une action gérée par le système (Windows).
Donc y'a plusieurs façon de faire, perso d'habitude je bosse avec le FSO qui me donne entière satisfaction pour manipuler le système de fichier.

Tu peux donc écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Suppression du fichier
Set fichier_encours= fso.GetFile("moncheminsource")   'Fichier origine
fichier_encours.delete

Mais y'a d'autres façon peut être plus rapide...

[Jean-Philippe André]

salut,
je préconise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Dir(Fichier)<>"" Then Kill Fichier

[Minick]

Une autre facon de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim FichierSource As String
 
FichierSource = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
 
.
.
.
 
'Enregistrement au format du classeur
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
 
Kill (FichierSource)

[facteur]

Merci infiniment Minick .
Ton petit bout de macro fonctionne à merveille.
Je remercie aussi les autres intervenants pour leur réponse.