Salut Yannick,
voici un code que j'ai ecris pour le meme pb il y a qq mois, ici le fichier et supprimer, je n'ai pas encore reflechi pour le deplacer...
cette macro fais une copy renommee du classeur (SaveAs) dans le meme dossier que l'ancien (appele ActivePath) puis "tue" l'ancien.
Cn = MsgBox("Are you sure you want to change the filename:" & vbCrLf & vbCrLf & ResultLab & vbCrLf & vbCrLf & _
"TO:" & vbCrLf & vbCrLf & ResultChange.Value & ".xls", vbYesNo, "Change filename")
' C'est un message de confirmation (ResultLab et ResultChange sont des labels/textboxs)
If Cn = 6 Then '=si oui
Windows("Classeur_a_effacer.xls").Activate
Set wb = ActiveWorkbook: ActivePath = Left(wb.FullName, Len(wb.FullName) - Len(ActiveWorkbook.Name))
'code trouve sur ce forum tel quel
Newname = ActivePath & ResultChange.Text & ".xls"
On Error Resume Next
ActiveWorkbook.SaveAs FileName:=Newname
'le fameux SaveAs
Df = MsgBox("Do you want to delete definitively the former file:" & vbCrLf & ResultLab, vbYesNo, "Delete ?")
'message de confirmation pour effacer
If Df = 6 Then 'si=oui
Pa = ActivePath & ResultLab.Caption
Kill Pa
End If
'L'ancien fichier est efface
ResultLab.Caption = ResultChange & ".xls"
End If
Attention, j'ai vu dans un fil que certain antivirus n'acceptent pas "Kill", et il me semble que le "repondeur" de ce fil disait que si c'est le cas, il n'y a pas d'autre moyen que d'effacer manuellement (dans ton cas tu peux essayer de deplacer).
A++, Sylsyl.
P.S.:j'ai fais copier/coller puis le menage mais il reste peut etre des lignes inutiles ou des lignes manquantes.