Formule VBA

Bonjour à tous,

j'aurais besoin de votre aide sur une formule VBA.

Voila j'ai réussi a faire ma macro pour que mon mail parte en appuyant sur le bouton send mais voila lorsque je fais ca, il faut que je selectionne mon fichier pour qu'il puisse partir. ce que je souhaiterai moi, c'est qu'il parte tous seul sans devoir selectionner le fichier a envoyer car je vais le metre sur une plateforme et les gens, pour plus de faciliter ne devrait pas selectionner leurs fichier.

je ne sais pas si je suis Claire?

Voici la formule que j'ai mise:

b envoiClasseur()

Dim Fichier As Variant

Fichier = Application.GetOpenFilename("Tous les fichier(*.*,*.*")

MsgBox Fichier

'ici on demande d'utiliser Outlook comme client de messagerie'

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.Createitem(0)

'ici nous définissons les champs du mail'

'entre quillemet il faut indiquer les adresses mail'

MonMessage.to = "xxx@xxx.com"

'ici nous commencons la rédaction du mail'

MonMessage.attachments.Add Fichier

'sujet du mail'

MonMessage = "Request form for facilitation"

'corps du mail'

contenu = "Dear team,"

contenu = contenu & Chr(10) & Chr(13)

'les caractères Chr indique un saut de ligne'

contenu = contenu & "Please find attached the excel file for our request of facilitation" & Chr(10) & Chr(13)

contenu = contenu & "Regards" & Chr(10) & Chr(13)

MonMessage.body = contenu

'ici on provoque l'envoi du mail et de sa pièce jointe'

MonMessage.Send

'réinitialisation de la méssagerie'

Set MaMessagerie = Nothing

'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'

MsgBox "Your Email has been sent"

End Sub