Discussion :

[captaine93]

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 :

Code :

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

Dir("Rap1*.xls" & "Rap2*.xls")

Mais ca ne fonctionne pas...
Merci à ceux qui m'aideront

[cafeine]

Hello,

il faut que tu décomposes en deux passes ton dir()

[mordrhim]

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 ..

[captaine93]

je fais

Code :

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

1
2
Chdir = "c:/nico"
Sfichier = dir ("Rap1*.xls")

et ca ouvre tous les fichier de ce path qui s'appellent Rap1...xls
Je cherche à ouvrir les Rap1 et Rap2*.xls

Merci

[ucfoutu]

Bonsoir,

Un exemple à main levée... :

Code :

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

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

A toi de savoir en profiter.

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 )