[COLOR=blue]Sub[/COLOR] Supprime_images()
[COLOR=blue]Dim[/COLOR] FSO [COLOR=blue]As Variant[/COLOR], Rep [COLOR=blue]As Object[/COLOR], dossier [COLOR=blue]As Object[/COLOR], fichier [COLOR=blue]As Object[/COLOR], Chemin [COLOR=blue]As String[/COLOR], RepertoireActuel [COLOR=blue]As String[/COLOR]
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
Chemin = ThisWorkbook.Path & "\Diplome\"
[COLOR=green]' Définition du répertoire du classeur CompteurBO[/COLOR]
RepertoireActuel = Chemin
[COLOR=green]'Attribue une référence d'objet à la variable[/COLOR]
[COLOR=blue]Set[/COLOR] FSO = CreateObject("Scripting.FileSystemObject")
[COLOR=green]'Boucle sur les sous-répertoires du répertoire choisi[/COLOR]
[COLOR=blue]For Each[/COLOR] Rep [COLOR=blue]In[/COLOR] FSO.GetFolder(RepertoireActuel).SubFolders
SousRep = Rep.Name
[COLOR=green]'Boucle sur les fichiers des sous-répertoires[/COLOR]
[COLOR=blue]Set[/COLOR] dossier = CreateObject("Scripting.FileSystemObject").GetFolder(RepertoireActuel & "/" & SousRep)
[COLOR=blue]For Each[/COLOR] fichier [COLOR=blue]In[/COLOR] dossier.Files
[COLOR=blue]If[/COLOR] fichier.Name = combonom & ".jpg" [COLOR=blue]Then[/COLOR] Kill fichier
[COLOR=blue]Next[/COLOR] fichier
[COLOR=blue]Next[/COLOR] Rep
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]End Sub[/COLOR]