Tengo el siguiente código, al que le he puesto un tratamiento de errores con una etiqueta al final con opciones para los distintos errores que creo que se pueden producir, pero no se por qué motivo no hace dicho tratamiento de errores y cuando se produce un error me abre la ventana de depuración, como si no existiera la etiqueta.

El código es un sub de un módulo que se activa desde un evento de un botón de un formulario y hace llamadas a otro procedimento sub (guardar_como).  Este es el código:

No se qué es lo que he hecho mal para que al producirse un error no pase por la etiqueta. Os agradecería una ayudita. Muchas gracias.

Error Resume Next

Sub ceexcred()

On Error GoTo etiqueta

terminado = False

' Rutas de origen y destino

Dim ruta_origen As String, plantilla As String, plantilla_origen As String

ruta_origen = CurrentProject.Path & "\_PLANTILLAS\"

plantilla = "Certificado de Existencia crédito.docx"

plantilla_origen = ruta_origen & plantilla

    

Dim ruta_destino As String, plantilla_destino As String

ruta_destino = frm!diet_ruta.Value & "\"

plantilla_destino = ruta_destino & plantilla

    

' Copia la plantilla a la ruta de destino

'On Error Resume Next

FileCopy plantilla_origen, plantilla_destino

If err.Number <> 0 Then

    MsgBox "Error al copiar la plantilla. Asegúrate de que la ruta de destino exista.", vbExclamation

    err.Clear

    Exit Sub

End If

'On Error GoTo 0

'' Nombre y ruta del archivo original

strFileName = plantilla

    

' Lanzamiento de Word

Set AppWord = New Word.Application

AppWord.Visible = True

    

    

' Apertura de la carta modelo

'    On Error Resume Next ' Ignorar errores

'    Set DocWord = AppWord.Documents.Open(strFilePath & "\" & strFileName)

    Set DocWord = AppWord.Documents.Open(plantilla_destino)

'    If err.Number <> 0 Then ' Ocurrió un error al abrir el documento

'        MsgBox "Error al abrir el documento de Word. Asegúrate de que el archivo no esté abierto.", vbExclamation

'        err.Clear

'        Set DocWord = Nothing

''        Set objWord = Nothing

'        Exit Sub

'    End If

'

'    On Error GoTo 0 ' Reanudar el manejo de errores normal

    

'   Datos a marcadores

With DocWord.Bookmarks

        .Item("Consejeria1").Range.Text = textfirma_Consejeria1

        .Item("Consejeria2").Range.Text = textfirma_Consejeria2

        .Item("presup_firmante").Range.Text = textfirma_presup_firmante

        .Item("presup_cargo").Range.Text = textfirma_presup_cargo

        .Item("Consejeria11").Range.Text = textfirma_Consejeria1

        .Item("Consejeria21").Range.Text = textfirma_Consejeria2

        .Item("CA").Range.Text = textfirma_CA

        .Item("Organismo").Range.Text = frm!diet_organismo

        .Item("Programa").Range.Text = frm!diet_programa

        .Item("Subconcepto").Range.Text = frm!diet_subconcepto

        .Item("Tipo_gasto").Range.Text = tipo_gasto

        .Item("Proyecto").Range.Text = frm!diet_proyecto

        .Item("Importe_total").Range.Text = Format(frm!diet_importe_total, "#,##0.00 €")

       

End With

terminado = True

MsgBox "Guarde el documento en su ruta de T:\, para evitar sobreescribir la plantilla"

'Direcciona ruta del documento

Dim rutaPorDefecto As String

rutaPorDefecto = frm!diet_ruta.Value

guardar_como AppWord, rutaPorDefecto

'Una vez guardado el word con los datos, borra la plantilla en ruta destino

Kill plantilla_destino

Exit Sub

etiqueta:

If err.Number = 76 Then

    MsgBox "Ha introducido una ruta no válida para guardar los archivos de este expediente"

    Firmantes

    normativa

End If

If err.Number = 94 Then

    MsgBox "Ha dejado en blanco algún dato imprescindible para el documento. Revíselo."

    Firmantes

    normativa

End If

If err.Number = 70 Then

    MsgBox "Tiene abierto en word el documento destino. Ciérrelo y vuelva a intentarlo."

    Firmantes

    normativa

End If

End Sub

Sí había uno en el evento load del formulario, pero ya lo he comentado también y aún así no he conseguido nada...

De todas formas, la instrucción de inicio del sub (on error goto etiqueta) no anularía cualquier resume next?

En otro formulario -en blanco-, create una sub que tenga un error, por ejemplo meter 1.000.000 en un integer     ¿ te funciona el control de errores ?

Si no encuentras nada, prueba a crearte una B.D. en blanco e importa solo lo que necesites para poder probarlo en ella, a ver que ocurre.

La versión de officce que tengo es la 2021. Puede tener algo que ver?

Le he puesto Err.Clear al final de la etiqueta, pero no pasa por ella:

-  https://learn.microsoft.com/es-es/office/vba/language/reference/user-interface-help/options-dialog-box#general-tab" rel="nofollow - Cuadro de diálogo Opciones | Microsoft Learn

Si no es esto, ya lo único que se me ocurre es que uses la opción de Reparar Access:

-  https://support.microsoft.com/es-es/office/reparar-una-aplicaci%C3%B3n-de-office-7821d4b6-7c1d-4205-aa0e-a6b40c5bb88b" rel="nofollow - Reparar una aplicación de Office - Soporte técnico de Microsoft

Muchísimas gracias pitxiku por tu gran ayuda. Ya no sabía qué hacer.

Por mi parte, se puede cerrar este hilo. Gracias.

Yo buscándolo y no lo encontraba por ningún lado .... aisss 

Gracias pitxiku.