Bonjour à tous,

Je suis sur un server de traitement, je dispose d'un fichier xlsm lié à 4 bases Access c-à-d j'ai 4 tables access qui apparaissent dans 4 feuilles distinctes de mon classeur et toute modification sur ces tables access agit sur les tables liées dans Excel.
Mon but est d'envoyer par mail ce fichier excel (en pièce jointe) à un certains nombres destiinataire, sur la FAQ je suis tombé sur un code que légèrement modifié, au finish j'ai l'erreur '1004'


Voici le code utilisé:

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
Option Explicit
 
Sub Tst_Wb()
Dim SourceWb As Workbook
Dim CdoMessage As Object
Dim Fichier As String
 
    Set SourceWb = ActiveWorkbook
    Fichier = ThisWorkbook.Path & Application.PathSeparator & "monfichier.xlsm"
    
    SourceWb.SaveCopyAs Fichier
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Essai"
        .From = "papaye@yahoo.fr"
        .To = "mandarine2001@yahoo.fr; maman@gmail.com;oncle@laposte.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Teste pour voir "
        .AddAttachment Fichier
        .Send
    End With
    
    Set CdoMessage = Nothing
    'Kill Fichier
End Sub

L'erreur se produit au niveau de la ligne en rouge.

Merci d'avance pour votre aide.
Cordialement,


Kedmard