Macro enregistrer en PDF Résolu/Fermé

Question

Bonjour

J'ai un modèle de document que j'utilise comme bon de commande.

J'aimerais ajouter a ce modèle un bouton qui m'enregistre ce document sous le format PDF dans un dossier spécifique avec un nom de fichier spécifique (correspondant a une cellule excel).

si vous avez une solution...

merci

f894009 · Accepted Answer

Re,

Sub Export_PDF()    Dim fichier As String        Date_F = Format(Date, "ddmmmm_")    'adaptez le nom de la feuille    With Worksheets("Feuil1")        fichier = "\" & Date_F & .Range("B7") & ".pdf"        Dossier = "C:\Users\Vincent\Documents\Commande DNA"        Chemin = Dossier & fichier        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False    End WithEnd Sub

reste a savoir quelle feuille vous voulez enregistrer en pdf

f894009 · Answer

Bonjour,

un exemple:

Sub Export_PDF()    Dim fichier As String    'adaptez le nom de la feuille    With Worksheets("Feuil1")        fichier = "Devis n°" & .Range("B12") & .Range("B13") & ".pdf"        'pensez a ecrire le chemin        Chemin = rep & "\" & fichier        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False    End WithEnd Sub

tooney05 · Answer

Merci mais je suis un peu largé!!

Je souhaite que le nom du fichier soir sous la forme jourmois_nom (15novembre_tartenpion).
La date du jour se trouve en cellule B3 (selon la formule aujourdhui) et le nom en B7

Le dossier se trouve dans mes documents sous le nom "commande DNA"

si tu peux encore m'aider...

merci

f894009 · Answer

Re,

le chemin des "Mes Documents" n'est pas le meme suivant l'OS, a vous de trouver ce chemin. Dans l'exemple, c'est la feuil1 qui est sauvegardee, vous c'est ????

Sub Export_PDF()    Dim fichier As String        Date_F = Format(Date, "ddmmmm_")    'adaptez le nom de la feuille    With Worksheets("Feuil1")        fichier = "\" & Date_F & .Range("B7") & ".pdf"        'pensez a ecrire le chemin        Dossier = "\commande DNA"        'Mes Documents a adapter a votre PC        rep = "C:\Users\SWF"        Chemin = rep & Dossier & fichier        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False    End WithEnd Sub

tooney05 · Answer

j'obtient

erreur d'execution 5
argument ou appel de procedure incorect

debogage: (partie en jaune)

     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

f894009 · Answer

Re,

chez moi ca marche, avez-vous adapte le chemin du fichier ??????

quel excel avez-vous?

tooney05 · Answer

j'ai Excel 2007. Voila une capture du message.

f894009 · Answer

Re,

pour le chemin, vous n'avez besoin que de Dossier et Fichier et pas besoin de rep

tooney05 · Answer

comme ceci?



Ça ne marche pas mieux...

tooney05 · Answer

Ne faut il pas un add-on ou plugin pour la concersion PDF?
Quand je souhaite enregistrer, le format PDF ne m'est pas proposé.

tooney05 · Answer

Reprenons,

J'ai progresser en installant le plug in et avec l'enregistreur de macro.
il me reste a ce que le fichier se nome seul selon la cellule K4
pouvez vous m'inserer la fonction?

Sub pdf()
'
' pdf Macro
'

'
    ChDir "C:\Users\Vincent\Documents\Commande DNA"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Vincent\Documents\Commande DNA\Modele commande.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

tooney05 · Answer

Ca y est ca marche!!!

Merci pour l'aide et la patience...

Macro enregistrer en PDF

12 réponses

Discussions similaires