Supprimer des fichiers dans des dossiers

Bonjour,

Explication :

Dans mon fichier Excel à l'aide une macro je supprime des dossiers

Quand les dossiers sont vides ils se suppriment correctement

Mais quand il y a des fichiers dans ses dossiers cela m'affiche une erreur

je souhaiterai quand je demande la suppression des dossier que ça me supprime aussi tout se que les dossier comprend (en l’occurrence des fichier .xlsm et .txt)

Voici ma macro actuelle :

'Supprimer le dossier du Gestionnaire

Dim NOMDOSSIER2 As String, NOMDOSSIER3 As String

NOMDOSSIER2 = "Archives"

NOMDOSSIER3 = "Dossier où placer l'extraction DOCUBASE"

RmDir ThisWorkbook.Path & "\" & Nom & "\" & NOMDOSSIER2

RmDir ThisWorkbook.Path & "\" & Nom & "\" & NOMDOSSIER3

RmDir ThisWorkbook.Path & "\" & Nom

Bonjour

Un code de Joss à tester

Attention !supprime les fichiers du répertoire ainsi que le répertoire

Sub SupprimRépertoire()
Kill "C:\aaa\*.*" 
'si le répertoire n'est pas vide supprime tous les fichiers
RmDir "c:\aaa"
' Supprime le répertoire aaa.
End Sub

Cordialement

NON ne fonctionne pas ...

erreur de ligne

la macro ne reconnait pas les *.*

Bonjour

un autre Code trouvé sur un autre Forum

Supprimer seulement le contenu du dossier

Sub SupprContenu()
Dim Fic As String
    Fic = Dir("C:\essai\*.xls")
    Do While Fic <> ""
        Kill "C:\essai\" & Fic
        Fic = Dir
    Loop
End Sub

et pour supprimer le dossier et tout son contenu (sous-dossiers compris) :

Sub SupprDoss()
Dim FS
    Set FS = CreateObject("Scripting.FileSystemObject")
    FS.Deletefolder "C:\essai"
End Sub

Cordialement

j'aurais besoin d'un peut plus qu'explication svp

mon fichier excel porte le nom : SUIVI P13

je souhaite surprimer le dossier Q:\SRH\ALBAN\Archives ainsi que son contenu

parfois le dossier est vide, je souhaite qu'il soit supprimer quand même

merci

alban

Bonjour

Suppression irrémédiable du contenu du dossier WWW

Sub SupprContenu()
Dim Fic As String
    Fic = Dir("Q:\SRH\ALBAN\Archives\*.*")
    Do While Fic <> ""
        Kill "Q:\SRH\ALBAN\Archives\" & Fic
        Fic = Dir
    Loop
End Sub

Suppression irrémédiable du Dossier et de son contenu

Sub SupprDoss()
Dim FS
    Set FS = CreateObject("Scripting.FileSystemObject")
    FS.Deletefolder "Q:\SRH\ALBAN\Archives"
End Sub

La macro est en place sur ce fichier, il te suffit de cliquer sur le bouton.

Cordialement

Merci, opération résolu ...

J’ai trouvé la macro parfait pour répondre à mes attentes

Dim FS

Set FS = CreateObject("Scripting.FileSystemObject")

FS.Deletefolder ThisWorkbook.Path & "\" & Nom