bonjour à tous,
la macro suivante me permet d'envoyer un mail avec une pièce jointe :
Sub envoi()
'variable
Dim a As MailItem
'création du mail
Set a = Outlook.CreateItem(olMailItem)
With a
.To = "xxxxxxxx@aaaa.fr"
.Subject = "test mail "
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, stats du jour."
.Attachments.Add ("C:\aaaaa\maj.xlsx")
.Send
End With
End Sub
Le problème que je rencontre est que le fichier à envoyé se situe dans un dossier avec une date qui change chaque jour
Comment puis-je modifier la macro pour atteindre le fichier du jour qui me convient ?
Merci pour votre aide
Cdlt
Philmaure
la macro suivante me permet d'envoyer un mail avec une pièce jointe :
Sub envoi()
'variable
Dim a As MailItem
'création du mail
Set a = Outlook.CreateItem(olMailItem)
With a
.To = "xxxxxxxx@aaaa.fr"
.Subject = "test mail "
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, stats du jour."
.Attachments.Add ("C:\aaaaa\maj.xlsx")
.Send
End With
End Sub
Le problème que je rencontre est que le fichier à envoyé se situe dans un dossier avec une date qui change chaque jour
Comment puis-je modifier la macro pour atteindre le fichier du jour qui me convient ?
Merci pour votre aide
Cdlt
Philmaure