No repetir documento

Predi · el 20 de junio

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

Haplox · el 27 de junio

@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