Bonjour à tous,

J'ai trouvé sur le net la macro ci-dessous qui permet d'envoyer plusieurs fichiers excel à plusieurs destinataires :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub envoimail()
'test sur plusieurs agences
 
Dim Outlook As Object
Dim Mail As Object
Dim Objet As String
Dim Corps As String
Dim fichiers, dest As Variant
Dim i As Integer
Dim path As String
 
path = "C:\Mes Documents\FD\"
fichiers = Array("PARIS.xls", "BORDEAUX.xls", "NANTES.xls", "MARSEILLE.xls" )
dest = Array("Xxxx@ddsf.com", "yyyy@ddsf.com", "zzzz@ddsf.com", "wwww@ddsf.com" )
 
Objet = "Rapport d'appels du mois d'"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Ci-joint le fichiers des appels du mois passé pour votre agence." & _
vbCrLf & vbCrLf & _
"Nous restons bien entendu à votre disposition pour tout renseignement complémentaire." & _
vbCrLf & vbCrLf & _
"Cordialement." & _
vbCrLf & vbCrLf
 
 
Set Outlook = CreateObject("Outlook.Application" )
 
For i = LBound(fichiers) To UBound(fichiers)
    Set Mail = Outlook.CreateItem(0)
 
    With Mail
        .To = dest(i)
        .CC = ""
        .BCC = ""
        .Subject = Objet
        .Body = Corps
        .Attachments.Add (path & fichiers(i))
        .Display
    End With
Next i
 
End Sub
Mais lorsque je l'utilise, cela bug à ce niveau :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Attachments.Add (path & fichiers(i))
Et pourtant j'ai très bien nommé le chemin.

Du coup je ne comprends pas d'où vient le problème.

Est ce que quelqu'un peut m'aider svp ?

Merci par avance

Cordialement