Code pour explorer fichier le suns àla suite des autres

Question

Bonjour &#224; tous,



je voudrais d&#233;velopp&#233; un petit script mais je ne sais pas du tout par quoi commencer.

Plusieurs fichiers sont stock&#233;s dans un repertoire et je voudrais les
ouvrir les uns &#224; la suite des autres (une fois ouverts ils seront
ferm&#233;s) jusqu'&#224; ce tous fichiers du repertoire aient &#233;t&#233; ouverts et
ferm&#233;s une fois.



Si quelqu'un peut m'aider!





merci &#224; vous

olixelle · Answer

en quel langage ?

Rollerman

loops02 · Answer

en vb ou vba !



merci

econs · Answer

salut,


Utilises un FileListBox (dans la barre d'outils classique de VB)











Dim l As Long

File1.Path = "C:\repertoire_qui_va_bien"

File1.Pattern = "*.*"



For l=0 to File1.ListCount-1

    MsgBox File1.List(l)

Next l


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

olixelle · Answer

Dim fichier As String 
Dim mon_repertoire as string
mon_repertoire = App.Path & "\stock", 
fichier = Dir$(mon_repertoire, vbDirectory) 
While fichier <> "" 
msgbox fichier 
fichier = Dir$ 
Wend 

autre remarque: vous cherchez jamais avant de mettre un post sur le forum ?????

Rollerman

loops02 · Answer

ok je teste &#231;a et je te dis &#231;a marche pour moi !



merci !

yohan_titi · Answer

J'ai eu besoin récemment de faire la meme chose. J'ai trouvé sur le site ce qu'il fallait que j'ai un peu adapté par rapport à ce que je devais faire. Le code ci-dessous : Private Sub Bouton_Click() Dim fso As New Scripting.FileSystemObject Dim Dossier As Scripting.Folder Dim SousDossier As Scripting.Folder Set Dossier = fso.GetFolder("Le chemin du répertoire à parcourir") For Each SousDossier In Dossier.SubFolders Call SearchFile(SousDossier) Next End Sub Private Sub SearchFile(ByVal StartPath As String) Dim Search As String Dim Filename As String ' Assure toi qu'il y est bien une barre oblique "" à la fin de StartPath Search = Dir$(StartPath & "" & "*.txt") If Search <> "" Then Do If (Search <> "." And Search <> "..") Then ' Chemin d'accès complet du fichier trouver Filename = StartPath & "" & Search ' S'assurez que c'est bien un fichier(pas obligatoire) If (GetAttr(Filename) And vbDirectory) <> vbDirectory Then ' Crée toi une procédure ou fonction pour traiter le fichier trouver en lui passant le fichier trouver en paramètre Call ProcédureDeTraitement(Filename) End If End If Search = Dir$() ' Recherche le prochain fichier DoEvents Loop Until Search = "" ' Boucle tant qu'il trouve des fichiers End If End Sub

jpleroisse · Answer

Bonjour, Un exemple pour les fichiers texte. Place sur ta Form 2 CommandButton (cmdImporter et cmdSauvegarder), un TextBox (propriété Multiligne à True) et une ListBox. Le bouton cmdImporter rempli la ListBox avec les fichiers texte du répertoire que tu as choisi(ici dans l'exemple C:\Mes documents). En cliquant sur le nom d'un fichier dans la ListBox, le TextBox charge les données, que tu peux visionner, modifier etc..., ensuite le bouton cmdEnregistrer sauve les données du TextBox. Option Explicit Private Sub cmdImporter_Click() Dim MyName MyName = Dir("C:\Mes documents\*.txt*", vbNormal) While MyName <> "" List1.AddItem MyName MyName = Dir Wend End Sub Private Sub List1_Click() Dim texte, crlf, tout, NomChemin, NomFichier, NomRep crlf = Chr(13) + Chr(10) NomChemin = "C:" NomRep = "Mes documents" NomFichier = List1.Text Open NomChemin + NomRep + NomFichier For Input As #1 On Error Resume Next Line Input #1, texte tout = texte If Len(tout) <> 0 Then While Not EOF(1) Line Input #1, texte tout = tout + crlf + texte Wend End If Text1.Text = tout Close #1 End Sub Private Sub cmdEnregistrer_Click() Open "C:\Mes documents" & List1.Text For Output As #1 Print #1, Text1.Text Close #1 Text1.Text = "" End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.

loops02 · Answer

merci pour votre aide mais j'ai un nouveau souci (message s'adressant &#224; jpleroisse).

Lorsque j'execute le script en mode debogage, arrivant &#224; la 6&#232;me ligne
"List1.AddItem MyName" j'ai un message du type "erreur d'execution 424,
objet requis". je ne vois pas d'o&#249; &#231;a vient, j'ai selectionn&#233; toutes
les librairies dans excel et toujours rien. J'utilise Office 2000 et je
suis sur windows 2000.

Si vous savez d'o&#249; &#231;a provient merci de m'aider !



merci encore

loops02 · Answer

je viens de lire vos scripts et j'ai l'impression que je me suis mal
expliquer ou alors que ce n'est pas possible de le faire en vba. Dej&#224;
j'ai un probl&#232;me lors de la compilation j'ai une erreur "Type d&#233;fini
par l'utilisateur non defini" qui apparait lorsque je debug la ligne "Dim fso As New Scripting.FileSystemObject" du script.



Je ne sais pas d'o&#249; &#231;a vient (J'utilise Office 2000 et Win2000).



Sinon ce que je voudrais faire est la chose suivante (c'est une macro qui s'executera en appuyant sur un bouton):

1-Ouvrir le premier fichier du dossier

2-Le fermer

3-Passer au fichier suivant du meme dossier

4-L'ouvrir

5-Le fermer etc...jusqu&#224; ce tout le dossier ait &#233;t&#233; scann&#233;.



merci pour vos r&#233;ponses !

jpleroisse · Answer

Bonjour, J'avais fais le code pour VB6, en VBA sous Excel List1 devient "ListBox1" et Text1 "TextBox1".Je vient d'essayer sous Excel et celà fonctionne très bien. Il n'y a aucune bibliothèque à placer. Private Sub CommandButton1_Click() Dim MyName MyName = Dir("C:\Mes documents\*.txt*", vbNormal) While MyName <> "" ListBox1.AddItem MyName MyName = Dir Wend End Sub Private Sub ListBox1_Click() Dim texte, crlf, tout, NomChemin, NomFichier, NomRep crlf = Chr(13) + Chr(10) NomChemin = "C:" NomRep = "Mes documents" NomFichier = ListBox1.Text Open NomChemin + NomRep + NomFichier For Input As #1 On Error Resume Next Line Input #1, texte tout = texte If Len(tout) <> 0 Then While Not EOF(1) Line Input #1, texte tout = tout + crlf + texte Wend End If TextBox1.Text = tout Close #1 End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.

Code pour explorer fichier le suns àla suite des autres

10 réponses

Discussions similaires