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

youky(BJ)

XLDnaute Barbatruc

• 5 Décembre 2016

• #2

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

Bruno

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 5 Décembre 2016

• #3

Bonjour Bruno

Merci pour votre réponse

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Décembre 2016

• #4

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

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 5 Décembre 2016

• #5

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Décembre 2016

• #6

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 6 Décembre 2016

• #7

Salut, voir ici

 

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 6 Décembre 2016

• #8

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...

 

Dernière édition: 6 Décembre 2016

Vote positif 0 Vote négatif

ArnaudSi

XLDnaute Nouveau

• 6 Décembre 2016

• #9

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é.
@++

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 7 Décembre 2016

• #10

je reconnais ce bout de code

 

Vote positif 0 Vote négatif