Discussion :

[labview65]

Bonjour
J'ai créé un bouton sur excel et je veux que quand je clique dessus, il m'affiche la boite de dialogue "importer un fichier texte" pour que j'aille chercher le fichier que je souhaite ouvrir

[kiki29]

Salut, l'aide en ligne devrait te suffire voir GetOpenFilename

Sinon en adaptant ceci à ton contexte

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
Sub SelFichier()
Dim sChemin As String
    sChemin = ThisWorkbook.Path
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = sChemin & "\"
        .Title = "Sélectionner le fichier TXT"
        .AllowMultiSelect = False
        .ButtonName = "Sélection Fichier"
 
        .Filters.Clear
        .Filters.Add "Texte", "*.txt"
 
        .Show
        If .SelectedItems.Count > 0 Then
            DoEvents
            Application.ScreenUpdating = False
           ' ici ta procédure  LectureTXT .SelectedItems(1)
            Application.ScreenUpdating = True
        End If
    End With
End Sub

[CODYCO]

ou dans une fonction cela peut etre pratique aussi...

Code :

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

1
2
3
4
 
Function Parcourir() As String
    Parcourir = Application.GetOpenFilename("Fichier de données, *.txt", 1, "Choisissez votre fichier ")
End Function