Mail avec pièces jointes variables Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 14 janvier 2016, 14:24

Bonjour,

Voici une macro qui permet d’envoyer un mail avec des pièces jointes.
Je veux mettre des destinataires en destinataire en CC (Copie Carbone) et Cci (Copie Carbone invisible). Cela ne fonctionne pas, tous sont en destinataires principales. Je ne vois pas ou peuvent se situer mes erreurs ?
D’une autre part, je voudrai ajouter des pièces jointes quel que soit l’extension du nom du fichier qui se trouve dans un dossier. Où faut-il que je modifie dans la macro ?

Merci de votre aide.
mailpj.xls
(41 Kio) Téléchargé 74 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'985
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 14 janvier 2016, 19:28

sophang a écrit :Bonjour,

Voici une macro qui permet d’envoyer un mail avec des pièces jointes.
Je veux mettre des destinataires en destinataire en CC (Copie Carbone) et Cci (Copie Carbone invisible). Cela ne fonctionne pas, tous sont en destinataires principales. Je ne vois pas ou peuvent se situer mes erreurs ?
c'est normal, tu ne donnes une valeur qu'à la variable Msgto. Si tu veux envoyer en mode CC et CCi tu dois mettre une valeur dans les variables msgcc et msgcci
D’une autre part, je voudrai ajouter des pièces jointes quel que soit l’extension du nom du fichier qui se trouve dans un dossier. Où faut-il que je modifie dans la macro ?

Merci de votre aide.
il ne faut pas modifier la macro, il suffit de modifier les noms de fichiers en colonne C et de mettre la bonne extension.
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 15 janvier 2016, 08:24

Bonjour h2so4,

J’ai pu résoudre mon premier problème grâce à tes conseils. Voici ce que j’ai modifié au début de la macro :
Sub envoi_PJ()
    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Sheets("destinataires").Select
    [A11].Select
    Do While Not IsEmpty(ActiveCell)
      MsgTo = MsgTo & ActiveCell & ";"
    [A12].Select
      MsgCC = MsgCC & ActiveCell & ";"
    [A13].Select
      MsgBCC = MsgBCC & ActiveCell & ";"
Par contre, pour mon second problème, c’est que la pièce jointe a un nom variable. Le fichier « Compta.xls » se trouve dans un dossier « C:\Service comptabilité\mailpj.xls\Opérations Comptables\ Compta du 14.01.2016.xls ». Ce fichier « Compta.xls » change de date chaque jour.
Je ne veux pas modifier à chaque fois le nom du fichier à la colonne C.

Cordialement.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'985
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 15 janvier 2016, 11:59

bonjour

proposition de correction en pièce jointe. adaptation du code et du nom de fichier en colonne C.

à tester
mailpj.xls
(34.5 Kio) Téléchargé 76 fois
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 15 janvier 2016, 14:39

ça ne fonctionne pas et je ne comprends pas pourqoui :?:

j'ai le message "Erreur de compilation : Projet ou bibliothèque introuvable" à la ligne 3, Colonne 22
répertoireAppli =
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'985
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 15 janvier 2016, 15:20

Bonjour

essaie avec cette version-ci
mailpj.xls
(37.5 Kio) Téléchargé 59 fois
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 18 janvier 2016, 06:55

Bonjour,


Hélas, j'ai toujours le même message d'erreur ::~
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'985
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 18 janvier 2016, 19:26

Bonsoir,


une autre version
mailpj.xls
(41.5 Kio) Téléchargé 61 fois
si cela ne fonctionne toujours pas, peux-tu mettre le fichier qui donne cette erreur ?
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'567
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 19 janvier 2016, 07:36

Juste avant attachment, mets un debug.print nf et regarde bien si le fichier est bien celui recherché !

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 19 janvier 2016, 07:40

Bonjour h2SO4,


J'ai essayé le dernier fichier que tu as modifié, et j'ai le message d'erreur : "Erreur de compilation : Projet ou bibliothèque introuvable", à la ligne 5, colonne 22 :
MsgTo

Steelson a écrit :Juste avant attachment, mets un debug.print nf et regarde bien si le fichier est bien celui recherché !

Bonjour Steelson,

Comme ceci ? çà ne fonctionne pas.
 msg.debug.Print nf; Attachments.Add; Source
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message