Problème pour la sélection d'un fichier en VBA

Bonjour je doit pour mon programme ouvrir un certain fichier j'utilise donc un bouton qui me permet de choisir le fichier à importé. mon problème étant que le dossier qui s'ouvre est toujours mes documents et je voudrait qu'il s'ouvre plutôt dans le dossier ou est placé mon fichier (car il peut changé en fonction des travaux à réaliser).

Pouvez vous m'aidé a trouvé la solution merci .

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click()     Dim szPath As String szPath = ActiveWorkbook.Path CurDir (szPath) FileToOpen = Application.GetOpenFilename(filefilter:="Classeurs Excel,*.xls;*.xlsx", Title:="Choissisez les classeurs a fusionner", MultiSelect:=False) TextBox1 = FileToOpen   End Sub

---

Se programme a fonctionné environs 10 min puis à recommencer a ouvrir mes dossiers.

Le dossier par défaut pour toute application office est "Mes documents" sauf si on le change dans la configuration de l'application
Teste et adapte ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Option Explicit   Dim XL As New Excel.Application   Private Sub CommandButton1_Click()   Dim szPath As String szPath = ActiveWorkbook.Path CurDir (szPath) Call UseFileDialogOpen 'FileToOpen = XL.GetOpenFilename(filefilter:="Classeurs Excel,*.xls;*.xlsx", Title:="Choissisez les classeurs a fusionner", MultiSelect:=False) 'TextBox1 = FileToOpen   End Sub   Sub UseFileDialogOpen() ' Ce code se trouve dans l'aide Excel Dim lngCount As Long   ' Open the file dialog With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show   ' Display paths of each file selected For lngCount = 1 To .SelectedItems.Count MsgBox .SelectedItems(lngCount) Next lngCount   End With   End Sub

---