XL pour MAC VBA - Enregistrement d'une page en Pdf

ArnaudSi · 5 Décembre 2016

Bonjour

Je cherche à enregistrer une page de Facture (situé sur la feuille "Commande ") en Pdf à l'aide d'un bouton (situé sur la page "Calcul")

L'enregistrement du pdf est fait de manière qu'il porte le nom du fichier, du client, de la référence, de la date et de l'heure à laquelle il est saisie.

Les premières fois la macro fonctionnait parfaitement et à partir d'un moment s'affiche alors à la ligne "ExportAsFixedFormat Type:= ..." : L'erreur d'exécution "1004" : Erreur définie par l'application ou par l'objet

VB:

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 la Facture ?", 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

Si quelqu'un peut me corriger le code ci dessus, ça serait bien sympa

Merci

youky(BJ) · 5 Décembre 2016

Bonjour,
Essaie comme cela
ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomClient, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Bruno

ArnaudSi · 5 Décembre 2016

Bonjour Bruno

Merci pour votre réponse

Il y a toujours le même type d'erreur qui s'affiche

youky(BJ) · 5 Décembre 2016

Mets un point avant Export
.ExportAsFixed ................et la suite
essaie aussi comme cela
. ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomClient
Bruno

ArnaudSi · 5 Décembre 2016

Malheureusement non, cela ne fonctionne pas non plus
L'écran affiche "erreur lors de l'impression"

youky(BJ) · 6 Décembre 2016

Mets un point d'arrêt dans la macro et regarde ce que dit la variable NomClient si des fois il y a un caractère interdit.
Mets le point dans la marge à gauche de Export........lance la macro
dans la ligne jaune passe le curseur sur NomClient
ou en fenêtre Exécution écrit
?NomClient
et presse entrée pour voir le texte de la variable
chez moi >>>> . ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomClient
cette ligne fonctionne si NomClient est correct
Vérifie aussi le format date j'ai jamais vu ça.
Bruno

kiki29 · 6 Décembre 2016

Salut, voir ici

ArnaudSi · 6 Décembre 2016

Merci à tous pour votre aide

Après de nombreuses rectifications avec tests, j'ai trouvé une formule qui fonctionne parfaitement

Je l'ai placé dans le Module 1 et ça marche super

Pour ceux que ça intéresse, ci joint le code :

VB:

Sub Enregistrer_PDF_Facture() 'Facture

Dim repertoire, fichier As String
    Sheets("Commande").Select
    'repertoire = ThisWorkbook.Path & "\" 'répertoire à adapter
    fichier = "Facture " & Range("B5") & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".pdf" 'Nom du fichier avec le nom du client
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=8, To:=8, _
        OpenAfterPublish:=False
    Sheets("Calcul").Select
    MsgBox fichier & (" a été sauvegardé dans le dossier.")

End Sub

Et j'ignore toujours pourquoi la première macro ne fonctionne pas...

ArnaudSi · 6 Décembre 2016

Pour info, après d'autres modifications de macro sur le fichier, la fenêtre d'alerte réapparue ( Erreur d'exécution "1004" : Erreur définie par l'application ou par l'objet ).
J'ai redémarré l'ordinateur et le problème s'est réglé.
@++

RoyalP · 7 Décembre 2016

je reconnais ce bout de code

XL pour MAC VBA - Enregistrement d'une page en Pdf

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

ArnaudSi

XLDnaute Nouveau

RoyalP

XLDnaute Occasionnel

Discussions similaires