envoi mail avec pj

[philmaure]

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

 

[Bougla972]

Bonjour philmaure,

Essaye ceci:

Sub envoi()
'variable
Dim a As MailItem
Dim Chemin 'As String, Chm As String
Dim MyFile As String

'création du mail
Set a = Outlook.CreateItem(olMailItem)
Chemin = "C:\" & Replace(Format(Date, "dd/mm/yy"), "/", "_") 'à adapter
If Not Dir(Chemin) = "" Then
    MsgBox "Le dossier n'existe pas !"
End If

MyFile = Dir(Chemin & "\*.xls")

With a
.To = "xxxxxxxx@aaaa.fr"
.Subject = "test mail "
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, stats du jour."
.Attachments.Add (Chemin & "\" & MyFile)
.Display
'.Send
End With
End Sub

 

[philmaure]

bonjour Bougla, merci pour ta réponse.

a aucun moment la macro me demande d'indiquer la data souhaitée ?
Ne faut il pas ajouter un imput box ?

Cdlt
Philmaure

 

[Bougla972]

philmaure,

Oui effectivement tu peux placer un InputBox.

 

[philmaure]

bonjour et merci pour l'info

bonne journée
Cdlt
Philmaurre