Envoi automatique du classeur actif vers un destinataire
Bonjour le forum.
J'ai crée un formulaire rempli par d'autres utilisateurs. Je voudrais que quand un utilisateur a fini il clique sur un bouton de contrôle et que le classeur me soit automatiquement envoyé.
Voici le code (inspiré d'un autre site) que j'a affecté au bouton.
Private Sub Valider_envoyer_Click()
MsgBox "Le questionnaire est prêt à être envoyé." & Chr(10) & "Merci, et à la semaine prochaine!"
Sheets("accueil").Select
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = ""
MonMessage.Cc = ""
MonMessage.Subject = ""
MonMessage.body = ""
MonMessage.Attachments.Add "ActiveWorkbook"
MonMessage.send
Set MonOutlook = Nothing
End Sub
Une erreur d'execution a lieu pour la ligne MonMessage.Attachments.Add "ActiveWorkbook"
Surement une erreur de syntaxe. Comment pourrais-je réecrire cette ligne pour que le classeur actif soit joint au mail (pour l'envoi, le sujet, le contenu et les cc tout fonctionne parfaitement)
Merci d'avance.
Bonjour
Sous toute réserve
Je penses qu'avant de l'envoyer il faut faire une sauvegarde
MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.NameCa marche parfaitement!
Bien vu, j'aurais pas pensé à ca.
Merci beaucoup Banzai.
A+