choix aléatoire d'un fichier texte ds un dossierRésolu

Question

bonsoir,

est il possible d'ouvrir al&#233;atoirement un fichier text dans un dossier?
ds mon code vba j'ouvre un fichier text :

Open "c:\....\Trukmuche\acq.txt" For Input As #1

Mais ds mon dossier Trukmuche j'ai plusieurs fichier .txt, que je voudrais ouvrir al&#233;atoirement!!

ca me parait pas tr&#232;s faisable cette histoire!!

econs · Accepted Answer

Salut,



Voici un exemple de proc&#233;dure qui recherche tous les fichiers texte d'un r&#233;pertoire donn&#233;, et qui en extrait un au hasard.









Sub RechercheFichiers(sFolder As String)
 '   Cette procedure recherche tous les fichiers texte contenus dans un r&#233;pertoire donn&#233;.
 '   Elle les affiche dans une ListBox (nomm&#233;e lstFiles, &#224; ajouter sur ta feuille).
 Dim NomFichier As String
 Dim nbFiles As Long
 
     NomFichier = "*.txt"
     lstFiles.Clear
     
     With Application.FileSearch
         .NewSearch
         .LookIn = sFolder
         .SearchSubFolders = True
         .Filename = NomFichier
         .FileType = msoFileTypeAllFiles
         .MatchTextExactly = True
         If .Execute(msoSortByNone) > 0 Then
             For i = 1 To .FoundFiles.Count
                 lstFiles.AddItem .FoundFiles(i)
             Next i
         Else
             MsgBox "Aucun fichier n'a &#233;t&#233; trouv&#233;."
         End If
     End With
 End Sub

 

 ' Et l&#224; juste un bouton qui lance la recherche des fichiers textes :

 

 Private Sub CommandButton2_Click()
 Dim sFolder As String
     sFolder = "C:	mp"    '    Met ton dossier ici
     RechercheFichiers sFolder 
 End Sub



' Ensuite, quand ta listbox est remplie, tu en connais facilement le nombre d'&#233;l&#233;ments par la propri&#233;t&#233; lstFiles.ListCount



Sub PrendreUnFichierAuHasard()

Dim monFichierAuHasard As String

Dim iChoix As Integer



    iChoix = Int(Rnd*LstFiles.ListCount)

    monFichierAuHasard = lstFiles.List(iChoix)

    MsgBox monFichierAuHasard    ' Et hop ! Un fichier pris au hasard !



End Sub






Manu

bernie666 · Answer

euh ben dans un premier temps j'aimerai que tu m'explique l'interet que tu aurais de faire ca ?!?

sinon si c'est vraiment ce que tu veux faire ... ben si tu connais le nom de tes fichiers tu stockes ces noms dans une liste et tu fait un random pour recuperer l'index et avoir l'un des fichiers aleatoirement ... 

envin bon... a pas tout compris ce que tu voulais faire ;)

cs_Achi · Answer

salut Berni666!

en fait je ne connais pas le langage vba... j'apprends tt simplement... et l&#224; je cr&#233;e un Su do-ku sur excel!!
on apprends comme on peut! lol!
mes fichiers .txt correspondent &#224; mes grilles...
j'y suis arriv&#233; mais avec un fichier donc c pour ca que je souhaiterais faire un choix al&#233;atoire...

Mais l&#224; c moi qui n'ai pas bien compris, enfin si j'ai compris mais je ne connais pas la synthaxe!!

bernie666 · Answer

je connais pu la syntax en vba mais ce qu'il faut que tu fasse c'est creer tes differents fichiers dans un repertoir
sudoku1.txt
sudoku2.txt
sudoku3.txt
......
sudokuN.txt

et apres qd tu charches ton appli tu fait 

dim monNumFichier as integer

monNumFichier =  Int((N* Rnd) + 1) 'sa devrai te tirer un nombre aleatoire en fonction de ton nombre de fichier

une fois que tu a le nom de ton fichier =>

Open "c:\....\Trukmuche\sudoku"& monNumFichier & ".txt"

dsl pour la syntax sa remonte a loin vba ^^

Bon courage ++

jpleroisse · Answer

Bonjour,

Tu peux ausssi utiliser cette m&#233;thode.



Private Sub Command1_Click()

Dim Chemin As String

Dim t() As String

Dim f As String

Dim idx As Integer



  Chemin = "c:\Mes documents"

  idx = -1

 

' remplissage du tableau avec les chemin
om_de_fichier.txt

  f = Dir(Chemin & "*.txt")

 

  Do While f <> ""

    idx = idx + 1

    ReDim Preserve t(idx)

    t(idx) = Chemin & f

    f = Dir

  Loop

 

' choix au hasard

  If idx > -1 Then

    Randomize Time 'init du g&#233;n&#233;rateur al&#233;atoire

    MsgBox t(UBound(t) * Rnd)

    'ou Open t(UBound(t) * Rnd) for ......

  End If



End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

econs · Answer

t(UBound(t) * Rnd) ne choisira jamais le dernier fichier de la liste, car Rnd<1.

De plus, il manque un Int() car Rnd est un nombre d&#233;cimal. t(3.52) n'existe pas.

Manu

Choix aléatoire d'un fichier texte ds un dossier

6 réponses

Discussions similaires