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