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.