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
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
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
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" <ghilaire@sympatico.ca> a écrit dans le message de news:
%23CXG$%23AeIHA.5208@TK2MSFTNGP04.phx.gbl...
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
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
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
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OfTAKHDeIHA.5208@TK2MSFTNGP04.phx.gbl...
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" <ghilaire@sympatico.ca> a écrit dans le message de news:
%23CXG$%23AeIHA.5208@TK2MSFTNGP04.phx.gbl...
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
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