Discussion :

[Mrfreeze117]

Bonjour à tous,

Voici mon problème: je crée un dossier tempon pour ouvrir des fichiers zip et à la fin de la macro je voudrai supprimer ce dossier mais ça me mets le message d'erreur Erreur d'exécution 75.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
 
Dossiertempasup = "C:\Users\xxx\Desktop\Dossier tempon à sup"
            If Dir(Dossiertempasup, vbDirectory) = "" Then
            MkDir Dossiertempasup
            End If
'là je fais des truc 
 
'et à la fin de ma macro je souhaite le supprimer
 
RmDir Dossiertempasup

Je comprends pas pourquoi ça ne veut pas le supprimer, il me dit "erreur d'accès Chemin/Fichier" mais le chemin est le bon vu qu'il est dans une variable et que c'est la même.
Ce n'est pas un problème de droit vu que j'arrive à le créer et que en manuel j'arrive à le supprimer sans aucun souci.

Merci d'avance pour votre aide.

[SfJ5Rpw8]

bonjour,

ton répertoire doit être vide est-ce le cas ?

[kiki29]

Salut, regarde via FSO

[SfJ5Rpw8]

tu as oublié la création de ton objet oFso : une ligne de code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFSO = New Scripting.FileSystemObject

[Mrfreeze117]

Super

Ça marche nickel

Merci beaucoup

[kiki29]

Salut, puisque l'on en est au stade des conseils, lire Early ou Late Binding

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim FSO As Object, sDossier As String
    sDossier = "C:\Users\xxx\Desktop\Dossier tempon à sup"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(sDossier) Then FSO.DeleteFolder sDossier, False
    Set FSO = Nothing

[Mrfreeze117]

@bbil : non il y a d'autre dossier dedans avec des fichiers xls

@kiki29 : Je viens d'essayer avec la commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim oFSO As Scripting.FileSystemObject
oFSO.DeleteFolder "C:\Users\xxx\Desktop\Dossier tempon à sup", False

Ça me met erreur d'exécution 91 variable objet ou variable de bloc With non définie.