Bonjour,
J’utilise “Window 10 Education version 22H2 installé le 26/06/2024”.
Je voudrais renommer de nombreux fichiers (nommés “compta25_societeA_fichierX” à renommer en “fichierX”).
Dans Calc > Outils > Macros > Editer, j’ai fait un copier/coller des macros fournis pour Excel par ce tuto (c’est exactement ce qui m’intéresse) : Renommer fichiers excel
Mais quand je fais Calc > Outils > Macros > Gérer > Basic puis exécuter, j’obtiens "Erreur de syntaxe BASIC. Type de données FileDialog inconnu."
Je n’y connais rien en informatique, j’ai entendu parler de librairies à préciser, ou de paramètres à ajuster. Ou est-ce une autre commande similaire à utiliser dans calc au lieu de celle-ci pour Excel ?
Que dois-je faire pour que cette macro s’exécute ?
Help, merci !
PS : J’ai cherché la version LibreOffice, j’ai la version 25.8.3.2 (X86_64), il y a aussi des références de Compilation, Environnement, Interface utilisateur, de quoi avez-vous besoin ?
PS2 : j’ai enregistré mon ficher au format .xlsm
PS3 : voici la macro concernée
Sub ListerFichiers()
Dim dossier As String
Dim fichier As String
Dim ligne As Long
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
dossier = fd.SelectedItems(1) & "\"
Else
Exit Sub
End If
fichier = Dir(dossier & "*.*")
ligne = 2
Do While fichier <> ""
Cells(ligne, 1).Value = fichier
ligne = ligne + 1
fichier = Dir
Loop
End Sub
