supprimer certains fichier d,un repertoir

[ceccec]

bonjour je souhaite créer une macro pour supprimer certains fichier ( en fonction de leur nom) d,un répertoire précis.
voici la macro que j,ai et qui ne fonctionne pas! je suis bloqué et aurait besoin d aide pour avancer!!!
MERCI D'AVANCE

Sub SupprimerFichierExcel()

Dim rep As String
rep = "C\My Documents\" 'répertoire sur lequel je veut supprimer les fichiers
Kill rep & "\annul*.xlsm" 'je veux supprimer tous les fichiers .xlsm qui commence par annul

End Sub

 

[Pierrot93]

Re : supprimer certains fichier d,un repertoir

Bonjour,

regarde ceci, à adapter :

Option Explicit
Sub test()
Dim dossier As String, fichier As String
dossier = ActiveWorkbook.Path & "\"
fichier = Dir(dossier & "*.xlsm")
Do While fichier <> ""
    Kill dossier & fichier
    fichier = Dir
Loop
End Sub

bonne journée
@+

 

[ceccec]

Re : supprimer certains fichier d,un repertoir

Excellent sa fonctionne à merveille !!!
Un super gros MERCI !!!