Discussion :

[jackfred]

Bonjour,

J'ai fait un code qui modifier une fichier .csv en xls. (ma moulinette)
Il marche bien, le pb ne vient pas de là lol


Le pb vient du fait que j'ai plusieurs fichiers .csv à modifier et je ne trouve pas le code entre lequel mettre ma "moulinette" afin que celle-si s'effectue sur tous les fichiers .csv d'un dossier.

A savoir : les noms des fichiers csv n'ont rien d'utilisable pour faire une boucle sur les noms : Ce sont des chiffres sans aucune logique.


Existe-t-il un moyen d'effectuer cela ?

Merci de votre aide


Fred

[jfontaine]

Ce code boucle sur les fichiers d'un répertoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Dim objFSO As Object
Dim objDossier As Object
Dim objFichier As Object
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder("d:\temp")
 
 
For Each objFichier In objDossier.Files
 
    'Action sur le fichier
 
Next

[jackfred]

Ok superbe merci,

je vais essayer ca ce WE

Merci bcp

fred

[jackfred]

Superbe

Ca merche niquel

Merci bcp


J'aurais une autre question, Mais ce n'est pas tout à fait lié à ce post.
J'ouvre donc un nouveau post ici...

http://www.developpez.net/forums/sho...57#post2306557

Merci


JackFred