Envoi d'un fichier Excel en pièce jointe par mail.

Version imprimable

Bonjour,
Je souhaite envoyer un fichier Excel en pièce jointe; une erreur se produit m'indiquant:

Citation:

Err d'exécution: 21470024893(800 700003)
le chemin spécifié est introuvable

" ...celui ci est pourtant exact !!!
Je ne trouve aucune explication à ce message...

Merci pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub EnvoiMail() Dim CdoMessage As CDO.Message Dim Fichier As Variant Fichier = "C:\Documents\" & "MailAgents.xls" If Fichier = False Then Exit Sub Set CdoMessage = New CDO.Message With CdoMessage .Subject = "Exemple" .From = "xxxxx@orange.fr" .To = "yyyyy@orange.fr" .CC = "" .BCC = "" .TextBody = "Texte dans le corps de message" .AddAttachment Fichier .Send End With Set CdoMessage = Nothing:( End Sub
Que faire pour que cela marche ?

Merci d'avance

19/03/2015, 19h40
gaet76

Bonjour Macboul,

essai en enlevant le "&"

Fichier = "C:\Documents\" & "MailAgents.xls"

Ce qui te donnerais ça :

Fichier = "C:\Documents\MailAgents.xls"

Gaëtan
20/03/2015, 00h14
kiki29

Salut, c'est pour l'envoi d'un pdf, transposable à ton cas : PDFCreator Génération PDF puis envoi par mail via CDO
Sinon voir aussi : Mail from Excel and make/mail PDF files (Windows)

Bonjour,

J'ai le code suivant dans un de mes classeurs et ça marche très bien.

Code:

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
30
 
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail, RP
Dim Nom_Fichier As String
 
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
   'Exemple pour envoyer un classeur en pièce jointe
   'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
   'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
   Nom_Fichier = "C:\Documents\MailAgents.xls"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
    With oBjMail
        .To = "Destinataire" ' le destinataire
        .Subject = "Sujet"   ' l'objet du mail
        .Body = "Message du mail" 'le corps du mail ..son contenu
        .Attachments.Add Nom_Fichier "C:\Documents\MailAgents.xls" ' ou Nomfichier
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        .Send
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

J'aurais bien cité la personne qui m'a donné cette solution mais je ne m'en rappel plus :oops:

J'espère que ça marchera pour toi aussi.

22/03/2015, 22h45
macboul13

Le mail doit être envoyé avec Orange ou Mozilla

Merci pour le code, mais je dois utiliser seulement Orange ou Mozilla. Outlok ne me convient pas.
23/03/2015, 06h11
kiki29

Salut, les 2 liens plus haut te parle de CDO, càd par exemple Comment envoyer un fichier par mail sans Outlook