Définir un dossier par défaut VBA

Bonjour à tous,

Voilà une question qui va certainement sembler triviale pour certains mais qui ne l'est pas pour moi (je ne connais pas la syntaxe qui le permet).
Le code ci-dessous permet à l'utilisateur sous Excel lorsque la macro est lancée de sélectionner avec la souris un dossier à traiter.
Or, lorsque la fenêtre s'ouvre, elle se situe toujours sur l'écarn qui affiche comme choix le bureau, les favoris réseau et les documents du bureau. J'aimerais changer ce dossier par défaut pour que la fenêtre se mette directement dans le dossier de mon choix.

Quelqu'un peut-il m'indiquer la commande à rajouter dans ce code VBA?

Code VBA:
------------------------------------------------------------------------------------------------------------
Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)

Dim objShell, objFolder, Chemin, SecuriteSlash, FlagChoix&, Msg$

If SelType = 0 Then
FlagChoix = &H1&: Msg = "Choisissez un dossier :"
Else
FlagChoix = &H4000&: Msg = "Choisissez un fichier :"
End If

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
Chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
Chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoixDossierFichier = Chemin
End Function
--------------------------------------------------------------------------------------------------------

Merci d'avance pour votre aide.
Bonne année!

Salut,
As tu essayer de changer lors de l'appel de la fonction, la valeur du parapetre "Racine"?

@+: Ju£i€n
Pensez: Réponse acceptée

c'est l'API SetCurrentDirectory
[ Lien ]

Bonsoir,


jrivet > C'est effectivement une solution (qui marche!) mais elle ne me permet pas de choisir un dossier qui est en "amont" du répertoire renseigné dans "Racine".

J'aimerais pouvoir en fait avoir une sorte d'éclaté qui me permette de remonter plus haut dans les dossiers si je le souhaite.

Mais merci pour ton aide!

lemoret> Je regarde pour cet API sous VBA et je reviens poster après mes tests. Merci

 Bonsoir à tous


un bref exemple avec shell et BrowseForFolder.

BIF_returnonlyfsdirs   = &H0001
BIF_dontgobelowdomain  = &H0002
BIF_editbox            = &H0010
BIF_validate           = &H0020
BIF_browseforcomputer  = &H1000

Dim shell, item
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Test de sélection de dossier"
Set Item = shell.BrowseForFolder(0,titre,flag, "D:\test1")
....

MsgBox Item.Title

jean-marc

Bonsoir Jean-Marc,


Je n'arrive pas à voir la différence entre ton code et le mien.  A vrai dire, j'obtiens le même résultat et je n'arrive toujours pas à remonter en amont.

Y a-t-il une nuance que je ne vois pas?

Merci!

Même question, je cherche à avoir un selectfolder qui parte d'un dossier par défaut, mais qui permette de remonter dans l'arborescence...
Quelqu'un a une idée ?