Aide erreur d'exécution '1004' : Erreur définie par l'application ou

Bonjour à tous,

J'ai réalisé une macro en VBA grâce à votre aide pour exporter sous format PDF un fichier et l'enregistrer dans un dossier spécifique.
Voici la macro :

Sub ENREGISTREMENT()
'
' ENREGISTREMENT Macro
'
'Sub Sauvegarde_Enregistre_En_PDF()
    Dim NomFichier As String
    Application.DisplayAlerts = False
    NomDossier = "T:\UNITE PRODUCTION AMIDONNERIES\Ateliers Amidonneries\Amidonnerie de Maïs\Encadrement\1 AMELIORATION CONTINUE\3. TOP WEEK\KPI top WEEK\1. Sauvegardes\"
    ActiveSheet.Copy
    NomFichier = "TOP HEBDO AMM_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomDossier & NomFichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWorkbook.Close
    MsgBox "Votre fichier de sauvegarde : " & NomFichier & vbNewLine & _
        "a bien été enregistré dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "VALIDATION DE SAUVEGARDE"
End Sub

Elle fonctionnait bien jusqu'à la semaine dernière où j'ai du déplacer le fichier de dossier. J'ai donc validé la macro qui marchait bien dans un premier temps.
Mais depuis j'ai ce message qui apparaît lorsque la publication PDF se bloque à cet endroit :

Le débogueur m'envoie vers cette ligne mais je ne sais pas comment la corriger, d'autant que la même macro fonctionne correctement (et avec la même syntaxe) dans un autre fichier

Pourriez-vous m'aider SVP ?

Merci d'avance,

Mtlvq

Bonjour,

Testez votre chemin avec ce code :

Sub TestRepertoire()
    MsgBox VerifierLeChemin("Votre chemin") ' A adapter
End Sub

Function VerifierLeChemin(ByVal Chemin2 As String) As Boolean

Dim Fso As Object

    VerifierLeChemin = False
    Set Fso = CreateObject("Scripting.FileSystemObject")
    VerifierLeChemin = Fso.FolderExists(Chemin2)
    Set Fso = Nothing

End Function