[Résolu][Calc] Lister les fichiers d'un répertoire incomplet

[parlapresente]

Bonjour,

Pour lister les fichier d'un répertoire j'utilise le code suivant :

Code : Tout sélectionner

Sub Listerunrepertoire

Dim MonDoc as object, Mesfeuilles as object, MaFeuille as object
Dim Dossier As object ,  Valeur As Integer , lerepOM as string, Ocurseur as object
Dim DirectionOM As string , Resultat As String

MonDoc = ThisComponent 'Sélectionne le document en cours
MesFeuilles=MonDoc.sheets ' les feuilles du classeur
MaFeuille = Mesfeuilles.GetByName("TEST")' la feuille1

'on fabrique le chemin de direction
lerepOM=ConvertFromUrl("C:/Gestion/FR/Backups/")
DirectionOM=dir((lerepOM)&"\*.*",0)'


'on fait un boucle tant qu'il il y a des fichiers

Do While Len(DirectionOM) > 0

DirectionOM=Dir()
	 oCurseur = MaFeuille.createCursor ' création du curseur
      MaFeuille.getCellByPosition(12,x).string = DirectionOM     ' on écrit en M1 feuille1 (0,X) ou x = 1 au départ puis 2 3 4 5 .....
      X=X+1 ' on ajoute 1 à X
Loop ' on boucle


End Sub

Sauf que ça ne me liste pas tous les fichiers, le premier est toujours zappé ...
Avez-vous une idée de mon erreur ?

Merci

[Dude]

Salut,

Tu devrais prendre la peine d'explorer zBasic.
Ce que tu cherches à faire se réalise en 2 lignes de code :

Code : Tout sélectionner

	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	oListe = zBasic.ListeFichiers("C:/Gestion/FR/Backups/")
	zTable.Ecrit("Test", "A1", oListe)

[parlapresente]

Bonjour,

Oui merci j'aurais bien aimé mais pas possible d'utiliser les extensions au boulot à cause des verrouillages ...
Du coup, je fais ça de manière plus archaïque.

[Dude]

pas possible d'utiliser les extensions au boulot à cause des verrouillages ...

Les extensions peuvent s'installer au niveau du profil avec le choix "Seulement pour moi".
Donc aucune nécessité d'avoir un privilège super-utilisateur sous Windows.

Ton service informatique te permet de faire des macros mais pas d'installer des extensions, j'en doute fortement.

[parlapresente]

En fait, c'est un fichier à destination de l'ensemble du personnel et je ne veux pas complexifier d'avantage en demandant à chaque utilisateur d'installer une extension.
La plupart ne maitrise (bien grand mot) pas Calc.
D'où mon besoin de faire au plus simple, pour chaque utilisateur.

[Dude]

Il te suffit d'embarquer les modules de zBasic dans ton document.

[parlapresente]

Aussi simplement ?
Je pensais que chaque personne, sur son poste, devait installer le pack en question pour pouvoir l'utiliser ...
Question bête, encore, comment faire ?
Car lors de l'installation, c'est indiqué "uniquement pour l'utilisateur actif".

Merci pour tous ces conseils !

UP : testé juste pour moi et ça ne fait pas grand chose, ça ne copie rien, ça m'ouvre juste un nouveau fichier vierge ...

Code : Tout sélectionner

Sub Main
  GlobalScope.BasicLibraries.loadLibrary ("zBasic")
  zFeuille.Exporte("d:\Test\client.ods", "Liste")	
End Sub

[Dude]

Question bête, encore, comment faire ?

Les bénévoles se donnent la peine de rédiger des tutoriels.
Donc merci de faire un minimum de recherche dans le forum.
Il y a un post-it épinglé en haut de la section : viewtopic.php?t=40146

[parlapresente]

C'est vrai que c'est super pratique avec zBasic, merci !