Renommer pièce jointe PDF macro excel et Outlook

Résolu
orould Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   -  
orould Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche à générer automatiquement un bon de commande qui ait en pièce jointe ma feuille PDF. Le problème est que j'arrive à enregistrer avec le nom que je souhaite en PDF, j'arrive à créer le mail, je n'arrive pas à renommer la pièce jointe, elle garde le nom "Mafeuille.PDF". Si vous pouvez m'aider, merci


Sub SendWithAtt()

Dim Rep As Integer
i = [B7].Value
Rep = MsgBox("Voulez-vous envoyer le bon de commande chez " & i, vbYesNo + vbQuestion, "mDF XLpages.com")
If Rep = vbYes Then
' ici le traitement si réponse positive
' ...
Dim fichier As String
fichier = "D:\Moi\Desktop\zik\" & [E5].Value & "_" & [B3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False


Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = [L9].Value
.Subject = [E5].Value & "_" & [B3].Value
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile

.Display '.Send
End With
Else
' ici le traitement si réponse négative
' ...
End If


' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub





A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Changer cela: 

CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"


par ceci: 

Name ThisWorkbook.Path & "\" & "MaFeuille.Pdf" As ThisWorkbook.Path & "\" & "Nouveaunom.Pdf"
 CurFile = ThisWorkbook.Path & "\" & "Nouveaunom.Pdf"

1
Réponse 2 / 2
orould Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   23
 
Merci pour la réponse, j'y suis presque. Le nom change mais il faut qu'il soit variable (E5_B3) j'ai essayé : 

Name ThisWorkbook.Path & "\" & "MaFeuille.Pdf" As ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value
 CurFile = ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value


Mais ça ne fonctionne pas, si je peux avoir encore un petit coup de main, merci !
1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Il manque l'extension: 

 CurFile = ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value & ".Pdf"
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Là aussi: 

Name ThisWorkbook.Path & "\" & "MaFeuille.Pdf" As ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value & ".Pdf"
0
orould Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   23
 
Il me dit "erreur d'exécution '53' : fichier introuvable" 

Name ThisWorkbook.Path & "\" & "MaFeuille.Pdf" As ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value & ".Pdf"
CurFile = ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value & ".Pdf"


Je ne comprends pas ce que je foire.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Il manque là aussi l'extension 

Dim fichier As String 
fichier = "D:\Moi\Desktop\zik\" & [E5].Value & "_" & [B3].Value 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
IgnorePrintAreas:=False, OpenAfterPublish:=False


Je ne comprends pas si tu enregistres sous un nom, pourquoi le renommer. Enregistre le directement sous le bon nom!
0
orould Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   23
 
Parce que je n'y arrivais pas, mais grâce (je garde l'accent) à toi c'est bon :) Merci !

voilà mon code final si ça peut aider d'autre gens : 

Sub SendWithAtt()

Dim Rep As Integer
i = [B7].Value
Rep = MsgBox("Voulez-vous envoyer le bon de commande chez " & i, vbYesNo + vbQuestion, "mDF XLpages.com")
If Rep = vbYes Then
' ici le traitement si réponse positive
' ...
Dim fichier As String
fichier = "D:\moi\Desktop\zik\" & [E5].Value & "_" & [B3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False


Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = [L9].Value
.Subject = [E5].Value & "_" & [B3].Value
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add ThisWorkbook.Path & "\" & [E5].Value & "_" & [B3].Value & ".Pdf"

.Display '.Send
End With
Else
' ici le traitement si réponse négative
' ...
End If


' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub
0