Enregistrement fichier pdf

SL7683 Messages postés 1 Statut Membre -  
fabien25000 Messages postés 697 Statut Membre -
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
A voir également:

2 réponses

Réponse 1 / 2
francky0504 Messages postés 191 Statut Membre 23
 
pas très claire , vous pouvez reformuler ?
0
Réponse 2 / 2
fabien25000 Messages postés 697 Statut Membre 59
 
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

0