bonjour a tous
estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir
qu'un seul repertoirepar exemple mes documents
ou comment le faire autrement
merci
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
Bonjour Srogeau,
Essaie ceci :
Function ChoixDossier(Chemin) Dim objShell, objFolder Msg = "Voici votre répertoire:" Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire. Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires 'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin) On Error Resume Next Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "" ChoixDossier = Chemin
End Function -----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents" on peut utiliser la procédure suivante .
------------------------------------------ Sub OuvrirRépertoire()
Dim CheminEtFichier As String CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub ------------------------------------------
Salutations!
"Srogeau" a écrit dans le message de news: bonjour a tous estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir qu'un seul repertoirepar exemple mes documents ou comment le faire autrement merci
Bonjour Srogeau,
Essaie ceci :
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
End Function
-----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents"
on peut utiliser la procédure suivante .
------------------------------------------
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub
------------------------------------------
Salutations!
"Srogeau" <srogeau@aol.com> a écrit dans le message de news:20040604122502.08258.00000436@mb-m12.aol.com...
bonjour a tous
estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir
qu'un seul repertoirepar exemple mes documents
ou comment le faire autrement
merci
Function ChoixDossier(Chemin) Dim objShell, objFolder Msg = "Voici votre répertoire:" Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire. Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires 'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin) On Error Resume Next Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "" ChoixDossier = Chemin
End Function -----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents" on peut utiliser la procédure suivante .
------------------------------------------ Sub OuvrirRépertoire()
Dim CheminEtFichier As String CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub ------------------------------------------
Salutations!
"Srogeau" a écrit dans le message de news: bonjour a tous estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir qu'un seul repertoirepar exemple mes documents ou comment le faire autrement merci
