Discussion :

[Alex101283]

Bonjour,

Je cherche a faire une macro pour imprimer en PDF mais Excel me renvoi systématiquement une erreur 1004 "Erreur définie par l'application ou par l'objet".

Voici le code que je met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SavePDF()
 
    Sheets("Invoice").ExportAsFixedFormat _
        Type:=xlTypePDF
 
End Sub

L'erreur se produit sur la premiere ligne lorsque j'appelle la fonction ExportAsFixedFormat.

J'ai parcourus plusieurs topic sur l'erreur 1004, essayez plusieurs codes mais j'ai toujours cette erreur. Merci beaucoup pour votre aide.

Alex

[BENNASR]

Bonjour
Essayez ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Invoice " _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

[Alex101283]

Merci pour votre aide. Malheureusement j'ai la même erreur.

[RyuAutodidacte]

Bonjour,

Ce problème existe déjà sur Excel 2011 et apparement ça n'a pas été corrigé dans Excel Mac 2016 (jusqu'à preuve du contraire)
la solution serait de passer par de l'AppleScript et là les règles ont aussi changé sur la version 2016 (je n'ai pas eu le temps de m'y pencher)

voir mes commentaires en post #48 et liens en post #52 Edit 2

Voilà

[Alex101283]

Bonjour,

Merci de votre aide. Je viens de faire d'autre essais avec le code ci dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub SavePDF()
Sheets("Invoice").Activate
    ActiveSheet.SaveAs Filename:= _
        "/Users/alex/Template Facture.pdf", FileFormat:=xlPDF
End Sub

Cela fonctionne si le fichier Template Facture.pdf existe à l'emplacement, j'ai une PopUp qui me demande si je veux l'écraser. En revanche si le fichier n'existe pas Excel ne parvient pas à le créer et me renvoi l'erreur 1004.

[BENNASR]

essayer de remplacer facture par ThisWorkbook.Name mais la forme Excel doit être enregistrée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub SavePDF()
Sheets("Invoice").Activate
    ActiveSheet.SaveAs Filename:= _
        "/Users/alex/" & ThisWorkbook.Name, FileFormat:=xlPDF
End Sub

ou bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub SavePDF()
Sheets("Invoice").Activate
    ActiveSheet.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & ThisWorkbook.Name, FileFormat:=xlPDF
End Sub

NB : Débutant et Autodidacte alors attention au dos d’âne dans le code