XL 2010 supprimer pdf dans dossier après envoi outllok

[momo2394]

Bonsoir le forum

Je reviens vers vous pour une demande spéciale
j'ai une macro qui joint des fichier PDF qui se trouvent dans un dossier dans un mail, je voudrais une fois le message envoyé que le dossier soit vide, j'ai essayé avec kill sobject mais en vain, une petite aide de votre part serait la bienvenue

merci

Public Sub Envois_Valerdine()
Dim olapp As Object
Dim olmail As Object
Dim Rep$, Nom$, Rep_Pdf$

Set olapp = CreateObject("Outlook.Application")
Set olmail = olapp.CreateItem(0)

Rep = "C:\Users\Documents\Lescury\valerdine\"
Rep_Pdf = Dir(Rep & "*.*")

Do While Rep_Pdf <> ""
Nom = Rep & Rep_Pdf
Rep_Pdf = Dir
With olmail
.To = "toto.r@gmail.com"
.Subject = "test"
.Bcc = ""
.Attachments.Add Nom
.Display
End With
Loop

Set olapp = Nothing
Set olmail = Nothing

► Kill sObject ◄


End Sub

 

[Lone-wolf]

Bonjour momo

À ajouter en dessous de Set olmail = Nothing

Rep_Pdf = Dir(Rep & "*.*")
Do While Rep_Pdf <> ""
Kill Rep & Rep_Pdf
Rep_Pdf = Dir
Loop

 

[momo2394]

Salut Lone-wolf
tu vas bien?
c'est presque parfait, le hic c'est qu'il efface tous les PDF dès lors que le message est crée, moi ce que je voudrais que c'est seulement quand le message est envoyé que le dossier sera vide

 

[Lone-wolf]

Re

ça va bien et toi?

Ajoute un bouton pour la suppression.

Sub Suppression()
Rep = "C:\Users\Documents\Lescury\valerdine\"

Rep_Pdf = Dir(Rep & "*.*")
Do While Rep_Pdf <> ""
Kill Rep & Rep_Pdf
Rep_Pdf = Dir
Loop
End sub

 

[momo2394]

Salut Lone-wolf

C'est parfait ça fonctionne à merveille, encore merci