Envoi mail avec PDF nom variable

Version imprimable

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:

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

20/02/2019, 09h38
halaster08

Bonjour,

Citation:

envoyer un mail automatiquement, à plusieurs personnes, avec un PDF en pièce jointe

On est bien d'accord que tu envoie le même pdf a tous les destinataires ?

Citation:

A savoir que ce PDF à un nom variable allant de 2019001 à 2019999.

Est-ce le seul pdf avec un nom commençant par 2019 présent dans le répertoire au moment de l'envoi ?
Si non comment détermines-tu lequel envoyé ? celui dont le nombre est le plus grand ? celui dont la date est la plus récente ? Autre ?

edit: en lisant plus attentivement ta macro je crois que j'ai mes réponse ...
une question cependant sur la ligne de code suivante:

Code:

.Attachments.Add "Chemin & "\" & NomFichier & "".pdf"

Le double guillemets devant Est-ce une faute de frappe ? un seul suffit
Il y a aussi un guillemet en trop devant la variable chemin:

Code:

.Attachments.Add Chemin & "\" & NomFichier & ".pdf"

Merci pour ton retour Halaster !

Effectivement c'était bien une erreur au niveau des guillemets ! Et 2 - 3 petites erreurs en plus ;)

Voici la macro fonctionnelle pour ceux qui le souhaitent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SendMail()
 
Dim Chemin As String, NomFichier As String 'Permet de déterminer les variables utilisées
NomFichier = Sheets("Dérogation").Range("B5")
Chemin = "H:\Le\Chemin\Denregistrement" 'Chemin vers le dossier d'enregistrement
Dim olApp  As Object
Set olApp = CreateObject("Outlook.Application") 'Permet d'ouvrir l'application Outlook Mail
    With olApp.CreateItem(0)
       .To = "test@test.fr" 'Pour modifier la liste de diffusion, faire un ticket sur l'IT
       .Subject = "Création d'une nouvelle dérogation n°" & Range("B5").Value
       .Body = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint la dérogation N° " & Range("B5").Value 'Corps du mail
       .Attachments.Add Chemin & "\" & NomFichier & ".pdf"
       .Send 'Mettre .Display si vous souhaitez ouvrir le mail avant de l'envoyer
    End With
Set olApp = Nothing
MsgBox "La dérogation n°" & Range("B5").Value & " a bien été envoyée"
End Sub