Discussion :

[jjigs]

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, le fichier est bien envoyé mais si des modifcations ont été apportées, elle ne sont pas prises en compte. Comment puis je faire ? car ce fichier sera à la disposition de personne sur une plateforme et l'idéal serait qu'il ait juste à telecharger le fichier, le remplir puis le revoyer par mail en cliquant sur le bouton.

je ne sais pas si je suis Claire?
voila ma formule ( Pour l'envoi des mail ca marche mais si je remplis le tableau, les modifications ne sont pas prises en comptes/. ) voir pièce jointe

Sub envoiClasseur()

'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 ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

'sujet du mail'
MonMessage = "Request form for facilitation"

'corps du mail'
contenu = "Dear feedback culture 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

merci par avance pour votre aide

[parmi]

Bonjour,

Si les modifications de ton fichier ne sont pas prises en compte, il suffit de l'enregistrer avant l'envoi.