Faire un explorateur qui récupéré une données

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

churos

XLDnaute Nouveau
Bonjour,
voila mon soucis est de faire un système capable d'ouvrir un explorateur windows et que l'on puisse choisir le fichier et que le nom de ce fichier soit enregistré pour être utilisé ensuite dans l'application.(similaire au installateur ou l'on peux choisir le répertoire et que sa le sauvegarde dans le textbox, sauf que je veux le nom du fichier)
J'ai pensé a utilisé une combobox en changeant l'icone(mettre celui avec les points représentatif d'un explorateur) et d'utiliser :
Application.Dialogs(xlDialogOpen).Show
Cela marche en parti mais je ne veux pas ouvrir le fichier, je veux juste qu'il récupéré le nom et le mette dans la combobox.
Pour le moment, pour compensé j'ai fais un système avec un Textbox où l’utilisateur doit entrer le nom+extension du fichier.
J'espère que vous pourrez m'aider

Cordialement
 
Re : Faire un explorateur qui récupéré une données

Bonjour,

Regarde du coté de "Application.FileDialog" :
Code:
Sub Test()

    MsgBox Dossier
 
End Sub

Function Dossier() As Variant
    
    '1 ouvrir un fichier
    '2 enregistrement de fichier
    '3 sélection de fichier
    '4 sélection de dossier
    
    With Application.FileDialog(4)
    
        .Show
        On Error Resume Next 'si annuler
        Dossier = .SelectedItems(1)
        If Err.Number <> 0 Then Dossier = False
        
    End With
        
End Function

Hervé.
 
Re : Faire un explorateur qui récupéré une données

En cherchant j'ai trouver une solution :
Private Sub CommandButton4_Click()
Dim source
source = Application.GetOpenFilename("Tout fichiers (*.csv),*csv")
source = Dir("*.csv")
Me.TextBox3 = source
End Sub

Je vous remercie car ce que tu m'a donné peut m'être utile 🙂
 
Re : Faire un explorateur qui récupéré une données

Bonjour,

Il suffit de paramétrer la boite avec la bonne valeur donc, la valeur 3 :
Code:
Function Fichier() As Variant
   
    With Application.FileDialog(3)
   
        .Show
        On Error Resume Next 'si annuler
        Fichier = Dir(.SelectedItems(1))
        If Err.Number <> 0 Then Fichier = False
       
    End With
       
End Function

Hervé.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
603
Compte Supprimé 979
C
Retour