Erreur ouverture de fichiers ods dans excel via une macro

Bonjour,

je voudrais récupérer des données de fichiers ods et xlsx dans un tableau récapitulatif xlsx (dans lequel j'ai créé mes macro).
Pour cela j'ai créé une petite macro permettant de convertir les fichiers ods en xlsx (code ci-dessous).

Quand je lance la macro, j'obtiens un code erreur 1004 "le fichier nomdupremierfichier.ods est introuvable". En effet, si j'essaie d'ouvrir mon fichier ods dans excel, excel me dit que le contenu est illisible, me demande si je veux récupérer le contenu, je dois cliquer oui, et excel l'ouvre en ne conservant que les valeurs à la place des formules (ce qui ne me gêne pas).

Comment puis-je lui dire en vba de réparer le fichier? J'ai trouvé un bout de code de ce type Application.Workbooks.Open(filename:=TxtInsuredForm1.Text, corruptload:=xlrepairfile)
mais je n'arrive pas à l'insérer correctement dans mon code (suis débutante en vba...)

Je suis preneuse de vos idées, merci beaucoup pour ce forum qui m'est d'une grande aide!

Merci d'avance



Sub conversion_ods()


Dim chemin As String, nomfich As String, nouveaunom As String
Application.ScreenUpdating = False 'fige l'écran
'
chemin = ThisWorkbook.Path & "\"
nomfich = Dir(chemin & "fichiers_ODS\" & "*.ods") '1er fichier du dossier
While nomfich <> ""
If nomfich <> ThisWorkbook.Name Then
Workbooks.Open Filename:= _
nomfich
nouveaunom = Replace(ActiveWorkbook.Name, ".ods", "_converti.xlsx")
ChDir chemin
ActiveWorkbook.SaveAs Filename:= _
nouveaunom _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ChDir chemin & "fichiers_ODS"
nomfich = Dir 'fichier suivant du dossier
End If
Wend
End Sub