raccourci ouvrant dossier avec classeurs excel

[gilles64]

comment créer un raccourci à partir d'un bouton, sur une feuille de classeur,pour ouvrir une liste de fichier excel archivés dans un dossier windows ?
ex feuille de classeur :accueil
sur cette feuille un bouton qui me permet d'ouvrir un dossier client contenant tous les classeurs clients excel classés par ordre alphabétique comme losque l'on clique sur le raccourcis ouvrir de la barre de tâches excel.

 

[JC de Lorient]

salut,

as tu essayé par les liens hypertexte?

c une bonne solution

JC

 

[myDearFriend!]

Bonsoir gilles64, JC de Lorient,

La solution proposée par JC de Lorient est sans doute la plus simple à mettre en oeuvre et la plus pratique...

Sinon, une autre solution possible :

Private Sub CommandButton1_Click()
Dim Chemin As String
      Chemin = 'C:\Windows\Temp'   'à adapter
      Shell 'Explorer ' & Chemin & '', 1
End Sub

Cordialement,

 

[MichelXld]

bonsoir Gilles , JC et Didier

ci joint 3 autres possibilités par macro

Sub Test()
ThisWorkbook.FollowHyperlink 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
End Sub


Sub repertoireExplorateur2()
Dim IE As Object
Set IE = createObject('internetExplorer.Application')
IE.Navigate 'C:\\\\\\\\Documents and Settings\\\\\\\\excel' ' adapter le chemin
IE.Visible = True
End Sub


Sub ouvrirExplorateurWindows()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ('C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\general\\\\\\\\excel')
End Sub


bonne soirée
MichelXld

 

[gilles64]

merci du conseil à jc de lorient

 

[gilles64]

merci didier mdf

 

[myDearFriend!]

... et pour ma part : merci MichelXLD ! 🙂

Bonne soirée.