Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Juste les repertoires mais pas les fichiers ...

Juste les repertoires mais pas les fichiers ...

2 réponses
Avatar
Gregory Hilaire
Bien le bonjour :)

Dans une application je voudrais avoir juste les répertoires et non les
fichiers
J'ai le code suivant attaché à mon bouton parcourir mais cela me donne
fichiers
et répertoires alors que je voudrais que l'utilisateur ne puisse choisir que
des
répertoires

Function DirOpen() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
DirOpen = vrtSelectedItem
Next vrtSelectedItem
Else
DirOpen = VbNulllString
End If
End With
Set fd = Nothing
End Function

Merci pour votre aide qui ne m'a jamais fait défaut

Greg
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Tu indiques dans la variable ChoixDossier le chemin où tu veux
explorer seulement les répertoires et tu exécutes la procédure,
tu obtiendras le chemin du sous-répertoire sélectionné.

'**************************
Sub OuvrirRépertoire()
Dim Chemin As String
Chemin = ChoixDossier("c:aaa") ' à déterminer
MsgBox Chemin
End Sub

'**************************
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
End Function
'**************************





"Gregory Hilaire" a écrit dans le message de news:
%23CXG$%
Bien le bonjour :)

Dans une application je voudrais avoir juste les répertoires et non les
fichiers
J'ai le code suivant attaché à mon bouton parcourir mais cela me donne
fichiers
et répertoires alors que je voudrais que l'utilisateur ne puisse choisir que
des
répertoires

Function DirOpen() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
DirOpen = vrtSelectedItem
Next vrtSelectedItem
Else
DirOpen = VbNulllString
End If
End With
Set fd = Nothing
End Function

Merci pour votre aide qui ne m'a jamais fait défaut

Greg
Avatar
Gregory Hilaire
Wow! Chapeau! Cela fonctionne pile poil MERCI!
Passez une excellente Semaine.

Greg

"MichDenis" a écrit dans le message de news:

Tu indiques dans la variable ChoixDossier le chemin où tu veux
explorer seulement les répertoires et tu exécutes la procédure,
tu obtiendras le chemin du sous-répertoire sélectionné.

'**************************
Sub OuvrirRépertoire()
Dim Chemin As String
Chemin = ChoixDossier("c:aaa") ' à déterminer
MsgBox Chemin
End Sub

'**************************
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
End Function
'**************************





"Gregory Hilaire" a écrit dans le message de news:
%23CXG$%
Bien le bonjour :)

Dans une application je voudrais avoir juste les répertoires et non les
fichiers
J'ai le code suivant attaché à mon bouton parcourir mais cela me donne
fichiers
et répertoires alors que je voudrais que l'utilisateur ne puisse choisir
que
des
répertoires

Function DirOpen() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
DirOpen = vrtSelectedItem
Next vrtSelectedItem
Else
DirOpen = VbNulllString
End If
End With
Set fd = Nothing
End Function

Merci pour votre aide qui ne m'a jamais fait défaut

Greg