Effacer chemin de la memoire

[Dav.42]

Bonjour,
J'ai réaliser une petit macro qui me permet d'ouvri un fichier, recuperer son nom, rénomer le fichier et le déplacer.
Le souci ce que je n'arrive a supprimer le dossier, car il est "utiliser", comment je peux effacer la "mémoire" ?

Sub Fichier()

'Ouverture image pour copier chemin avec nom
ImageChemin = Application.GetOpenFilename("Fichiers PNG (*.png),*.png")

'Si on annule, cela quitte la macro
If ImageChemin = False Then Exit Sub

'Recherche le 1er "\" dans le chemin inversé
Slash1 = Application.Find("\", StrReverse(ImageChemin))

'Recherche le 2eme "\" dans le chemin inversé
Slash2 = InStr(Slash1 + 1, StrReverse(ImageChemin), "\")

'Recupere le nom du dossier entre les 2 "\"
image = StrReverse(Mid(StrReverse(ImageChemin), Slash1 + 1, Slash2 - Slash1 - 1))

'Déplace et renonnme l'image avec le nom du dossier
Name ImageChemin As ActiveWorkbook.Path & "\Photos\" & image & ".png"

'Supprimer Dossier
DossierSuppr = StrReverse(Mid(StrReverse(ImageChemin), Slash1 + 1))

Range("D4").Value = DossierSuppr
'Copier le nom de l'image en D3
Range("c3").Value = image
ImageChemin = ""
Dim FS
    Set FS = CreateObject("Scripting.FileSystemObject")
    FS.Deletefolder Range("D4").Value
End Sub

 

[chris]

Re : Effacer chemin de la memoire

Bonjour

Essayes ChDir pour changer le dossier courant