Sub Conversion_ODS_vers_XLX()
Dim ODS_Nom$, XLS_Nom$, StrPath$
Dim oWorkbook As Workbook, fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Sélectionner le dossier contenant les fichiers ODS"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Convertion annulée", , "Avertissement"
Exit Sub
End If
StrPath = fDialog.SelectedItems.Item(1)
If Right(StrPath, 1) <> "\" Then StrPath = StrPath + "\"
End With
If Left(StrPath, 1) = Chr(34) Then
StrPath = Mid(StrPath, 2, Len(StrPath) - 2)
End If
ODS_Nom = Dir$(StrPath & "*.ods")
While Len(ODS_Nom) <> 0
Set oWorkbook = Workbooks.Open(StrPath & ODS_Nom)
XLS_Nom = StrPath & Left(oWorkbook.Name, InStrRev(oWorkbook.Name, ".") - 1)
oWorkbook.SaveAs Filename:=XLS_Nom & ".xlsx", FileFormat:=51
oWorkbook.Close False
ODS_Nom = Dir$()
Wend
MsgBox "La conversion est terminée", , "ODS vers XLSX"
Exit Sub
End Sub