raccourci ouvrant dossier avec classeurs excel

G

gilles64

Guest
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.
 

myDearFriend!

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 931
Messages
2 093 720
Membres
105 795
dernier inscrit
cluttringer