Microsoft 365 Mail et attachment.pdf

  • Initiateur de la discussion Initiateur de la discussion Claudy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Claudy

XLDnaute Accro
Bonjour,
je voudrais envoyer par mail une facture au format .pdf, en pièce jointe.
L'adresse de celle ci se trouve en C2, sous la forme \\croix-rouge.prv\hum\MCR**\Tresorerie***\VSL\VSL 2022 318 Aline.pdf.
Et là ça coince:
Code:
Sub testmail()
  ' Créer unes instance outlook
  Set OutApp = CreateObject("Outlook.Application")
  On Error Resume Next
  With OutApp.Createitem(olMailItem)
    
    .SentOnBehalfOfName = "tresorerie.mcr@croix rouge.be" ' Adresse de l'émetteur (pas obligatoire)
    .To = Range("B2").Text 'là OK
    '.CC = "AdresseMailEnCopie"
    '.BCC = "AdresseMailCopieCachée"
    .Subject = "Facture VSL de " & Range("D2").Text
    .HTMLBody = "Bonjour,<br>" _
      & "Vous trouverez ci-joint... blabla"
      
    'C'est ici que ça coince....
    ' Joinde le PDF dont l'adresse se trouve en C2
    .Attachments.Add = Range("C2").Text
    'Adresse sous forme en C2: \\croix-rouge.prv\hum\MCR**\Tresorerie***\VSL\VSL 2022 318 Aline.pdf
     
    .Display  ' Pour afficher la signature si existante
  End With
  ' Libérer la mémoire
  Set OutMail = Nothing: Set OutApp = Nothing: Set Sht = Nothing
End Sub

Merci pour votre aide,
Claudy
 
Bonjour @Claudy

Je te propose :

VB:
'Essaye 1 ==> Si par exemple l'adresse de ton fichier est dans la cellule C2
       .Attachments.Add ActiveSheet.Range("C2").Value

'Essaye 2 ==> adresse en dur de ton fichier
       .Attachments= "C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm"

'Essaye 3 ==> 'MonFichier est déclaré avec son chemin un peu plus haut
       .Attachments.Add (MonFichier)

Précision :

Dans l'essai 1 ==> Dans la cellule C2 de mon exemple tu dois avoir le chemin complet du fichier
exemple : C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm
Si chemin réseau ==> \\Monchemin\MonRepServeur\Montruc\Monmachin.xlsm


Dans l'essai 2 ==>Pour un chemin réseau
.Attachments= "\\Monchemin\MonRepServeur\Montruc\Monmachin.xlsm"


Dans l'essai 3 ==> MonFichier=ThisWorkbook.Path & "\" & ThisWorkbook.Name
(peut être il faudra remplacer ThisWorkbook.Name par ThisWorkbook.FullName )
donc ==> .Attachments.Add (MonFichier)

Por acces serveur : il faut que tout le monde est accès au serveur ET avec la même arborescence.

Merci de ton retour

@Phil69970
 
Bonjour @Claudy

Je te propose :

VB:
'Essaye 1 ==> Si par exemple l'adresse de ton fichier est dans la cellule C2
       .Attachments.Add ActiveSheet.Range("C2").Value

'Essaye 2 ==> adresse en dur de ton fichier
       .Attachments= "C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm"

'Essaye 3 ==> 'MonFichier est déclaré avec son chemin un peu plus haut
       .Attachments.Add (MonFichier)

Précision :

Dans l'essai 1 ==> Dans la cellule C2 de mon exemple tu dois avoir le chemin complet du fichier
exemple : C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm
Si chemin réseau ==> \\Monchemin\MonRepServeur\Montruc\Monmachin.xlsm


Dans l'essai 2 ==>Pour un chemin réseau
.Attachments= "\\Monchemin\MonRepServeur\Montruc\Monmachin.xlsm"


Dans l'essai 3 ==> MonFichier=ThisWorkbook.Path & "\" & ThisWorkbook.Name
(peut être il faudra remplacer ThisWorkbook.Name par ThisWorkbook.FullName )
donc ==> .Attachments.Add (MonFichier)

Por acces serveur : il faut que tout le monde est accès au serveur ET avec la même arborescence.

Merci de ton retour

@Phil69970
Bonjour et merci,
j'ai trouvé:
tout simplement:
.Attachments.Add Range("C2").Value

Bonne soirée,

Claudy
 
Re

Tu es sur que tu as trouvé toute seule ?

j'ai trouvé:
tout simplement:
.Attachments.Add Range("C2").Value

Donc c'est le 1ere essai de ma réponse !!! 😵

'Essaye 1 ==> Si par exemple l'adresse de ton fichier est dans la cellule C2 .Attachments.Add ActiveSheet.Range("C2").Value

Posé une question c'est bien lire les réponses et les valider c'est mieux !!! 😉

@Phil69970
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
718
Réponses
6
Affichages
671
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
387
Réponses
17
Affichages
2 K
Réponses
2
Affichages
923
Réponses
1
Affichages
989
Réponses
5
Affichages
2 K
Retour