Dopo aggiornamento 7.1 to 7.2 macro manda in crash

[AMax]

Buongiorno, ho un file con delle macro che hanno sempre funzionato, ho effettuato l’aggiornamenteo alla versione 7.2.5.2 e la stessa macro, che funziona con la versione 7.1.8, si blocca mandando in crash.
Per la precisione non ricordo se prima della versione 7.2.5.2. avessi già una versione 7.2.
Che voi sappiate è cambiato quacosa? e se si cosa devo fare?
Grazie se riesco a preparare un file più leggero con la sola macro lo allego

[schiavinatto]

Posta la mocro del problema.

[AMax]

Ecco il la macro che mi mabda in blocco tutto con la versione 7.2.5 mentre funziona senza problemi con la 7.1.8

Grazie

SalvaInContabilita

Dim DocName as object, DocUlr as string, dummy(), range as object, sVar as Integer
Doc = ThisComponent
sheet = Doc.currentcontroller.getActiveSheet() 'Seleziona il foglio visualizzato
NomeFoglioArchivio = sheet.getCellRangeByName(“A7”).String ’ il nome del foglio di destinazione

sVar = MsgBox( “Vuoi continuare con il salvataggio [ " & NomeFoglioArchivio & " " & sheet.getCellRangeByName(“A8”).string & " ] nel file di contabilità?”, MB_YESNO )

If sVar = IDYES Then
sFileName ="/Users/User/Documents/Contabilità/2022/22-Riepilogo-Contabilità.ods" ’ file destinazione NAS
DocUrl = ConvertToURL(sFileName)
DocName = StarDesktop.loadComponentFromURL (DocUrl, “_blank”,0, Dummy() )

If NomeFoglioArchivio = “Preventivo n°” Then
Archivio = DocName.Sheets.getbyname(“Ultima Preventivo”)
Else
Archivio = DocName.Sheets.getbyname(“Ultima Fattura”)
End if

REM —Loop che controlla celle di colonna A …
'incrementando il valore della variabile “Riga” fino a trovare il valore della prima riga libera
Riga = 1
Do while Archivio.getCellByPosition(0,Riga).string <> “”
Riga = Riga + 1
Loop
Archivio.getCellByPosition(0,Riga).String = Sheet.getCellRangeByName(“E6”).String 'Riferimento
Archivio.getCellByPosition(2,Riga).String = Sheet.getCellRangeByName(“F5”).String 'Cliente
Archivio.getCellByPosition(3,Riga).String = Sheet.getCellRangeByName(“F6”).String 'Nome
Archivio.getCellByPosition(15,Riga).String = Sheet.getCellRangeByName(“A8”).String 'N°
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName(“C8”).Formula 'Data
Archivio.getCellByPosition(6,Riga).String = Sheet.getCellRangeByName(“A6”).String 'Descrizione
Archivio.getCellByPosition(7,Riga).Value = Sheet.getCellRangeByName(“A10”).Value 'Imponibile
DocName.store
DocName.Close(true)
MsgBox (" Archiviazione [ " & NomeFoglioArchivio & " " & sheet.getCellRangeByName(“A8”).string & " ] EFFETTUATA con successo nel file di contabilità.")
Else
MsgBox (" Archiviazione [ " & NomeFoglioArchivio & " " & sheet.getCellRangeByName(“A8”).string & " ] NON effettuata nel file di contabilità.")
End If

End Sub

[AMax]

Buongiorno, ripesco questa discussione, perchè il problema si è ripresentato con l’aggiornamento alla versione 7.4.5.
Il problema sta nella chiusura del file di destinazione, perché i dati li copia, ma è come se andasse in loop per la chiusura del file e si blocca.
Uso macOs 13.1 e lo stesso file non riesco ad aprirlo con linux.
Grazie