salut !
j ai un ptit problème de syntaxe...je souhaite ouvrir les fichiers qui s'appellent
Rap1* et les Rap2*...
Ce que je traduis par :
Mais ca ne fonctionne pas...Code:Dir("Rap1*.xls" & "Rap2*.xls")
Merci à ceux qui m'aideront:oops:
Version imprimable
salut !
j ai un ptit problème de syntaxe...je souhaite ouvrir les fichiers qui s'appellent
Rap1* et les Rap2*...
Ce que je traduis par :
Mais ca ne fonctionne pas...Code:Dir("Rap1*.xls" & "Rap2*.xls")
Merci à ceux qui m'aideront:oops:
Hello,
il faut que tu décomposes en deux passes ton dir()
Précisons que Dir(Expression) donnera le nom du fichier et uniquement le nom du fichier d'un chemin absolu.
si Chaine = "C:/Un dossier/Un sous dossier/Un autre/Toto.xls"
alors Dir(Chaine) donnera "Toto.xls"
J'ai l'impression que tu veux ouvrir ton fichier avec Dir ce qui serait une erreur ..
je fais
et ca ouvre tous les fichier de ce path qui s'appellent Rap1...xlsCode:
1
2 Chdir = "c:/nico" Sfichier = dir ("Rap1*.xls")
Je cherche à ouvrir les Rap1 et Rap2*.xls
Merci
Bonsoir,
Un exemple à main levée... :
A toi de savoir en profiter.Code:
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Command1_Click() rep = "d:\" ' à changer par TON répertoire fic = UCase(Dir(rep & "*.*")) filtre1 = "READ*.TXT" filtre2 = "API*.*" Do While fic <> "" If fic Like filtre1 Or fic like filtre2 Then MsgBox fic End If fic = UCase(Dir) Loop End Sub
Attention : mes Ucase sont ici importants, hein...
Bonne continuation...
Edit : ouille la "main levée" m'a joué un tour. J'ai corrigé le 2ème like (en rouge), à la place duquel mes doigts trop rapides avaient frappé un = (c'est like qi'il faut, bien évidemment :lol:)