Suprimer un dossier

[creolia]

Bonjour j'aurais encore une fois besoin de vos lumiere

j'utilise ce code

Mkdir ThisWorkbook.Path & "\extrait\" & Combobox1.Text

pour creer un dossier celui ci fonctionne bien

mais je n'arrive pas à l"adapter pour suprimer un fichier j'ai bien essayer comme ceci

Kill ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text

mais il me dit fichier introuvable

faut il ajouter quelque chose de plus

merci pour votre aide

 

[CBernardT]

Re : Suprimer un dossier

Bonjour Creolia,


Essaye avec une syntaxe de ce style :

Sub KillFichier()
Dim Chemin As String, Lenom As String, Fichier As String

Chemin = ThisWorkbook.Path

Lenom = ComboFeuil.Text

Fichier = Chemin & "\" & Lenom

Kill Fichier

End Sub

 

[Guest]

Re : Suprimer un dossier

Bonjour,

Mettre dans une variable avant pour pouvoir controler le contenu:

Dim FichierPath As string
 
FichierPath=ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text
If Dir(FichierPath)<>"" Then Kill FichierPath

Au besoin mettre un point d'arrêt sur la ligne If Dir et controler la variable FichierPath

A+

 

[Etienne2323]

Re : Suprimer un dossier

Bonjour creolia,
voici un bout de code commenté qui devrait remplir votre demande.

Ce code est facilement adaptable pour supprimer plusieurs fichier ou encore supprimer tous les fichiers d'un dossier en boucle.

Au plaisir de vous recroiser !

Étienne

Sub Effacer_un_fichier()


  Dim objFSO, objDossier, objFichier, Le_Fichier_a_supprimer, FS
  Dim Repertoire

  On Error Resume Next
  
  'Il suffit de changer le chemin ici pour le chemin du dossier
  'dans lequel se trouve votre fichier
  Repertoire = "C:\Documents and Settings\Etienne\Bureau\TEST\"
  
  'Vous n'avez ici qu'à renommer le fichier avec le nom du fichier
  'que vous souhaitez supprimer
  Le_Fichier_a_supprimer = "TEST.txt"
  
  
  FS = Repertoire & Le_Fichier_a_supprimer
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Repertoire)
  
  'On va analyser chacun des fichiers du dossier qui vous avez sélectionné et
  'si un des fichiers que contient se dossier porte le nom que vous avez
  'inscrit plus haut, alors il le supprimera.
  
  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If objFichier = FS Then objFichier.Delete
     Next
  End If

  Set objDossier = Nothing
  Set objFSO = Nothing

End Sub

Edit : Meilleures salutations à vous deux, Hasco et Bernard.

 

[creolia]

Re : Suprimer un dossier

bonjour CBernardT,Hasco,Etienne

j'ai tenter les differentes metode

CBernardT il me met toujour l'erreur que le fichier est intouvable

hasco tu ma dis de le mettre dans une variable j'ai pas vraiment compris je l'ai mis direct dans un bouton mais sans resultat pas erreur mais il me le suprime pas

etienne le code que tu me propose est pour une adresse precise sauf que la l'adresse peut varier

je vais faire un fichier en pj se seras plus simple je pense pour les explication

à tout de suite

 

[creolia]

Re : Suprimer un dossier

Re voila comme promis j'ai fais un fichier en y inserant les 2 methode proposé

j'ai toujour une erreur sur celui de ctBernard et celui de hasco rien ne se passe

merci encore pour votre patience

 

[Guest]

Re : Suprimer un dossier

Re Creolia,

Pour détruire un dossier c'est rmDir Dossier et non Kill Fichier

Private Sub CommandButton1_Click()
Dim DossierPath As String
 
DossierPath = ThisWorkbook.Path & "\Diplome\" &  ComboFeuil.Text
If Dir(DossierPath, vbDirectory) <> "" Then RmDir DossierPath
End Sub

En faisant une recherche dans l'aide excel sur MkDir tu aurais trouver la solution dans la liste 'voir aussi' en haut de l'aide.

A+

 

[JNP]

Re : Suprimer un dossier

Bonjour le fil 🙂,

j'utilise ce code

Mkdir ThisWorkbook.Path & "\extrait\" & Combobox1.Text

pour creer un dossier celui ci fonctionne bien
mais je n'arrive pas à l"adapter pour suprimer un fichier j'ai bien essayer comme ceci

Kill ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text

mais il me dit fichier introuvable

J'ai un doute, c'est pas un dossier que tu veux supprimer ?

Sub test()
Dim objFSO, objDossier, Chemin as String
Chemin = ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Chemin)
objDossier.Delete
End Sub

Bonne soirée 😎
Ajout : Salut Hasco, c'est bien la reflexion que je me faisais 😛