ошибка времени выполнения 1004 VBA, когда я изменил версию Excel на Excel 2016

Question

Мне нужна твоя помощь. В нашей компании есть проблема с файлом Excel, так как мы изменили версию Excel и загрузили Excel 2016, у нас ошибка 1004.

На других компьютерах все работает хорошо.

Private Sub SauvValid()
'-------------------------------------------------------------------------
' SAUVEGARDE DANS LE REPERTOIRE SPECIAL DE SAUVEGARDE
'-------------------------------------------------------------------------

' sauvegarde du fichier dans l'emplacement de sauvegarde mensuelle
    nomFichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 18)
    repertoireSauv = ThisWorkbook.Path & "\"
    repertoire = ThisWorkbook.Path & "\" & Format(Sheets("Calcul Indexe").Range("B1").Value, "yyyy") & "\" & _
            Format(Sheets("Calcul Indexe").Range("B1").Value, "mm") & "-" & Format(Sheets("Calcul Indexe").Range("B1").Value, "mmmm") & "\"
    Call GESTION_DROITS.Masquage
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=repertoire & nomFichier & "SvEnvoiValid-" & _
        Format(Sheets("Calcul Indexe").Range("B1").Value, "yyyymmdd") & "-" & Format(Time, "hhmm") & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

' sauvegarde du fichier de façon normale incrementale
    nomFichier = nomFichier & Format(Sheets("Calcul Indexe").Range("B1").Value, "yyyymmdd") & "-" & Format(Time, "hhmm") & ".xlsm"
    ChDir repertoireSauv
    ActiveWorkbook.SaveAs Filename:=repertoireSauv & nomFichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
    Call GESTION_DROITS.Affichage

End Sub

Любая помощь, пожалуйста.