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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.