Sub Copie_ODS_sans_MDP_sur_feuille
Dim oSheet As Variant
Dim sPass As String
Dossier = "C:\Users\Staple\Documents\testPODS\"
nouveauD = "C:\Users\Staple\Documents\testNPODS\"
fichier = DIR(Dossier)
While fichier <> ""
If RIGHT(fichier,3) = "ods" Then
fileURL = convertToURL(Dossier & fichier)
oDoc = StarDesktop.loadComponentFromURL(FileURL, "_blank", 0, Array())
oSheet = oDoc.CurrentController.getActiveSheet ' =>Feuille active'
sPass = "Coralie" ' => Mot de passe connu pour déprotéger la feuille '
oSheet.Unprotect(sPass)
oDoc.storeAsURL(convertToURL(nouveauD & fichier), Array())
oDoc.close(TRUE)
End If
fichier = DIR()
Wend
End sub