Ouverture fichier selon nom

[mathiouze22]

Bonjour à tous,

J'ai trouvé sur le forum un bout de code qui répond à une partie de ma problématique mais je n'arrive pas à le transposer à ce que je souhaite à savoir :

=> ouvrir un fichier vérifiant deux conditions demandées


je vous mets le code que j'ai tenté d'adapter à mon besoin

'définition du répertoire de base où chercher le fichier à ouvrir
y = ActiveWorkbook.FullName  'recupere le chemin du fichier
h = ActiveWorkbook.Name  'recupere le nom du fichier
lg = Len(h) 'len=longueur
chemin = Mid(y, 1, Len(y) - Len(h))

Dim fso As Object, g, u, w As String, f As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")

For i = 2 To 38
t = Cells(i, 2).Value
u = Right(Cells(i, 1), 2)
If u = "CS" Then
w = "X"
Else
w = "Y"
End If

For Each f In fso.GetFolder(chemin).Files
    If f.Name Like w And f.Name Like t Then
         Workbooks.Open chemin & f.Name
    End If
Next f

donc en fait ce que je demande c'est que si le nom du fichier contient t et w, il doit l'ouvrir (dans le répertoire "chemin" en question, il a plusieurs fichiers, mais un seul peut remplir les deux conditions)

Mais manifestement cela ne fonctionne pas
pourquoi ? :s

 

[Pierrot93]

Re : Ouverture fichier selon nom

Bonjour,

si tu veux utiliser le critère contient avec l'opérateur "like", il y a lieu de placer des astérisques :
w = "*X*"

bonne soirée
@+

 

[mathiouze22]

Re : Ouverture fichier selon nom

bonsoir,

merci pour la réponse, je teste ca demain matin du coup
ps: le reste de mon code te parait correct sinon ?

 

[mathiouze22]

Re : Ouverture fichier selon nom

bonjour,

Je viens de tester avec et sans les "*_*" pour la variable w (où que ce soit dans le code), et cela ne fonctionne pas :s
Auriez-vous une autre piste à explorer svp ?