Userform choix classeur à ouvrir

[Delirium]

Bonsoir tous le monde

Qulqu'un pourrait il m'aider sur la fonction que je voudrais créer.

Je voudrais pouvoir ouvrir un classeur excel situé dans le répertoire qui dans le sous repertoire par rapport au claseur qui comporte l'userform.

En plus clair :
Mon classeur avec mon userform est situé dans le répertoire "monprogramme" et les classeurs que je voudrais ouvrir par l'intermediaire de mon userform se situent dans le repertoire "Plannings types" qui lui se situe également dans le répertoire "monprogramme".


Dans mon userform il y a un combobox qui permet à l'utilisateur de choisir le classeur qu'il veut ouvrir parmis tous ceux présent dans le repertoire "Plannings types".

Voici le code de mon userform :

---------------------------------------------------------------
Option Explicit
Dim Chdir$
---------------------------------------------------------------
Private Sub Ini()
Dim Chdir$, i&, Fs, Nbr&
Chdir = ThisWorkbook.Path & "\Plannings types"
Nbr = Len(Chdir) + 2
Set Fs = Application.FileSearch
ComboBox1.Clear

With Fs
.LookIn = Chdir
.Filename = "*.xls"
If Fs.Execute > 0 Then
For i = 1 To .FoundFiles.Count
ComboBox1.AddItem Mid(.FoundFiles(i), Nbr)
Next i
Else
MsgBox ("Pas de planning type existant")
End If
End With
End Sub

-----------------------------------------------------------------------------

Private Sub UserForm_Activate()
Ini
Chdir = ThisWorkbook.Path & "\Plannings types"
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

Private Sub CommandButton1_Click()
'OUVRIR PLANNING TYPE EXISTANT :
Chdir = ThisWorkbook.Path & "\Plannings types"
Workbooks.Open Filename:="='" & Chdir & "\Plannings types\[" & ComboBox1.Value & "]"


Unload Me
End Sub
--------------------------------------------------------------------------------

Mais il ne marche pas et je ne voix pas ce qui déconne.


Merci du coup de main et a bientot.

 

[Hervé]

bonsoir

sans avoir fait de test je vois que dans la macro cmdbutton tu rappel 2 fois le sous répertoire "\Plannings types"
une fois dans le chdir et ensuite dans le filename.

essaye ceci : Workbooks.Open Filename:=ComboBox1.Value
au lieu de :Workbooks.Open Filename:="='" & Chdir & "\Plannings types\[" & ComboBox1.Value & "]"

Salut
Hervé