Problème VBA pour enregistrement en Pdf
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:
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 ;)
