mathiouze22
XLDnaute Junior
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
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
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
Code:
'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