Discussion :

[teaRz]

Bonjour à tous,

C'est lundi matin avec son lot de problèmes :]

Tout d'abord, j'ai un dossier rempli de .xls, il me faut explorer le contenu de ce dossier afin de vérifier que les noms de fichiers .xls soient correctes. Pour qu'ils le soient, il me faut chercher dans le .xls correspondant, certaines infos (le nom, la date). Après cette vérification, si le nom de fichier est correcte, je passe au .xls suivant, sinon je le renomme.

1e problème : quelle tactique utilisée pour explorer le contenu du dossier ?

2e problème : comment supprimer les espaces présent dans les infos que je récupère pour renommer mon fichier.
(ex: nom initial : Nom Prénom Sigle.xls
nom après changement : Nom_Prénom_Année.xls)
Le problème en ce qui concerne l'année est le fait que dans la .xls, le champ où je récupère cette info commence par 3 espaces qui se répercutent donc sur mon nom de fichier.

[linda15975]

le parcours de dossiers a été maintes fois abordé sur ce forum, je pense donc qu'avec une petite recherche, tu devrais trouver ton bonheur

[teaRz]

Il est vrai que si j'avais utilisé le mot 'parcourir' plutot que 'explorer' j'aurais trouvé mon bonheur :p autant pour moi :]

Et pour mon 2e problème ? Une idée ?

[linda15975]

Je sais pas si ça répond totalement à ta question mais va voir ceci: http://www.developpez.net/forums/sho...pprimer+espace
Je pense que ça te donnera quelques indications

[SfJ5Rpw8]

utilise la fonction Trim .. pour supprimer les espaces "extérieurs.." .. et un replace.. pour remplacer les autre par un _

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
 Dim st As String
 st = "    Ma chaine  "
 st = Replace(Trim(st), " ", "_")
 MsgBox "[" & st & "]"
 
End Sub

[jmfmarques]

Utilisation de Instr (aide en ligne) et au besoin de Mid (aide en ligne)
Ps : Replace est disponible sous VBA ?

[teaRz]

avec le code :

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub scan(folder As folder)
For Each file In folder.Files
        MsgBox folder
 
    Next
 
End Sub

J'ai cette erreur à la 1e ligne : User-defined type not defined.

Merci pour les réponses concernant mon 2e problème, je pense que cela répond à ma question.

[Catbull]

Coche la référence Microsft Scripting Runtime.