Envoyer document par email via Excel.

Bonjour à tous,

J'ai créer un document excel que je dois envoyer à plusieurs personnes qui doivent le compléter et le renvoyer sur mon email grâce à un bouton d'envoi que j'ai créé dans ce même document.

J'ai réussi à faire une macro qui me permet de l'envoyer à n'importe qui, mais cette macro ne fonctionne que depuis mon ordinateur car j'ai sélectionner le chemin réseau de mon disque dur.

Ma question est donc comment faire pour que ma macro puisse envoyer ce document depuis n'importe quel ordinateur?

Ci-dessous ma macro en question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub sendmail() Dim dlapp As Outlook.Application Dim olmail As Outlook.MailItem Set olApp = New Outlook.Application Set olmail = olApp.CreateItem(olMailItem) With olmail .To = "XXX@XXX.com" .CC = "XXX@XXXX.com" .Subject = "Livraisons" .Body = "" .Attachments.Add "C:\Users\XXX\Documents\XXXX\XXXXX.xlsm" .Display ''olmail.Send End With Set olmail = Nothing Set olApp = Nothing End Sub

---

Merci pour votre aide!

Bonjour,

Il te suffit d'utiliser thisworkbook.path pour récuperer le chemin du fichier actif.
De plus je te conseille le Late Binding http://mhubiche.developpez.com/vba/f...endre/binding/

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub mail()   Dim ObjOutlook As Object Set ObjOutlook = CreateObject("outlook.application") Set oBjMail = ObjOutlook.CreateItem(olMailItem) With oBjMail .To = "aa@aa.com" '.CC = .Subject = "l'objet du mail" .Body = "le corps du mail" .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name .Display 'SendKeys "^{ENTER}" 'pour éviter la confirmation par outlook   End With   End Sub

---

Bonjour,

Parles-tu d'un fichier base en ligne ? ou sur un réseau partagé ?

Tu peux toujours définir le titre du fichier avant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Title=ActiveWorkbook.Sheets(1).Range("A1").Value   'Create email Set MyOutlookApp = CreateObject("Outlook.Application") Set MyItems = MyOutlookApp.CreationItem(olMailItem) 'My Subject=ActiveWorkbook.Sheets(1).Range("A2").Value   With MyItems .To= .Subject= MySubject . Body="..." . Attachments.Add (Title) .Display End With

---

Bonjour Halaster08,

Merci pour ta réponse, lorsque je rentre la modification j'ai maintenant un message d'erreur type : "Erreur de compilation: Le membre existe déjà...."

J'ai sans arrêt ce message lorsque je veux modifier ma macro!Pièce jointe 229727

Je n'ai jamais eu cette erreur.

As tu essayé de changé le nom de la sub? On dirait qu'il te signale que la sub sendmail existe déjà.

C'est réglé, j'avais en fait deux macros, une nommée "Sendmail" et une autre qui portait le nom de mon fichier.

Aprés avoir supprimé celle portant le nom de mon fichier, j'ai pu modifier la macro et ça fonctionne!

Par contre la commande "envoyer" permet-elle d'envoyer le fichier sans ouvrir outlook? car actuellement elle l'ouvre toujours Outlook.

Voici ce que j'ai rentré:

Code:

---

1 2 3 4 5 6 7 8 9 10

With olmail .To = "xxx@xxx.com" .CC = "xxx@xxx.com" .Subject = "Livraisons" .Body = "" .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name .Display 'SendKeys "^{ENTER}" ''olmail.Send End With

---

Citation:

---

Envoyé par StephaneMads

Bonjour,

Parles-tu d'un fichier base en ligne ? ou sur un réseau partagé ?

Tu peux toujours définir le titre du fichier avant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Title=ActiveWorkbook.Sheets(1).Range("A1").Value   'Create email Set MyOutlookApp = CreateObject("Outlook.Application") Set MyItems = MyOutlookApp.CreationItem(olMailItem) 'My Subject=ActiveWorkbook.Sheets(1).Range("A2").Value   With MyItems .To= .Subject= MySubject . Body="..." . Attachments.Add (Title) .Display End With

---

---

Bonjour,

Il s'agit d'un fichier excel vierge sur mon disque dur que des personnes indépendantes les unes des autres recevront et devront compléter et le renvoyer en utilisant le bouton d'envoi.
Par contre, y a t-il un code permettant d'envoyer le mail via la messagerie par défaut? Si d'autres personnes ont par exemple Lotus ou Gmail.

Merci pour votre aide!

Citation:

---

Envoyé par Farid8769

Par contre la commande "envoyer" permet-elle d'envoyer le fichier sans ouvrir outlook? car actuellement elle l'ouvre toujours Outlook.

---

Peux tu prendre un taxi sans monter dans la voiture?
Non.

Citation:

---

Par contre, y a t-il un code permettant d'envoyer le mail via la messagerie par défaut? Si d'autres personnes ont par exemple Lotus ou Gmail.

---

Je suis presque sur que oui, mais je ne l'ai jamais fait donc je ne peux pas t'aider.