Sélection d'un répertoire par boite de dialogue

[olic95]

Bonjour à tous,

Existe-t'il une boite de dialogue prédéfinie permettant de sélectionner un répertoire pour par exemple effectuer une sauvegarde à la sortie d'une macro ?

Merci.

Olivier.

 

[lapix]

Re : Sélection d'un répertoire par boite de dialogue

Bonjour

Ce petit code permet ce que tu souhaites:

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, X As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Select a folder."
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
X = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal X, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Range("A1") = GetDirectory
Else
GetDirectory = ""
End If
End Function

Sub appel()
On Error Resume Next
Range("A1").ClearContents
Msg = "Selection de la directory désirée"
ChDir GetDirectory(Msg)
Var = [A1]
End Sub

 

[olic95]

Re : Sélection d'un répertoire par boite de dialogue

Ouah.... j'comprends rien ! Mais si ça marche, je pense que je ne vais pas chercher plus loin ;o§

Merci lapix.

J'imagine que si tu me proposes ça, c'est qu'il n'existe aucune boite prédéfinie du genre de celle qui apparaît quand on fait "Fichier / Enregistrer sous" dans EXCEL !?

 

[lapix]

Re : Sélection d'un répertoire par boite de dialogue

c'est la meme chose sauf sauf que ce que tu dis t'oblige a selectionner un fichier. Pas ce que je t'ai joint.

mets juste : variable=getdirectory(msg) et tu recuperes le repertoire dans variable

(msg = titre de la boite de dialogue)

 

[olic95]

Re : Sélection d'un répertoire par boite de dialogue

Et tout ça, je le mets dans ThisWorkbook, j'imagine !?

 

[Creepy]

Re : Sélection d'un répertoire par boite de dialogue

Bonjour à Toutes et à tous,

Ci dessous une procédure un peu plus simple et qui marche aussi.

 Function ChoisirDossier()
Dim ObjShell, objFolder, SecuriteSlash As Byte

Set ObjShell = CreateObject("Shell.Application")
Set objFolder = ObjShell.BrowseForFolder(&H0&, "Choisissez un répertoire", &H1&)

If objFolder Is Nothing Then GoTo EndProc

If Left(objFolder.self.Path, 2) = "::" Then GoTo EndProc
ChoisirDossier = objFolder.self.Path
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then ChoisirDossier = Left(ChoisirDossier, Len(ChoisirDossier) - 1)

EndProc:

Set objFolder = Nothing
Set ObjShell = Nothing
End Function

A+

Creepy

 

[lapix]

Re : Sélection d'un répertoire par boite de dialogue

re

Dans module1 ou modulex c'est bon

 

[Creepy]

Re : Sélection d'un répertoire par boite de dialogue

Hello,

Oui, après quand tu en as besoin tu appelles ta fonction par

Dim Chemin as string
Chemin = Call ChoisirDossier 'par exemple

A+

Creepy

 

[lapix]

Re : Sélection d'un répertoire par boite de dialogue

Salut creepy

En effet, ton exemple est meilleur. Surtout dans le sens ou il permet la creation de nouveaux repertoires.

j'apprends toujours.... et c'est tres bien

 

[olic95]

Re : Sélection d'un répertoire par boite de dialogue

Bonjour Lapix, Creepy, le forum,

Effectivement Creepy, ta solution est un peu plus "simple" !

Je vais garder cette dernière, tester et vous tenir au courant.

Merci.

Olivier.

 

[olic95]

Re : Sélection d'un répertoire par boite de dialogue

Salut à tous,

Creepy, ta solution est géniale, elle fonctionne bien et elle est surtout un peu plus simple que celle de lapix. Donc elle est adoptée.

Merci à vous tous pour vos réponses.

A bientôt.

Olivier.

 

[jhofman]

Re : Sélection d'un répertoire par boite de dialogue

bonjour,


je rebondis :
je souhaite utiliser ce code.
en ajoutant un dernier paramètre REP à ObjShell.BrowseForFolder, il est possible d'afficher par défaut l'aboresence avec REP comme niveau supérieur.
exemple :
ObjShell.BrowseForFolder(&H0&, "Choisissez un répertoire", &H1&, REP)

Je cherche à afficher REP - ce qui est facile - puis éventuellement à pouvoire REMONTER dans l'arboresence proposée par défaut ? ce qui me l'est moins !!!

avez vous des idées ?

 

[tototiti2008]

Re : Sélection d'un répertoire par boite de dialogue

Bonjour à tous,

En fonction de la version d'Excel, il y a aussi possibilité d'utiliser les objets FileDialog, mais ça ne marche pas sur Excel 2000 et antérieurs...

 

[jhofman]

Re : Sélection d'un répertoire par boite de dialogue

Merci je vais chercher.