code vba pour ouverture fichier

Bonsoir,
j'ai crée ce code pour un bouton de ruban personnalisé
mais voila au lieu qui m'ouvre dans xlsm le gestionnaire d'ouverture, j'aimerai qu'il m'ouvre ce dossier comme si c'etait un lien (je ne sais pas si je m'explique bien)
en fait l'idée serait que cet appel bouton face comme si je faisais "menu demarer/document .....

voici le code :

Code:

---

1 2 3 4 5

'Callback for contrat onAction Sub contrat(control As IRibbonControl) ChDir "C:\Users\Boulanger\Documents\- CALINDOUDOU\SALARIE" Application.GetOpenFilename End Sub

---

Merci d'avance pour vos réponses

Bonsoir,

utilise shell .., et l'explorateur de windows voir :faq:

Comment ouvrir l'explorateur windows sur un repertoire defini ?

Bonsoir,

Si tu veux choisir le fichier à ouvrir, tu peux faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Callback for contrat onAction Sub contrat(control As IRibbonControl)   Dim oFld As Office.FileDialog   Set oFld = Application.FileDialog(msoFileDialogOpen)   With oFld .AllowMultiSelect = False .InitialFileName = "C:\Users\Boulanger\Documents\- CALINDOUDOU\SALARIE" .Show If Not IsNull(.SelectedItems) Then .Execute End With   Set oFld = Nothing End Sub

---

Tu auras l'explorateur ouvert sur le répertoire SALARIE et après choix d'un fichier, ce dernier sera ouvert.

Cordialement,

PGZ

Bonjour,
et merci à vous 2.
au final j'ai utilisé une comamnde de la FAQ

Code:

---

1 2 3 4 5 6

'Callback for contrat onAction Sub contrat(control As IRibbonControl) Dim Chemin As String Chemin = "C:\Users\Boulanger\Documents\- CALINDOUDOU\SALARIE" ThisWorkbook.FollowHyperlink Chemin End Sub

---

et donc nickel :) , merci :D

(me reste plus qu'a ouvrir un new post pour le dernier réglage) :)