XL 2013 vba MACRO menu déroulant fichier windows

[c3dr1k]

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.

 

[sylvanu]

Bonjour C3dr1k,
En PJ un exemple simple avec :

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

 

[Nairolf]

Salut c3dr1k, sylvanu,

Comme moi aussi j'ai fait quelque chose, je le poste.
Ce sont deux façons de voir le problème, mais avec ça tu pourras trouver ton bonheur.

 

[c3dr1k]

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

 

[c3dr1k]

pas moyen de changer le chemin, une idée?

 

[sylvanu]

Bonjour le fil,
Avec juste une petite modification du fichier de Nairolf.
Le chemin est à mettre en B2.

 

[c3dr1k]

merci, ca fonctionne, me rest plus qu'a trouver comment ouvrir tout types de fichier car il les ouvres tous sous un format exel incompréhensible, je pense c'est la ligne workbook open qui est pas la bonne

 

[sylvanu]

Bonjour,
Inspirez vus de ça :

VBA: ouvrir un fichier (de tout type) | Excel-Malin.com

Fonction VBA pour ouvrir un fichier (de n'importe quel type) dans son application. Explications, exemples et code VBA prêt à l'emploi...

excel-malin.com