Bonjour

Sur un fichier excel avec plusieurs feuilles, il s'agit d'enregistrer une page de Facture (sur la feuille "Commande ") en Pdf à l'aide d'un bouton (sur la page "Calcul")

Avec, pour le nom du pdf : nom du fichier, du client, de la référence, de la date et de l'heure

le problème est qu'il s'affiche à la ligne "ExportAsFixedFormat Type:= ..." : L'erreur d'exécution "1004" : Erreur définie par l'application ou par l'objet

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
17
18
19
20
21
22
23
24
25
Sub FacturePdf()
 
Dim Reponse As Integer
 
 
NomClient = "Facture " & Range("B5") & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".pdf"
 
Reponse = MsgBox("Confirmez-vous la création d'un pdf pour l'Offre ?", vbYesNo)
If Reponse = vbYes Then
 
        With Sheets("Commande")
 
                Sheets("Commande").Activate
                ExportAsFixedFormat Type:=xlTypePDF, From:=8, To:=8, Filename:=NomClient, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
        End With
 
    MsgBox "La feuille Pdf de Facture est préparé, merci."
 
Else
 
MsgBox "Pdf Annulé"
 
End If
End Sub
J'ai du mal à trouver une solution...

Merci beaucoup