Rechercher un fichier excel avec dir

Bonjour a tous,

Je cherche actuellement à ouvrir une réference (en fichier excel) qui ce trouve a un certain endroit. seulement le nom de mon fichier excel est l'identifisation de cette réference suivi d'une denomination. J'aimerai pouvoir ouvrir cette reference sans tenir compte de cette denomination. J'ai essayé le code suivant:

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox1_Change() Dim wb As Workbook Dim ws As Worksheet Dim reference As String reference = "mareference" Set wb = Workbooks.Open("K:\An\" & reference & ".xls") Set ws = wb.Worksheets(1) End Sub

---

Seulement mon programme ne trouve pas le chemin puisque le nom de ma reference est suivi d'une denomination dont j'aimerai ne pas tenir compte. En gros mon fichier s'appelle par exemple "12932 tournevis" et j'aimerai l'ouvrir seulement en conaissant "12932". Je sais pas si je suis assez clair :?

Si quelqun a une solution je suis preneur.

Et mince je me suis trompé dans la formulation de mon titre désolé.

Code:

---

1 2 3 4 5 6 7

Sub ouvre() Dim Chemin As String Dim reference as string reference = "12932" Chemin = "K:\An\" Workbooks.Open Filename:=Chemin & Dir(Chemin & reference & "*.xls") End Sub

---

Bonjour,
Si ta référence est toujours suivie d'un espace voici une solution parmi d'autres.

Code:

---

1 2 3

Dim Ref$ Ref = "12932 tournevis" Ref = Left(Ref, InStr(Ref, " ") - 1)

---

Merci EngueEngue et Philippe Tulliez, vos solutions marche bien et ducoup mon titre n'est pas si faux.

merci encore:)

Par contre la ligne suivante fait planter mon programme lorsque reference n'exite pas dans le chemin du repertoire:

Code:

---

Workbooks.Open Filename:=Chemin & Dir(Chemin & reference & "*.xls")

---

Il y a t-il une solution pour pallier à ça?

On error resume next

Parfait merci !