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
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'489
Appréciations reçues : 752
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 19 janvier 2016, 10:23

Non, sur une ligne séparée
Sinon remplace par un MsgBox nf

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 » 21 janvier 2016, 14:17

Voici la macro, mais j'ai toujours le message d'erreur suivant : "Erreur de compilation : Projet ou bibliothèque introuvable" à
répertoireAppli =

Je suis perdu là.. :cry:

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 & ";"
    Loop
    Dim msg As MailItem
    Set olapp = New Outlook.Application
    Set msg = olapp.CreateItem(olMailItem)
    msg.To = MsgTo
    msg.CC = MsgCC
    msg.BCC = MsgBCC
    msg.Subject = [A2]
    msg.Body = [A5] & Chr(13) & Chr(13) & Chr(13) & [A6] & Chr(13) & Chr(13) & Chr(13) & [A8].Value & Chr(13) & Chr(13)
    '-- pj
    [C8].Select
    Do While Not IsEmpty(ActiveCell)
        f = Dir(ActiveWorkbook.Path & "\" & ActiveCell.Value)
        While f <> ""
        nf = ActiveWorkbook.Path & "\" & f
        msg.Attachments.Add Source:=nf
        f = Dir()
        Wend
        ActiveCell.Offset(1, 0).Select
    Loop
    msg.Display
End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'489
Appréciations reçues : 752
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 22 janvier 2016, 06:47

J'ai l'impression de ne pas avoir toutes les informations, car chez moi ceci fonctionne bien ;
Sub envoi_PJ()

    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook

MsgBox répertoireAppli

End Sub
Y a t'il unoption explicit? et as-tu déclaré répertoireAppli ?

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 » 22 janvier 2016, 08:07

Bonjour Steelson,

Ce code ci dessous ne fontionne pas, çà bloque toujours à "répertoireAppli =".
Option Explicit


Sub envoi_PJ()

    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook

MsgBox répertoireAppli

End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'489
Appréciations reçues : 752
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 22 janvier 2016, 11:16

Ajoute une déclaration
Dim répertoireAppli as String

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

( ͡• ͜ʖ ͡• )
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'978
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 22 janvier 2016, 11:18

Bonjour,

une nouvelle version, si cela ne fonctionne pas peux-tu joindre le fichier avec lequel tu as l'erreur ?
mailpj.xls
(41.5 Kio) Téléchargé 18 fois
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 22 janvier 2016, 13:26

h2so4 a écrit :Bonjour,

une nouvelle version, si cela ne fonctionne pas peux-tu joindre le fichier avec lequel tu as l'erreur ?

Bonjour h2so4,
Avec ton fichier, j'ai le message d'erreur "Erreur de compilation, Projet ou bibliothèque introuvable" à
olMailItem
en ligne 13, Col 42.

Steelson a écrit :Ajoute une déclaration
Dim répertoireAppli as String

Steelson,

Où dois-je l'ajouter cette variable ?
mailpj 22012016 bis.xls
(41.5 Kio) Téléchargé 18 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'978
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 22 janvier 2016, 14:05

un nouvel essai
mailpj.xls
(43 Kio) Téléchargé 37 fois
s
sophang
Membre fidèle
Membre fidèle
Messages : 232
Inscrit le : 30 mars 2009
Version d'Excel : excel 2007

Message par sophang » 25 janvier 2016, 07:17

Bonjour h2so4,

Avec ton dernier fichier, j'ai le message : "Erreur de compilation, Projet ou bibliothèque introuvable" en Li 16, Col 33 à
Chr

Coridalement.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message