Définir un dossier par défaut VBA

Question

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 ThenFlagChoix &H1&: Msg "Choisissez un dossier :"
ElseFlagChoix &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!

jrivet · Answer

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

lemoret · Answer

c'est l'API SetCurrentDirectory
http://www.allapi.net/apilist/SetCurrentDirectory.shtml

cello3135 · Answer

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

cs_JMO · Answer

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:	est1")
....



MsgBox Item.Title


jean-marc

cello3135 · Answer

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!

Nils_Reco_Vocale · Answer

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 ?

Définir un dossier par défaut VBA

6 réponses

Votre réponse

Discussions similaires