merci beaucoup,
ça a fonctionné !
Bon week-end,
Cordialement
Pascal Léval
Le 04/05/2023 à 13:02, jean-francois a écrit :
Bonjour Pascal,
> J'ai un document Libreoffice Calc contenant 150 feuilles, et je
> souhaiterais les renommer automatiquement de " 1" à "150" tout en
> gardant leur ordre.
> Avez-vous une méthode ou une macro pour cela ?
cette macro doit le faire :
8< -----------------------------------------
Sub RenommerToutesLesFeuilles()
Dim oDoc As Object
Dim oSheet As Object
oDoc = ThisComponent
For i = 0 To ThisComponent.Sheets.Count - 1
oSheet = ThisComponent.Sheets(i)
oSheet.Name = CStr(i +1)
Next i
End Sub
----------------------------------------- >8
Attention : il est important qu'aucune feuille existante ne porte déjà
un des nouveaux noms (numéros) à créer.
Si tu veux mettre un préfixe, la ligne
oSheet.Name = CStr(i +1)
peut s'écrire
oSheet.Name = "MonPrefixe" & CStr(i +1)
Très cordialement,
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
