Discussion :

[escalopepane]

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 :

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

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

[EngueEngue]

Code :

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

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

[escalopepane]

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 :

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

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

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

[EngueEngue]

On error resume next

[escalopepane]

Parfait merci !

[Philippe Tulliez]

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

Code :

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

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