Bonjour à tous ,

Comment supprimer les fichiers suivant une liste dans une feuille excel j'ai essayé avec ce code mais ça fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub DeleteListeFichiers()
Dim ListeFichiers
Dim oFSO As Scripting.FileSystemObject
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
ListeFichiers = Sheets("Feuil1").Range("A1:A" & [A65536].End(xlUp).Row)
    For Each File In ListeFichiers
        oFSO.DeleteFile File, False
    Next File
End Sub
D'où vient le problème et quelle est la solution.

Merci d'avance pour vos réponses.

re

J'ai oublié de préciser que la liste contient le chemin complet et le nom de plusieurs fichiers.