VBA - Сохранить как документ с моделью данных

Question

У меня возникли проблемы с сохранением в виде файла Excel .xlsx с моделью данных внутри, так как я обновляюсь до O365. У кого-нибудь есть такая же проблема?

Код формата файла следующий

fileExtension = Right(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - InStrRev(ActiveWorkbook.FullName, "."))

If fileExtension = "xlsm" Then
    pfileExtension = 52
ElseIf fileExtension = "xlsx" Then
    pfileExtension = 51
ElseIf fileExtension = "xls" Then
    pfileExtension = 51
ElseIf fileExtension = "xlsb" Then
    pfileExtension = 50
Else
    pfileExtension = 52
End If

Application.ActiveWorkbook.SaveAs filename:=path & "\" & fname, _
FileFormat:=pfileExtension, CreateBackup:=False

. И как только я активирую макрос, файл вообще не имеет никакого расширения. Я сделал msgbox и код работает хорошо, макрос извлекает расширение файла "xlsx", затем присваивает значение 51, а затем по неизвестной причине у меня нет расширения файла.

Я пытался с кодом 61 (найдено здесь https://docs.microsoft.com/fr-fr/office/vba/api/excel.xlfileformat), но без дальнейшего успеха.

Если я сначала сохраню документ в формате .xlsm, макрос будет работать как шарм.

У кого-нибудь есть идеи?