export PDF ne fonctionne plus excel 2016 Mac

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
dul
Membre habitué
Membre habitué
Messages : 107
Appréciation reçue : 1
Inscrit le : 28 janvier 2014
Version d'Excel : Mac 2011

Message par dul » 24 février 2017, 20:13

Bonsoir,

Suite au passage sous excel 2016 (Mac), l'export PDF de facture ne fonctionne plus, message : erreur d'impression, Erreur d'exécution « 1004 »:Erreur définie par l'application ou par l'objet.

Voici le code qui fonctionnait parfaitement sous excel 2010:

Sub Bouton29_QuandClic()
Dim sNomFichierPDF As String

sNomFichierPDF = "facture #" & Sheets("Facturation").Range("f38") & " " & Range("k20") & ".pdf"


ActiveSheet.PageSetup.PrintArea = "$C$1:$O$78" ' ajout pour forcer la zone à chaque fois

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False



MsgBox "Facture PDF sauvegardée"


End Sub



Merci pour votre aide.

Dul
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'912
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 25 février 2017, 10:33

Bonjour Dul
dul a écrit :Suite au passage sous excel 2016 (Mac), l'export PDF de facture ne fonctionne plus, message : erreur d'impression, Erreur d'exécution « 1004 »:Erreur définie par l'application ou par l'objet.
As-tu essayé avec ton Menu Excel, de faire un Export au format PDF !?

As-tu essayé de mettre un nom simple dans ta variable "sNomFichierPDF" ?

A+
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
d
dul
Membre habitué
Membre habitué
Messages : 107
Appréciation reçue : 1
Inscrit le : 28 janvier 2014
Version d'Excel : Mac 2011

Message par dul » 25 février 2017, 11:08

Bonjour Bruno,

Je te remercie pour ton aide, l'export au format PDF via le menu (enregistrer sous PDF + la zone sélectionnée) fonctionne.
J'ai essayé comme tu me l'as indiqué de simplifier le nom du fichier et cela ne fonctionne toujours pas, le débogueur surligne en jaune les lignes suivantes:

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Dul
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'912
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 25 février 2017, 11:11

Re,

Je suis en train de penser à ça, tu n'indiques aucun chemin d'accès pour ton fichier !?

Normalement tu devrais avoir un truc du style
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Temp\" & sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
:?
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
d
dul
Membre habitué
Membre habitué
Messages : 107
Appréciation reçue : 1
Inscrit le : 28 janvier 2014
Version d'Excel : Mac 2011

Message par dul » 25 février 2017, 11:23

Non, il n'y avait pas de chemin, le PDF atterrissait directement dans le dossier contenant le classeur excel.

J'ai essayé ton ajout de chemin, le résultat est identique: erreur d'impression puis erreur d'exécution « 1004 »:

Erreur définie par l'application ou par l'objet

les lignes ci-dessous sont sur-lignées en jaune:

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'912
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 25 février 2017, 11:37

Re,


Et si tu supprimes justement toutes les options ?
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'050
Appréciations reçues : 616
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 25 février 2017, 12:11

Bonjour,
Un peu de lecture avec ce lien :
http://www.rondebruin.nl/mac/mac005.htm
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
d
dul
Membre habitué
Membre habitué
Messages : 107
Appréciation reçue : 1
Inscrit le : 28 janvier 2014
Version d'Excel : Mac 2011

Message par dul » 25 février 2017, 14:44

Pour Bruno,

j'ai supprimé les options, pas de changement.

Pour Jean-Eric,

Je te remercie pour le lien, j'ai essayé d'adapter la deuxième macro à mon cas "save active sheet in office folder with export as fixed format", le fichier PDF à bien été créé mais je ne l'ai pas encore retrouvé...

Dul
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message