Enregistrer en PDF

Bonjour,

Je viens vers vous car après plusieurs recherches je ne trouver pas la solution, dans l'image suivante je souhaite cliquer sur la macro pour que l'étiquette qui est au-dessus puissent s'enregistrer en PDF dans un dossier créée pour ça je tiens à signaler que je suis sous mac je n'arrive pas à comprendre le chemin à réaliser pour ça, ça imprime mais ça ne me le sauvegarde pas en PDf pouvez vous m'aider s'il vous plaît je vous en remercie d'avance.

Sheets("EtiquettesTableau").Select
Application.ActivePrinter = "PDFCreator sur Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne01:"",,TRUE,,FALSE)"

Bonjour,

Ta question porte-t-elle uniquement sur le format PDF ? Ou sur tout le process pour enregistrer un fichier ?

Si je comprends bien ta question je souhaite simplement un enregistrement au PDf dans un dossier spécifique je sais pas si je m'exprime correctement.

Bonjour,

J'ai trouvé ce code pour enregistrer un fichier excel en PDF par contre je nage pour voir ce que je dois rajouter pour que je puisse donner un nom à l'export en pdf avant qu'il enregistre pouvez-vous me donner un conseil s'il vous plaît je vous remercie d'avance.

ChDir "/Volumes/Boulot/logiciel/Etiquettes Tableaux/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Volumes/Boulot/logiciel/Etiquettes Tableaux/DevisetFacturesessai.pdf", _
        Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:= _
        False, OpenAfterPublish:=True

Bonjour,

Peux-tu transmettre un ficher à ta demande stp ?

Je n'ai jamais fais ce genre d'enregistrement mais je veux bien essayer

Bonjour, je te le fais parvenir dans les cinq minutes

Bonjour,

Dans cet exemple que je te transmets je souhaite cliquer sur le bouton(Macro) PDF pour que le rectangle qui est en blanc soit enregistré dans un dossier défini avec le nom qui est dans la cellule ("F22") je te remercie de ton aide cordialement

Sub Macro20()
'
' Macro20 Macro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/artistedubarre/Desktop/dossier sans titre/Classeur2.pdf", Quality:= _
        xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("F22").Select
    ActiveCell.FormulaR1C1 = " "
    Range("F22").Select
    ActiveSheet.Shapes.Range(Array("Rectangle 5")).Select
    Selection.OnAction = "Macro20"
    Range("B11").Select
End Sub

J'ai trouvé ce code mais il me met en jaune c'est erreur "ActiveSheet" je ne comprends pas pourquoi

Sub enregistrerpdf()
Dim nompdf As String
Dim dossier As String

dossier = "/Users/artistedubarre/Desktop"

nompdf = dossier & "\" & Sheets("EtiquettesTableau").Range("F22")

[b]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False[/b]

End Sub

Bonjour,

A adapter et tester :

Sub save_PDF()
Dim fichier As String

With Worksheets("EtiquettesTableau")
'adapter le nom sous lequel le fichier sera enregistré
fichier = "\NOM A DONNER AU FICHIER.pdf"
'adapter le chemin du dossier
Dossier = "\\A MOFIFIER\A MODIFIER\A MODIFIER\ETC."
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

EDIT :

Pardon je n'avais pas tenu compte du nom de fichier en F22 :

Sub save_PDF()
Dim fichier As String

With Worksheets("EtiquettesTableau")
'adapter le nom sous lequel le fichier sera enregistré
fichier = "\" & Range("F22") & ".pdf"
'adapter le chemin du dossier
Dossier = "\\A MOFIFIER\A MODIFIER\A MODIFIER\ETC."
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Bonjour,

Je reviens vers toi car la formule que tu m'as donné envoie une impression sur mon imprimante mais n'enregistre pas en format PDF j'ai essayé de tourner la formule mais je n'arrive pas à voir d'où vient le problème je te remercie du coups de main

Je ne pense pas que le problème vienne de ce code, il marche chez moi.

Tu as peut-être un bout de code qui traîne quelque part ?

Si quelqu'un d'autre pouvait tester ce serait cool !