Suppression images dans un dossier

Salut les forumeurs,

J'ai un dossier dans lequel je stock des photos sous les noms "BASE" et une extension qui correspond à la valeur

d'un textbox. Je tiens à préciser que le dossier contient pleins d'autres images et photos.

Ce que j'aimerais faire, c'est de créer un code qui me permettrait de supprimer d'un coup toutes les photos du

dossier dont les noms commencent par "BASE". J'ai farfouillé un peu sur le net et j'ai trouvé quelques codes

que j'essaie d'adapter à mon projet. Hélas, au lancement de code, tout semble s'exécuter, sauf que les photos

restent insupprimées.

Voici mon code:

Sub Effacer()

Dim Chemin As String

Dim Fichier As String

Application.ScreenUpdating = False

Chemin = ThisWorkbook.Path & "\PHOTOS\"

Fichier = Dir(Chemin & ".jpg")

If MsgBox("La réinitialisation va supprimer tous les fichiers enregistrés! Voulez-vous continuer?", vbExclamation + vbYesNo) = vbYes Then

Do While Left(Fichier, 4) = "BASE"

Kill Chemin & Fichier

Fichier = Dir()

Loop

MsgBox "La réinitialisation du fichier a été effectuée avec succès!", vbInformation

Else

Exit Sub

End If

Application.ScreenUpdating = True

End sub

Quelqu'un pourrait-il m'indiquer ce qui coince dans mon code! Ou bien y'a t'il meilleure idée?

Merci d'avance pour tout!

Bonjour,

Deux petites corrections ...

Un essai ...

Sub Effacer()
Dim Chemin As String
Dim Fichier As String

    Application.ScreenUpdating = False

    Chemin = ThisWorkbook.Path & "\PHOTOS\"
    Fichier = Dir(Chemin & "BASE*" & ".jpg")    ' < correction

    If MsgBox("La réinitialisation va supprimer tous les fichiers enregistrés! Voulez-vous continuer?", vbExclamation + vbYesNo) = vbYes Then
        Do While UCase(Left(Fichier, 4)) = "BASE"   ' < UCASE au cas où base, Base, BASE, etc.
            Kill Chemin & Fichier
            Fichier = Dir()
        Loop
        MsgBox "La réinitialisation du fichier a été effectuée avec succès!", vbInformation
    Else        ' < inutile si le code reste ainsi
        Exit Sub     ' < inutile si le code reste ainsi
    End If
End Sub

ric

Super Ric!

Ca marche 5/5. Merci beaucoup

ric