Enregistrement fichier pdf

Question

Bonjour,

j'ai un fichier excel qui de base pour la création de bordereaux de transport.
Je modifie ce fichier à chaque création de bordereau de transport. Puis je l'enregistre en format excel en lui donnant un nom, puis je l'enregistre à nouveau sous le même nom en format pdf.

Je souhaiterais créer une macro pour pouvoir enregistrer ce fichier en format pdf mais en conservant le nouveau nom que je viens de donner au format excel.

J'espère être assez clair...????

Par avance merci

francky0504 · Answer

pas très claire , vous pouvez reformuler ?

fabien25000 · Answer

Bonsoir,

une piste :
    Dim Dossier As String,  tmpChemin As String, Nom As String

Dossier = ThisWorkbook.Path

Nom =ThisWorkbook.Name
    
    tmpChemin = Dossier
    Dir (tmpChemin)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tmpChemin & "\" & Nom & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, from:=1, To:=1, _
     OpenAfterPublish:=True

Enregistrement fichier pdf

2 réponses

Discussions similaires

Newsletters