XL 2010 [RESOLU] VBA - Supprimer fichiers PDF selon liste EXCEL

[ralph45]

Bonjour les ami(e)s ED !

Cela fait longtemps que j'ai consulté le forum et pour le coup, j'ai une demande à vous formuler...
Je désirerai selon une liste Excel supprimer des fichiers (.pdf, pour cet exemple, mais cela pourrait être d'autres) dans une arborescence prédéfinie (un champ de choix serait le top).

Bien sûr, dans l'exemple joint, les fichiers non référencés dans la liste seraient épargnés par le massacre automatisé... En espérant avoir été le plus explicite possible, je vous mets en copie le fichier de travail.

@ plus !

 

[Lone-wolf]

Bonjour ralph

Private Sub BTN_SUPPRIMER_FICHIERS_Click()
Dim Chemin As String, Reponse
Static cel
    Chemin = [C2].Value
    Reponse = MsgBox("Voulez-vous vraiment supprimer ce fichier ?", vbYesNo, "CONFIRMATION SUPPRESSION")
    cel = ActiveCell.Value

    If Reponse = vbYes Then
        Kill Chemin & cel
    Else
        Exit Sub
    End If

End Sub

 

[Jacky67]

Bonjour,
Essaye le classeur en PJ
Attention pas de retour en arrière possible, supprimer c'est supprimer, pas de poubelle.
*Simplifié
**Hello Lone-Wolf
***Version V2 avec sélection du répertoire par une Box "FileDialog"

 

[ralph45]

Merci à vous deux, Lone-wolf et jacky67.

Problème de serveur, je ne pourrai tester vos propositions qu'en début d'après-midi.
Mais merci d'avance !!

Pour le retour vers le futur, jacky67, je sais que ce n'est possible que dans les films !

 

[Lone-wolf]

Bonjour jacky

Encore une proposition

'À mettre dans un module
Public Function PdfExiste(Pdf As String)
   If Len(Dir(Pdf)) > 0 Then
      PdfExiste = True
   Else
      PdfExiste = False
   End If
End Function

Private Sub BTN_SUPPRIMER_FICHIERS_Click()
Dim Chemin As String, Rep As String, Pdf As String, Reponse
Static cel
   
    Chemin = [C2].Value
    Reponse = MsgBox("Voulez-vous vraiment supprimer ce fichier ?", vbYesNo, "CONFIRMATION SUPPRESSION")
    cel = ActiveCell.Value
    Pdf = Chemin & cel
   
    If Reponse = vbYes Then
        If PdfExiste(Pdf) = False Then
            MsgBox "Le fichier n'existe pas...", , "ERREUR": Application.DisplayAlerts = False: Exit Sub
        Else
            Kill Chemin & cel
        End If
    End If
   
    If Reponse = vbNo Then Exit Sub
End Sub

 

[ralph45]

Génial ! vos solutions fonctionnent impeccablement !
Encore merci pour votre patience et efficacité...

R@lph

 

[Lone-wolf]

Re ralph

ralph à dit : J'ai mal répondu ?

OUI

 

[ralph45]

Il faudrait que je pense à enlever ma signature lorsque je ne propose pas mon aide...