Discussion :

[thomahh]

Bonjour,

Mon problème est le suivant :

Je récupère dans mon fichier excel une liste de nom de fichier pdf.
Ensuite, je veux supprimer parmi ces fichiers une certaine partie à partir de ma macro VBA.

J'arrive à supprimer le fichier à partir du nom qui se situe en A1 avec ce programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test2()
 
    Range("A1").Select
 
    Dim sNomFichier As String
    sNomFichier = "C:\Users\Thomas\Desktop\renommage de fichiers pdf\LOAD\" & Range("A1")
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(sNomFichier)
    f.Delete
 
 End Sub

Je voudrais automatiser ce programme sur toute les cellules de la colonne A tant quelles sont non vides.


Merci.