Aller chercher l'adresse d'un fichier dans l'explorateur

Bonjour à tous,

J'ai créé une Userform dans laquelle il y a une textbox et un bouton "Browse", j'aimerai, en cliquant sur le bouton, qu'une fenêtre d'explorateur de fichiers s'ouvre, et qu'en double cliquant sur un fichier l'adresse s'inscrive dans la textbox.

Dans excel c'est très simple il faut faire :

Code:



Dim FileName As String

FileName= Application.GetOpenFilename 'c'est cette simple ligne qui ouvre l'explorateur Windows

Textbox.value= FileName

If Fichier = False Then Exit Sub



Cette méthode n'a pas l'air de fonctionner dans CATIA :/

Des idées?

Merci!!

Charly

Salut,

J'utilises ça

Code:



Function choix_rep(titre)
    Set objShell = CreateObject("shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, titre, 0)
    If (Not objFolder Is Nothing) Then
        choix_rep = objFolder.Items.Item.Path
    End If
    Set objFolder = Nothing
    Set objShell = Nothing
End Function




dans ma macro ici
https://catiav5.forumactif.org/t168p90-section-programmation-catscript-vba-vbnet#1255

Merci Guss!!

Quelques minute avant ta réponse j'ai trouvé comment faire.

Donc je donne mon exemple :

Code:


Sub cmd_browse_Click()
Dim filepath As String
filepath = CATIA.FileSelectionBox("Select an xlsx file", "*.xlsx", CatFileSelectionModeOpen)
frm_FromFile.txt_Address = filepath
End Sub