Non prise en compte

[ninanani]

Bonjour a tous!

Alors voila, j ai une macro me permettant d aller chercher dans un autre fichier les donnees souhaitee, en fonction de ce qu il y a ecrit dans la cellule B11.
Dans cette cellule B11, il y a un nom.
Seulement, le titre de mon fichier a aller chercher n est pas seulement le nom, il y aussi une date "yyyy-mm-dd".
Comment faire pour que cette matrice qui va chercher ne prenne en compte que la premiere partie du titre, c est a dire que le nom et pas la date?

Voila ma matrice:
Sub Lancement()
Dim MonNom As String
Dim Chemin As String, Txt As String

MonNom = Range("B11").Value & ".xls"

Chemin = "C:\Documents and Settings\Administrator\desktop\nina\invoices\unpaid\"
Txt = Dir(Chemin & MonNom)
If Not Txt = "" Then
Workbooks.Open Filename:=Chemin & MonNom
End If


End Sub

Merci a vous...

 

[Catrice]

Re : Non prise en compte

Bonjour,

Tu peux essayer ceci :

Sub test()
Chemin = "C:\TEST"
MonNom = Range("B11").Value
With Application.FileSearch
.Filename = "*" & MonNom & "*"
.LookIn = Chemin
.Execute
If .FoundFiles.Count = 1 Then Workbooks.Open .FoundFiles(1)
End With
End Sub

Ce code ouvre le fichier se trouvant dans le dossier défini dans "Chemin" qui contient la chaine de caracteres contenue en "B11".


La version suivante ouvre tous les fichiers se trouvant dans le dossier défini dans "Chemin" qui contiennent la chaine de caracteres contenue en "B11".

Sub test()
Chemin = "C:\TEST"
MonNom = Range("B11").Value
With Application.FileSearch
.Filename = "*" & MonNom & "*"
.LookIn = Chemin
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Next i
End With
End Sub

 

[ninanani]

Re : Non prise en compte

Re,

Un gros merci Catrice, cela fonctionne super bien!