Effacer chemin de la memoire

  • Initiateur de la discussion Initiateur de la discussion Dav.42
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dav.42

XLDnaute Nouveau
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" ?

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
589
Retour