Discussion :

[Mathsdeb]

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

[SfJ5Rpw8]

Bonjour,

qu'est ce qui te fait dire qu'il y as un bug ? un message ?

[Mathsdeb]

Bonjour Bbil,

Merci pour ton retour,

Oui au moment de lancer la macro, elle s'arrête. Et quand je vais voir où ça bloque, ben le trait jaune se met à cet emplacement alors que j'ai bien nommé le chemin ....

[SfJ5Rpw8]

un message ?

[Invité]

Bonjour,
Ta question est ambigu, tu veux envoyer plusieurs classeurs a plusieurs destinataires ,'ou comme dans la macros un classeur par par destinataire, ou un classeur pour plusieurs destinataires?

http://www.developpez.net/forums/d14...t/#post7968025

[Mathsdeb]

Bonjour,

Bbil : un message lorsque je lance la macro

Ddurupt: ce que je souhaite via cette macro, c'est pouvoir envoyer plusieurs classeurs à plusieurs destinataires en même temps.

Merci par avance pour votre aide

Cordialement

[Invité]

dans le lien que je t'es fourni c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mail "Sujet", "Message", "Destinataire1@gmail.com;Destinataire2@gmail.com;Destinataire3@gmail.com", Pj:="C:\MyTest\Classeur1.xlsm;C:\MyTest\Classeur2.xlsm;C:\MyTest\Classeur3.xlsm"

les trois destinataire recevrons les trois classeur en un fois!

[SfJ5Rpw8]

....
Bbil : un message lorsque je lance la macro
...

Ben alors ? il dit quoi ce message ?