Discussion :

[modus57]

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.

[kiki29]

Salut, regarde ici et adapte à ton contexte.

[modus57]

Bonjour kiki29,

Merci de vous intéresser à cette discussion.

Je n'arrive pas à télécharger le fichier sur le lien indiqué ?

[modus57]

Bonjour,

J'ai à nouveau testé ma procédure elle fonctionne, mais le rafraichissement de Windows Explorer n'est pas instantané il faut appuyer sur F5.

Comment gérer ce problème en VBA ?

Si vous avez une réponse je suis preneur.

Merci.