Hola

Como se puede hacer en esta macro para que me avise que ya existe el documento y que si lo quiero grabar

 With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = Application.DefaultFilePath & " \ "
            .Title = "PROYECTADOS SEIXO - Seleccionar carpeta"
            .Show
            If .SelectedItems.Count = 0 Then
            Else
                Ruta = .SelectedItems(1)
               
                    MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _
                    vbInformation, "PROYECTADOS SEIXO"
                    
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    Ruta & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
             End If
        End With
gracias

@Predi , te dejo el código. Si existe tú decides qué hacer, de momento solo te saca de la macro (Exit Sub):

Dim ruta$, fich$

With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & " \ "
    .Title = "PROYECTADOS SEIXO - Seleccionar carpeta"
    .Show
        If .SelectedItems.Count = 1 Then
            ruta = .SelectedItems(1)
            fich = ruta & "\" & "Factura nº " & NumFactura & ".pdf"
            Set fso = CreateObject("Scripting.FileSystemObject")
                If fso.FileExists(fich) Then
                    MsgBox "EL fichero que intenta guardar ya existe"
                    Exit Sub
                Else
                    MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _
                    vbInformation, "PROYECTADOS SEIXO"
                    
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    ruta & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                End If
        End If
End With

End Sub

 

Gracias por tu ayuda Haplox 

Consulta se puede cerrar