Discussion :

[Benjen]

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.

[l_autodidacte]

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 :

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

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