boitede dialogue (michdenis)

Bonjour Srogeau,

Voilà ce que cela prend pour faire exécuter le code :

Minimum DLL versionshell32.dll version 4.71 or later

Minimum operating systemsWindows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet
Explorer 4.0


Voilà, je te transmets à nouveau le code... attention, il y a peut être des lignes coupées en deux par le service de
messagerie.. et cela je ne peux pas le corriger ... ce code a été testé sous windows xp - aucun problème !

'-------------------------------
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
'-------------------------------

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:20040605030315.12107.00000383@mb-m19.aol.com...
bonjour
j'ai de petits soucis avec le code ci-dessous pour ouverture de boite de dialog

mais peut etre ai je mal proceder j'ai mis le code dans 1 module du classeur et
les lignes dim objshell,set objshell,set objfolder (les2lignes) ainsi que get
error
sont en rouge
et me dit erreur de synstaxe peut tu faire qq chose 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 Functione code dans 1 module du classeur