Bonjour à tous,
J'ai fait une macro qui transforme la feuille active en pdf, pour l'envoyer par mail dans outlook.
J'ai par contre le fichier PDF récemment créé qui reste dans le même dossier ou se trouve le fichier excel.
Pensez vous qu'il soit possible de le supprimer avec kill, en récupérant automatiquement le chemin d'accès sur l'ordinateur.
Sub Envoyer_par_mail(ByVal control As IRibbonControl)
NomFichier = InputBox("Veuillez saisir le nom que vous souhaitez donner au fichier pdf")
Dim Path As String
Dim valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = Format(Now() - 1, "yyyy.mm.dd") & " - " & NomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=Path & valeur, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = ""
.Body = ""
.Attachments.Add Path & valeur & ".pdf"
.display True
End With
End Sub
j'ai ajouté Kill Path & "\" & valeur avant le end sub, mais ca ne fonctionne pas
Merci d'avance
j'ai oublié d'indiqué .pdf à la fin de l'instruction, normal que ca ne fonctionnait pas.
Problème résolu tout seul !