[VBA] macro excel pour envoyer plusieurs fichiers

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] macro excel pour envoyer plusieurs fichiers

superdeug2

Geek 1 jour, Geek pour tjrs

Salut à tous

j'en appelle aux experts d'excel!

Voila, j'ai dans un même répertoire 4 classeurs. Je cherche une macro pour envoyer chacun de ces classeurs à 4 destinataires différents dont les noms sont connus.
Mes Classeurs ont le nom d'une ville (PARIS.xls, BORDEAUX.xls, NANTES.xls et MARSEILLE.xls).

J'ai une macro déjà opérationnelle mais prévue pour n'envoyer qu'un seul fichier à un seul destinataire.
J'ai voulu mettre à la suite 2 fois la même macro, adaptée bien sur à un autre nom de classeur et à un autre destinataire mais ça plante.

Je ne vois pas trop comment enchainer la macro pour m'envoyer ces 4 fichiers aux 4 bon destinataires.

Voici ma macro qui fonctionne.

Citation :

Sub envoimail()
'test sur agence d'Auxerre

Workbooks.Open Filename:= _
"C:\Mes Documents\FD\PARIS.xls"

Dim Outlook As Object
Dim Mail As Object
Dim Dest As String
Dim Objet As String
Dim Corps As String

Dest = "Xxxx@ddsf.com" 'adresse du destinataire
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" )
Set Mail = Outlook.CreateItem(0)

With Mail
.to = Dest
.CC = ""
.BCC = ""
.Subject = Objet
.Body = Corps
.Attachments.Add ActiveWorkbook.FullName
.Display
ActiveWindow.Close
End With
End Sub

Je ne sais pas enchainer cette macro sur plusieurs fichiers à la suite. Y a t'il une formule pour le faire?

qu'en pensez vous??

Merci d'avance pour votre aide

---------------
mon feed-back: http://forum.hardware.fr/hfr/Achat [...] 4641_1.htm

Publicité

Cardelitre

ಠ_ಠ ۞_۟۞ ┌( ಠ_ಠ)┘ סּ_סּ

Fait vite fait sans tester, mais une solution du genre devrait marcher:

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

Message édité par Cardelitre le 23-03-2010 à 14:01:52

---------------
Intra-Science - To thine own self be true

superdeug2

Geek 1 jour, Geek pour tjrs

merci pour l'aide!!!

alors ta macro marche du tonnere!!!! Mais elle provoque en fin d'exécution une erreur sur la ligne
.Attachments.Add (path & fichiers(i))

Tu vois d'où ça peut venir?

Message cité 1 fois
Message édité par superdeug2 le 24-03-2010 à 09:36:41

---------------
mon feed-back: http://forum.hardware.fr/hfr/Achat [...] 4641_1.htm

otobox

Maison fondée en 2005

Sans le message d'erreur, c'est difficile de deviner...

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Cardelitre

ಠ_ಠ ۞_۟۞ ┌( ಠ_ಠ)┘ סּ_סּ

superdeug2 a écrit :

merci pour l'aide!!!

alors ta macro marche du tonnere!!!! Mais elle provoque en fin d'exécution une erreur sur la ligne
.Attachments.Add (path & fichiers(i))

Tu vois d'où ça peut venir?

Sans voir l'erreur c'est difficile à dire.

Mais il y a de bonne chances pour qu'il n'y ait pas le bon nom de fichier au bon endroit.

path & fichiers(i)

est sensé donner l'adresse exacte et le nom du fichier à attacher.

Plus haut on attribue le chemin du dossier où se trouvent les fichiers à la variable path, soit ici selon ton exemple dans le dossier
"C:\Mes Documents\FD\"
Vérifie que les fichiers se trouvent bien à cette adresse précisément.

Ensuite les noms des fichiers doivent impérativement correspondre à ce qui est entré dans la variable fichier, soit dans ton exemple: "PARIS.xls", "BORDEAUX.xls", etc. Vérifie bien que les fichiers se trouvant dans le bon dossier se nomment exactement comme ça, avec la bonne extention (.xls et pas .xlsx ou autre chose).

---------------
Intra-Science - To thine own self be true

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] macro excel pour envoyer plusieurs fichiers

Sujets relatifs
Erreur après copie de plusieurs feuilles --> pb presse papier?	Regrouper plusieurs registres en un seul
VBA: combiner 2 tableaux excel pour avoir un troisième tableau complet	Recaler du texte de plusieurs lignes contre une image
recuperer données d'un fichier excel	Passer d'un outil développer en vba excel à une interface web
[Oracle 10G] Données vers fichier Excel	[VBS] Lire un fichier excel
[VBA] lire fichier texte jusqu'à ...
Plus de sujets relatifs à : [VBA] macro excel pour envoyer plusieurs fichiers

Page générée en 0.033 secondes