Bonjour,
je cherche à sélectionner un fichier et ainsi récupérer le nom et path du fichier.
J'utilise le code suivant :
aucune boite de dialogue ne s'ouvre, pourquoi?
Merci
je cherche à sélectionner un fichier et ainsi récupérer le nom et path du fichier.
J'utilise le code suivant :
Code:
'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