Bonjour à tous !
Après avoir fait énormément de recherche, créer plusieurs VBA et réaliser plein d'essaies j'ai décidé de me créer un compte car je n'arrive pas du tout à trouver la solution à mon problème.
Je travail actuellement sur une macro pour envoyer un mail automatiquement, à plusieurs personnes, avec un PDF en pièce jointe. A savoir que ce PDF à un nom variable allant de 2019001 à 2019999.
Voici ma VBA :
Je sais déjà que le soucis se trouve en rouge car si je met manuellement le chemin complet avec le nom du fichier, cela fonctionne : H:\le\petit\chemin\2019001.pdf
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub Sendings() Dim Chemin As String, NomFichier As String, CheminComplet As String NomFichier = Range("B5").Value Chemin = "H:\le\petit\chemin" Dim olApp As Object Set olApp = CreateObject("Outlook.Application") With olApp.createitem(0) .To = "test@test.fr" .Subject = "TEST" .Attachments.Add "Chemin & "\" & NomFichier & "".pdf" .Send End With Set olApp = Nothing MsgBox "La dérogation a bien été envoyée" End Sub
J'espère que vous pourrez m'aider à comprendre mon erreur
Merci d'avance
Partager