Crear ARCHIVO PDF con nombre recuperado de una celda

marco -  
 marco -
Hola,

siendo novato en macros, me dirijo a ustedes para pedir ayuda.
Quisiera guardar mi archivo en PDF en el mismo directorio que mi archivo de Excel recuperando su nombre de una celda.
Preciso dos cosas, el archivo de Excel se encuentra en un servidor interno (no sé si eso tiene importancia).
La celda donde se encuentra el nombre a recuperar utiliza la función
=CONCATENAR(E11;" "; B12;" "; E12)
para crear el nombre.
¡Gracias de antemano por su ayuda!

Configuración: Windows / Firefox 72.0

3 respuestas

  1. cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 731
     
    Hola,

    como esto:

    Sub savepdf() Dim nom As String ' nombre del pdf Dim chemin As String 'camino de la carpeta de guardado nom = Range("A1").Value 'adaptar celda chemin = ActiveWorkbook.Path & "\" ' misma carpeta que el libro 'guardar en PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & nom, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub 


    --
    @+ El Pivert
    0
    1. marco
       
      Hola,

      gracias por su respuesta y su rapidez.
      ¡De hecho, funciona muy bien!
      Me gustaría llevar un poco más lejos si es posible.
      Me explico. ¿Podría haber un mensaje de error si ya existe en el directorio un archivo PDF con el mismo nombre?
      ¡Gracias de nuevo!
      0