Supprimer des dossiers [Résolu]

[Vincent32]

Bonjour,

Il est possible via excel de créer des répertoire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test() 'création répertoires
    Dim ws0 As Worksheet 'Déclaration des variables
    Set ws0 = Worksheets("Macro") 'Attribution de la valeur
    CreationRepertoire ws0.[E9], "\Retraitement" 'Exemple : CreationRepertoire "C:\Documents and Settings\dossier", "Archives" crée un dossier "Archives" dans "C:\Documents and Settings\dossier"
        CreationRepertoire ws0.[E24], "Correction ligne de base"
            CreationRepertoire ws0.[E25], "csv"
            CreationRepertoire ws0.[E25], "txt"
        CreationRepertoire ws0.[E24], "Dérivée première"
            CreationRepertoire ws0.[E26], "csv"
            CreationRepertoire ws0.[E26], "txt"
        CreationRepertoire ws0.[E24], "Dérivée seconde"
            CreationRepertoire ws0.[E27], "csv"
            CreationRepertoire ws0.[E27], "txt"
        CreationRepertoire ws0.[E24], "Données brutes"
            CreationRepertoire ws0.[E28], "csv"
            CreationRepertoire ws0.[E28], "txt"
        CreationRepertoire ws0.[E24], "N-(N-1)"
            CreationRepertoire ws0.[E29], "csv"
            CreationRepertoire ws0.[E29], "txt"
        CreationRepertoire ws0.[E24], "Soustraction"
            CreationRepertoire ws0.[E30], "csv"
            CreationRepertoire ws0.[E30], "txt"
End Sub

Est il en revanche possible de les supprimer via une macro (ainsi que leur contenu ?

Merci d'avance pour votre aide,

Cordialement

Vincent

[kesimon63]

Bonjour,

Dites moi si je me trompe mais il me semble qu'avec l'instruction "Kill" suivi du chemin du répertoire ça fonctionne. A moins qu'on ne puisse supprimer qu'un fichier...

[Vincent32]

Merci pour cette réponse,

Il s'agirait de faire quelque chose comme ça pour supprimer le dossier "retraitement" dont le chemin est indiqué cellule E9 de la feuille intitulé Macro c'est bien ça ? :

Code :

1
2
3
4
5
Sub suppr() 'suppression répertoires
    Dim ws0 As Worksheet 'Déclaration des variables
    Set ws0 = Worksheets("Macro") 'Attribution de la valeur
    kill ws0.[E9], "\Retraitement" '
End Sub

[kesimon63]

Erratum "Kill" ne fonctionne que pour les fichiers.
En revanche cela fonctionne :

Code :

1
2
3
4
5
6
7
8
9
 
Sub test()
 
Dim chemin, doss
Set chemin = CreateObject("Scripting.filesystemobject")
Set doss = chemin.getfolder("ton chemin")
doss.Delete
 
End sub

[Vincent32]

Merci pour cette réponse.

Peux tu m'indiquer à quoi correspond (à quoi ça sert, qu'est ce que ça fait ?) :

Code :

CreateObject("Scripting.filesystemobject")

D'autre part si le chemin où est situé le dossier à supprimer est indiqué dans la cellule A1 de la feuille 1 puis je écrire ceci

Code :

doss = chemin.getfolder(feuil1.range(A1)&dossier)'feuil.A1=répertoire dans lequel est situé le dossier à supprimer, dossier=nom du dossier à supprimer

D'autre part je suppose qu'il supprime tout ce qui est contenu dans le dossier ?

Merci pour ton aide

Cordialement

Vincent

[ZebreLoup]

Pour aider un peu, le CreateObject sert à instancier un objet qui n'est pas de base dans Excel sans ajouter la référence. C'est ce qu'on appelle du late binding.

Tu aurais aussi pu ajouter "Microsoft Scripting Runtime" dans les références et faire :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim fso As New FileSystemObject
Dim doss As Folder
 
Set doss = fso.GetFolder(feuil1.Range("A1"))
doss.Delete
 
End sub

[Philippe JOCHMANS]

Bonjour

Un tuto complet à lire sur le sujet : Manipulation des fichiers en VBA

Philippe

[Vincent32]

Bonjour,

J'ai l'erreur suivante : doss surligner en bleu : objet requis

Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub supdoss() 'suppression du dossier
    Dim chemin, doss As String
    Dim ws0 As Worksheet
    Set ws0 = Worksheets("Macro")
    Dim oFSO As Scripting.FileSystemObject
    Set oFSO = New Scripting.FileSystemObject
'Accède au dossier
If oFSO.FolderExists(ws0.[E24]) Then 'Vérifie si le répertoire existe.
        Set doss = chemin.GetFolder(ws0.[E24])
        doss.Delete
    End If
End Sub

Je ne vois pas ce qui cloche

Bonne journée,

Cordialement

Vincent

[ZebreLoup]

Oublie chemin et utilises oFSO. Ensuite doss est un objet Folder, pas un string.
Tu as vu l'exemple que je t'ai donné ?

[Vincent32]

Bonjour Zebreloup,

Désolé pour mon étourderie, j'avais mal regardé ton code qui fonctionne très bien

Merci beaucoup