Forums XLPages

Excel & VBA Forum principal [résolu] suppression dossier vide

suppression dossier vide
#1
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 26-02-2012 00h31
Bonsoir le forum!!
je chercher un code pour supprimer des dossiers vides dans un répertoire
chemin du répertoire "C:\Users\Slijack\Desktop\Pact\Amelioration\ES"
merci d'avance pour l'aide que vous pourriez m'apporter
"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#2
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 19h06
Salut le forum

Merci Slijack de fournir la solution proposée par un autre forum.

C'est la moindre des choses lorsque l'on fait du «Crosspostage»

Mytå
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#3
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 26-02-2012 23h57
bonsoir Myta
si j'ai pas fournie la solution c'est qu'elle n'est pas encore réglée, dès que je l'aurai je ne manquerai pas de le faire.
Et dorénavant je ne ferai plus de Crosspostage puisse que cela semble etre une mauvaise pratique.

"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#4
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 27-02-2012 00h48
 Re le forum

Slijack, ce n'est pas mauvais lorsque l'on prends la peine de le mentionner.

Mais bien souvent, lorsqu'il y a «Crosspostage»,
je n'apporte pas d'aide sur la question posée. (Choix personnel)

Mytå
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#5
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 27-02-2012 01h33
Bonsoir Slijack, Mytå, le Forum,

Je partage tout à fait l'avis de l'ami Mytå sur ce que, moi, j'appelle (à tord selon Wikipedia ) le « multiposts ». J'explique d'ailleurs dans la FAQ du site mon sentiment sur ce point.

Bien évidemment Slijack, ce n'est pas grave. C'est juste une façon de voir les choses et un point de vue partagé il me semble par beaucoup de contributeurs habitués des forums.

J'en profite pour saluer et remercier notre ami Mytå pour ses contributions toujours bienvenues sur le présent site.

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#6
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 27-02-2012 02h23
 Re MyDearFriend, Slijack et le forum.

Une solution de Banzai64 basé sur un code du Site Excelabo
Option Explicit

Dim Ligne As Long

Sub RechercheFichiers()
Dim Chemin As String
Dim Ws As Worksheet
Dim I As Integer
Dim Fso As Object
Dim Dossier_Principal
Dim FdFolder As FileDialog

  Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)
  With FdFolder
    If .Show = -1 Then                    ' Clic sur Ok
      Chemin = .SelectedItems(1)
    Else                                  ' Clic sur Annuler
      Exit Sub
    End If
  End With
 
  Set FdFolder = Nothing
 
  Columns("A:B").Clear
  Ligne = 0
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier_Principal = Fso.getfolder(Chemin)
  Lit_Dossier Dossier_Principal
  Columns("A:B").AutoFit
End Sub

Sub Lit_Dossier(ByRef Dossier)
Dim Rep As Object

  For Each Rep In Dossier.SubFolders
    Lit_Dossier Rep
  Next
 
  On Error Resume Next
  Ligne = Ligne + 1
  Range("A" & Ligne) = Dossier.Path
  On Error Resume Next
  RmDir Dossier.Path
  If Err.Number = 0 Then
    Range("B" & Ligne) = "Effacé"
  Else
    Range("B" & Ligne) = "Non effacé"
  End If
  On Error GoTo 0
End Sub
Remove Directory (RmDir)
  • Commande interne DOS, elle permet de supprimer un répertoire vide.

Mytå





Edité par Mytå le 27/02/2012 02:39:10
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#7
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 28-02-2012 00h10
Bonsoir le forum !!!!

Problème résolus, je joins un fichier exemple
merci pour votre patience et votre aide
Pièce jointe:
xlsm Slijack V1.xlsm   [ Taille: 28.07 Ko - Téléchargements: 703 ]
"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   2 Utilisateur(s) anonymes