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 :

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
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

J'espère que vous pourrez m'aider à comprendre mon erreur
Merci d'avance