Discussion :

[dubdub87000]

Bonjour,

Je viens vers vous pour tout d'abord dire que l'enregistrement en version PDF sur Mac avec Office 2016 fonctionne mais il l'enregistre dans les dossiers Excel je ne comprends pas pourquoi je voudrais juste pouvoir lui dire de l'enregistrer par exemple sur le bureau et lui donner un nom que je veux à chaque fois comment est-ce possible s'il vous plaît merci.

Code :

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

1
2
3
4
5
6
7
8
9
Sub enregistrerpdf()
 
 
 
Feuille10.PageSetup.PrintArea = "A1:H62"
 
    Feuille10.Range("A1:H62").ExportAsFixedFormat Type:=xlTypePDF, FileName:="test" & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
 
End Sub

(/ATTACH]450717[/ATTACH]

[patricktoulon]

re
je supute peut etre mais je crois avoir raison
tu enregistre ton pdf sous le nom "test" sans preciser le chemin

Code :

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

 Feuille10.Range("A1:H62").ExportAsFixedFormat Type:=xlTypePDF, FileName:="test" & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True

sur mac je ne sais pas comment on concataine un string pour faire le chemin mais tu devrais t'intérésser a cela
avec window par exemple on enregistre le pdf sur le bureau comme suit

Code :

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

 Feuille10.Range("A1:H62").ExportAsFixedFormat Type:=xlTypePDF, FileName:=environ("userprofile") & "\DeskTop\" & "test.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True

[dubdub87000]

Je vous remercie de votre aide mais ce que vous me proposez ne fonctionne pas il me met un code erreur1004 je vous remercie cordialement

[patricktoulon]

re
et bien sur que ca fonctionne pas la bonne blague je t'ai dis que c'etait pour windows et pas MAC il faut pas lire en diagonale hein !!

dans n'importe quel cas "test" comme chemin de destination ne peut t'enregistrer que sur le chemin de l'app

[dubdub87000]

Bonjour

Je relance cette discussion car j'ai trouvé une solution intermédiaire au problème le nom sera automatiquement celui du classeur ce qui est obligé par ensuite de changer le nom dans le dossier donc si quelqu'un a une idée pour un intermédiaire qui pourrait être la solution je vous remercie d'avance cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pdf()
'
' pdf Macro
'
 
'
    Range("B10:H29").Select
    ChDir "/Volumes/Boulot/logiciel/DevFacOeuv.1.0.1/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Volumes/Boulot/logiciel/DevFacOeuv.1.0.1/DevFacOeuv.1.0.1.pdf", Quality:= _
        xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub••••ˇˇˇˇ8Lúˇ