Discussion :

[DonGosma]

Bonjour,

Je suis actuellement en stage ; Je dois faire du VBA et je ne peux pas faire autrement car il y a des milliers de fichiers :

J'ai un petit problème car je souhaite ouvrir un fichier qui se trouve dans un répertoire et qui commence toujours par PKR_HIJ_1.xls ou PKR_HIJ_2.xls ou PKR_HIJ_3.xls ou PKR_HIJ_4.xls .
Or Le terme HIJ peut changer mais il est toujours composé de 3 lettres mais j'ai déjà réglé ce problème. Le souci vient du fait que certaines personnes veulent rajouter des commentaires à la fin des fichiers comme par exemple : PKR_HIJ_1___(escalier).xls ; Je suis donc bloqué car j'ai fait une boucle qui fait varier le chiffre de 1 à 4 mais je ne peux pas trouver un fichier s' il y a un commentaire entre paranthèses. Est-il possible de faire une recherche approximative avec juste le début du fichier et ensuite d'ouvrir tous les fichiers qui commencent par PKR_HIJ_1....?

Merci d'avance

[Godzestla]

Bonjour,

regarde l'aide sur la méthode DIR dans ton VBA, et l'exemple qui va avec

Tu peux utiliser PKR_HIJ_1* voir PKR_HIJ_* pour tes recherches, en fonction de l''existence ou non de fichier à ne pas sélectionner (PKR_HIJ_9 par exemple).

Bonne journée.

[DonGosma]

salut
merci pour ta réponse , j'ai essayé avec l'étoile mais ça ne fonctionne pas...ou ma synthaxe n'est pas bonne , je ne sais pas!

[Godzestla]

Alors pense à montrer ton code.... en utilisant les balises codes pour ce faire (Voir rêgles du forum).

Parce que aider sans voir le code c'est

[DonGosma]

vOILa mon code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for  ChiffreUnderscore = 1 to 4
chantier = HIJ
 
nomP3L = "P3L_" & Chantier & "_" & ChiffreUnderscore
 
With Application.FileSearch
 
   For iSearch = 1 To .FoundFiles.Count ' la  boucle continuera tant qu'on trouve des fichiers P3L sur le disque programme
 
     If GetFileNameFromPath(.FoundFiles(iSearch)) Like "nomP3L*" Then ' si on trouve le fichier recherché
 
         Workbooks.Open Filename:=.FoundFiles(iSearch), UpdateLinks:=0, ReadOnly:=True

merci d'avance pour ta réponse

[Godzestla]

Bonjour,

A première vue, il manque les quotes autour de Hij, qui comme cela ne vaudra rien car cette variable n'existe pas.

Donc Nomp3l vaudra P3L__1 !!!