Macro pour supprimer contenu dossier sauf un fichier

Re : Macro pour supprimer contenu dossier sauf un fichier

Bonjour Moreno, bonjour le forum,

en rajoutant une condition (à adapter à ton cas):

Re : Macro pour supprimer contenu dossier sauf un fichier

Bonjour Robert,

Voilà mon code

Private Sub Workbook_Open()
If MsgBox("Bonjour," & Chr(10) & Chr(10) & "Voulez-vous effacer le contenu de M:\extractions reappro\ ?", vbYesNo + vbExclamation + vbDefaultButton1, "Suppression fichiers") = vbYes Then
Dim Fic As String
Fic = Dir("C:\extractions reappros\*.xls")
Do While Fic <> ""
If Fic <> "Gestion ruptures.xls" Then Kill "c:\extractions reappros\" & Fic
Fic = Dir
Loop
MsgBox "Vous pouvez désormais extraire :" & Chr(10) & Chr(10) & "- l'extraction réappro ;" & Chr(10) & "- les ruptures ;" & Chr(10) & "- les WMS.", vbInformation, "Extractions"
End If
End Sub

Ca ne fonctionne pas chez moi ca me met erreur 70...

Robert à dit:

Bonjour Moreno, bonjour le forum,

en rajoutant une condition (à adapter à ton cas):

Code:

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

Cliquez pour agrandir...

Re : Macro pour supprimer contenu dossier sauf un fichier

Bonjour Moreno, bonjour le forum,

Il y a un End If en trop à l'avant dernière ligne de ton code, avant le End Sub...

Re : Macro pour supprimer contenu dossier sauf un fichier

ok merci bcp