Discussion :

[antoinesop]

Bonjour au forum,


La macro suivante permet de préparer un mail avec une pièce jointe sans l’envoyer.
La pièce jointe est un fichier Pdf, dans mon exemple, : « Facture du 03-12-2015.pdf »
Mon soucis, comment modifier cette macro si la pièce jointe a le nom suivant « Facture du 04-12-2015 ».
En vous remerciant de votre aide.

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 mail()
 
 
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xxxx@groupe.com"
myItem.Subject = "FACTURE DU "
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver en pièce jointe, la facture du " & Chr(13) & Chr(13) & "Cordialement."
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Dossier facture\Dossier facture\Facture du 03-12-2015.pdf"
MsgBox "...préparation du mail à envoyer " & myItem.To
myItem.Display
Set ol = Nothing
 
End Sub

[Oliv-]

Bonjour,

le première réponse qui me vient par rapport à ton énoncé c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myAttachments.Add "C:\Dossier facture\Dossier facture\Facture du 04-12-2015.pdf"

Mais j'imagine plutôt que tu veux que le nom change avec la date (du jour ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myAttachments.Add "C:\Dossier facture\Dossier facture\Facture du " & Format(Date, "dd-mm-yyyy") & ".pdf"

[antoinesop]

La pièce jointe du fichier est variable, c'est-àdire "Facture du xx-xx-xx.pdf"
Ce n'est pas la date du jour. Je me suis trompé.

[Oliv-]

Y a t'il plusieurs factures dans le dossier "C:\Dossier facture\Dossier facture\" ?

comment connais tu le nom de cette PJ ?

[antoinesop]

oui, il y a plusieurs fichiers dans "Dossier "Facture".

[antoinesop]

oui, il y a plusieurs fichiers dans "Dossier "Facture".

La macro 1 permet de convertir la Feuil1 du fichier « Facture » en fichier Pdf.
Ce fichier Pdf est renommé dans un dossier selon la date de la facture qui se trouve en cellule B1.
Dans cette exemple on a : « Facture du 03-12-2015 »

La macro 2 permet de préparer un mail avec la pièce jointe sans l’envoyer.

L’inconvénient de cette macro 2, c’est qu’elle n’envoie la pièce jointe qu’avec un nom déjà prédéfini.

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 mail()
 
 
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xxxx@groupe.com"
myItem.Subject = "FACTURE DU "
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver en pièce jointe, la facture du " & Chr(13) & Chr(13) & "Cordialement."
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Dossier facture\Dossier facture\Facture du 03-12-2015.pdf"
MsgBox "...préparation du mail à envoyer " & myItem.To
myItem.Display
Set ol = Nothing
 
End Sub

[Oliv-]

si tu change ta déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim chemin,w,nom

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public chemin,w,nom

tu peux modifier dans la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myAttachments.Add chemin & nom & ".pdf"

sinon tu peux aussi mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myAttachments.Add ThisWorkbook.Path & "\Dossier facture\" & "Facture du " & Format(Range("B1"), "dd-mm-yyyy")