XL 2013 vba MACRO menu déroulant fichier windows

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 !

c3dr1k

XLDnaute Nouveau
Bonjour,

je sèche, je suis a la recherche d'un coup de main.
je souhaite afficher sur ma page Excel, un menu déroulant qui affiche les fichiers qui sont dans un dossier sur mn disque dur.
et quand on clique sur le nom du fichier il s'ouvre.
le but étant de ne pas passer par l'explorateur Windows et de rester sur cette page exel qui sert de base de travail.
 
Bonjour C3dr1k,
En PJ un exemple simple avec :
VB:
Sub AnalyseFichiers()
On Error GoTo Fin
Dim N As Integer, Dossier As String
Application.ScreenUpdating = False
Range("B4:B65000").ClearContents
N = 4   ' 1ere ligne écriture
Dossier = Range("B2")
If Right(Dossier, 1) <> "\" Then Dossier = Dossier & "\"
Application.FileDialog(msoFileDialogOpen).InitialFileName = Dossier
Set fso = CreateObject("scripting.filesystemobject")
   Set f = fso.getfolder(Dossier)
   Set fichiers = f.Files                               ' Récupère tous les fichiers
   For Each f In fichiers                               ' Pour chaque fichier trouvé
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(N, 2), Address:= _
        Dossier & f.Name, TextToDisplay:=f.Name         ' Insertion nom fichier en lien hypertexte ( Col Fichier )
        N = N + 1                                       ' On prépare l'index pour la igne suivante
   Next
Fin:
End Sub
 

Pièces jointes

Bonjour,

merci pour vos réponse; et désolé de répondre si tardivement.
la réponse de sylvanu ne me conviens par car je ne souhaite pas faire de liste sur mon Excel mais un menu déroulant.

celle de [U]Nairolf[/U] me conviens mieux car c'est ce que je veux faire. faut encore que je comprenne le code et que je lui indique le chemin du dossier que je veux afficher dans la liste

dans tout les cas merci a vous deux
 
- 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
7
Affichages
416
Réponses
0
Affichages
95
Réponses
4
Affichages
243
Réponses
6
Affichages
162
Réponses
5
Affichages
399
Retour