Sélection de fichier

[Lipaika]

Bonjour,

je cherche à sélectionner un fichier et ainsi récupérer le nom et path du fichier.
J'utilise le code suivant :

'bouton de recherche
Private Sub search_file1_Click()
Namefile1.TextAlign = fmTextAlignLeft
Namefile1.Text = SelectionFichier(RNO_type)
End Sub

Private Function SelectionFichier(type_report As String) As String
Dim PathUser As String

'recup du chemin "Mes Documents"
PathUser = Environ("USERPROFILE")
PathUser = PathUser + "\Mes Documents"
On Error Resume Next
SelectFichier.CancelError = True
SelectFichier.FLAGS = cdlOFNHideReadOnly
SelectFichier.DefaultExt = ".xls"
SelectFichier.DialogTitle = "Select the " & type_report & " report."
SelectFichier.InitDir = PathUser
SelectFichier.FileName = ""
SelectFichier.Filter = "Fichier Excel (.xls)"
'ouverture de la boite de dialogue
SelectFichier.ShowOpen
SelectionFichier = SelectFichier.FileName

Select Case type_report
    Case RNO_type
        RNO_path = SelectFichier.Path
    Case UA_type
        UA_path = SelectFichier.Path
End Select
End Function

aucune boite de dialogue ne s'ouvre, pourquoi?

Merci

 

[MichelXld]

Re : Sélection de fichier

bonsoir

Tu peux essayer

Sub Test() 
Dim Fichier As Variant
 
Fichier = Application.GetOpenFilename
If Fichier = False Then Exit Sub
 
MsgBox Fichier
End Sub

Bonne soirée
MichelXld