Problème génération fichier pdf via macro

Bonjour à tous,

Je suis nouveau sur le forum et pas vraiment calé en macro :)

J'ai récupéré une macro pour un fichier de facturation. J'ai voulu changer le titre du pdf généré en passant de :

sNomFic = Range("e9") & ".pdf"

qui fonctionne à :

sNomFic = "Facture n°" & Objet1 & " - " & Datefacture1 & " - " & Range("e9") & ".pdf"

Et là c'est le drame, lorsque je lance la macro, j'ai le message Erreur d'exécution "1004" qui s'affiche et j'ai ce pavé qui apparait en jaune dans débogage :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Je suis perdu, quelqu'un a t'il la solution ?

Merci d'avance

Adrien

Bonjour,

Objet1 & Datefacture1 correspondent à quoi ?

Bonjour M12,

Merci de ton intérêt,

Ils correspondent à des cellules de la feuille concernée à savoir B17 et B18.

Sub Macro1()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object
Dim Objet1 As Variant
Dim Datefacture1 As Variant
Dim mail1 As Variant
mail1 = Range("e14")
Objet1 = Range("B17")
Datefacture1 = Range("B18")

Re, si la macro de ton dernier post est différente de la macro pour le PDF, c'est normal

Tes variables sont seulement déclarées pour la macro où tu les déclarent

Soit tu place la macro PDF à la suite , où alors tu place tes variables au dessus du Sub pour le même module ou par Public Sub pour divers module

mais sans voir la conception, après ...

Bonjour,

Qui plus est, impossible de mettre des slash dans un nom de fichier... Donc la date sans transformation ne passera pas.