Discussion :

[calindoudou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonsoir,

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

Comment ouvrir l'explorateur windows sur un repertoire defini ?

[pgz]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[calindoudou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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