Discussion :

[malababar]

Bonjour,

J'ai une macro qui fonctionne mais je souhaite y apporter une modification.
En effet la macro initiale envoyait le classeur actif ("impr V5.xlsm"), comme pièce jointe à un classeur.
Maintenant j'ai exporté un pdf à partir d'une des feuille du classeur et je ne souhaite envoyer que ce fichier .pdf.

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
Sub MailOutlookExpress()
 
  Dim Chemin$, Repertoire$, Fichier$
    With Sheets("DataDev")
    Chemin = .Range("C10")
    Repertoire = .Range("C13")
    Fichier = .Range("C25")
 
    'Ci dessous le fichier que je souhaite joindre
    'Chemin & Repertoire & "\" & Fichier & ".pdf"
 
    Workbooks("impr V5.xlsm").SendMail Recipients:="monmail@gmail.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub

Mon soucis, je ne sais pas comment, ni par quoi remplacer " Woorkbooks("impr V5.xlsm")

Si qqun à une piste à me donner,

Merci d'avance.

[fring]

Bonjour,

Tu as un exemple dans la pour envoyer un pdf par mail --> http://excel.developpez.com/faq/?pag...ailCDOexchange

[malababar]

Tout d'abord bonjour, et merci pour ton aide.
Je viens de tester les 3 solutions qui pouvaient correspondre à mon cas.

La 1ère :
Comment créer un message en utilisant Outlook Express ?
Le pb pour moi revient au même car il n'est pas expliqué comment joindre une pièce au mail crée.

La 2ème:
Comment envoyer un fichier par mail sans Outlook ?
Méthode avec options à cocher.
Le pb c'est que je dois envoyer ce fichier et que le ordis des destinataires sont un peu bridés.. Donc il ne pourront rien activer....

La 3ème :
Comment envoyer un fichier par mail sans Outlook ?
sans cocher de référence
Là erreur d'éxecution. " la valeur de configuration " Sending " est non valide.

En fait avec la macro que j'avais au début ça fonctionnait sur les postes. La souci est " juste de pouvoir ajouter une pièce jointe en pdf ' déjà stockée sur le DD)

Je sais plus trop ou aller, je me suis cogné la recherche sur toute la FAQ (envoyer pdf,macro outlook envoipdf, etc....)

Si qqun à une solution...

[fring]

La 3ème :
Comment envoyer un fichier par mail sans Outlook ?
sans cocher de référence
Là erreur d'éxecution. " la valeur de configuration " Sending " est non valide.

Je sais plus trop ou aller, je me suis cogné la recherche sur toute la FAQ (envoyer pdf,macro outlook envoipdf, etc....)

Concernant ce problème, la cause est probablement celle là --> http://excel.developpez.com/faq/?pag...urExecutionCDO

Concernant ton premier code, je n'ai pas l'impression que cette méthode permet d'envoyer une pièce jointe mais vu que je n'utilise pas Outlook, je ne peux pas te le confirmer.

Essaye comme ceci :

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
24
25
26
27
28
Sub MailOutlookExpress()
Dim Chem As String, Rep As String, Fich As String, Dest As String
Dim oApp As Object, oMail As Object
 
With Sheets("DataDev")
    Chem = .Range("C10")
    Rep = .Range("C13")
    Fich = .Range("C25")
End With
 
Dest = "monmail@gmail.com"
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
 
With oMail
    .To = Dest
    .CC = ""
    .BCC = ""
    .Subject = "Test envoi classeur"
    .HTMLBody = "Bonjour, ceci est un test"
    .Attachments.Add (Chem & Rep & Fich)
    .Send
End With
 
Set oMail = Nothing
Set oApp = Nothing
 
End Sub

[malababar]

Monsieur FRING,

merci de ta réponse, tout fonctionne à merveille.
Juste rajouté 2 p'tites bidouilles sur les lignes des variables pour qu'il trouve le chemin correct.

Voici le code final si ça peu servir à quelqu'un.

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
24
25
26
27
28
29
Sub MailOutlookExpress()
    Dim Chem As String, Rep As String, Fich As String, Dest As String
    Dim oApp As Object, oMail As Object
'Définitions des variables pour l'emplacement du fichier dans mon cas
With Sheets("DataDev")
    Chem = .Range("C10")
    Rep = .Range("C13") & "\"
    Fich = .Range("C25") & ".pdf"
End With
 
Dest = "mon_mail@gmail.com"
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
 
With oMail
    .To = Dest
    .CC = ""
    .BCC = ""
    .Subject = "Test envoi classeur"
    .HTMLBody = "Bonjour, ceci est un test"
    .Attachments.Add (Chem & Rep & Fich)
    .Send
End With
 
Set oMail = Nothing
Set oApp = Nothing
 
 
End Sub

Merci encore de ton aide.