Discussion :

[Farid8769]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Farid8769]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Farid8769]

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!

[halaster08]

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à.

[Farid8769]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

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.

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.