supprimer certains fichier d,un repertoir

ceccec · 3 Février 2014

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 · 4 Février 2014

Re : supprimer certains fichier d,un repertoir

Bonjour,

regarde ceci, à adapter :

Code:

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 · 4 Février 2014

Re : supprimer certains fichier d,un repertoir

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

supprimer certains fichier d,un repertoir

ceccec

Guest

Pierrot93

XLDnaute Barbatruc

ceccec

Guest

Discussions similaires

supprimer certains fichier d,un repertoir

ceccec

Guest

Pierrot93

XLDnaute Barbatruc

ceccec

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency