Ver originales (Francés)

Grabar macro en PDF

Resuelto
tooney05 Mensajes publicados 41 Estado Miembro -  
 Laloue -
Hola

Tengo un modelo de documento que utilizo como orden de compra.

Me gustaría añadir a este modelo un botón que me registre este documento en formato PDF en una carpeta específica con un nombre de archivo específico (que corresponda a una celda de Excel).

Si tiene una solución...

gracias

12 respuestas

  1.
    f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
     
    Re, 

    Sub Export_PDF()
     Dim fichier As String
     
     Date_F = Format(Date, "ddmmmm_")
     'adapte el nombre de la hoja
     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 With
    End Sub


    queda saber qué hoja quieres guardar en pdf
    9