XL 2013 Ouvrir un dossier Windows afin de montrer le chemin

[looky62]

Hello la communauté,

Sous VBA, j'aimerai connaître le code afin d'ouvrir une fenetre sur un dossier Windows, afin de montrer le chemin à un utilisateur où il peut retrouver tel fichier!

Merci de votre aide

 

[sylvanu]

Bonjour Looky,
Peut être avec :

Sub MontreMoiLeChemin()
Dim fd As Office.FileDialog, strFichier As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Filters.Clear
    .Filters.Add "Curseurs", "*.cur", 1                     ' Mettre type de fichiers désirés
    .Title = "Choisissez un fichier de forme de curseur."   ' Mettre un titre
    .AllowMultiSelect = False
    .InitialFileName = "C:\Windows\Cursors"                 ' Mettre le chemin
    If .Show = True Then
        strFichier = .SelectedItems(1)
    End If
End With
End Sub

J'ai pris un chemin que vous devez avoir si vous êtes sous Windows.

 

[Eric C]

Bonsoir le forum
Bonsoir looky62, bosoir sylvanu

Une variante (pour avoir un choix plus étendu ... Quoi que...) du fichier de notre ami sylvanu que je salue au passage avec le même fichier à ouvrir (Cursors)

Sub Chemin()
Dim Fichier_à_Ouvrir As Variant
ChDrive "c:"
ChDir "c:\Windows\Cursors"                    'à adapter
Fichier_à_Ouvrir = Application.GetOpenFilename()
If VarType(Fichier_à_Ouvrir) <> vbString Then Exit Sub ' Pour éviter plantage si opérateur renonce.
Workbooks.Open Filename:=Fichier_à_Ouvrir
End Sub

Bonne soirée
@+ Eric c