Discussion :

[macboul13]

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

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 :

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

[gaet76]

Bonjour Macboul,

essai en enlevant le "&"

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

Ce qui te donnerais ça :

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

Gaëtan

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

[gaet76]

Bonjour,

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

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

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

[macboul13]

Merci pour le code, mais je dois utiliser seulement Orange ou Mozilla. Outlok ne me convient pas.

[kiki29]

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