OVH Cloud OVH Cloud

Choisir dossier

6 réponses
Avatar
PatLabor
Bonjours à tous

Je cherche un moyen de choisir un dossier par l'utilisateur pour sauvegarder
des données, mais à partir d'un dossier précis situé sur le réseau

Hors avec les fonctions trouvées sur les sites des MVP (que je remercie)
les différentes fonctions "selectfolder" ne permettent pas de choisir le
dossier de départ.

Quelqu'un connait il une fonction plus complete affichant un dossier de
départ précis

Avec mes remerciements.

6 réponses

Avatar
3stone
Salut,

"PatLabor"
| Je cherche un moyen de choisir un dossier par l'utilisateur pour sauvegarder
| des données, mais à partir d'un dossier précis situé sur le réseau
|
| Hors avec les fonctions trouvées sur les sites des MVP (que je remercie)
| les différentes fonctions "selectfolder" ne permettent pas de choisir le
| dossier de départ.
|
| Quelqu'un connait il une fonction plus complete affichant un dossier de
| départ précis


Et celui-ci ne te plait pas ?
http://users.skynet.be/accesshome/ah_fichiers_selection_api.htm



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
PatLabor
Bonjour Pierre (et tout le monde)


Et celui-ci ne te plait pas ?
http://users.skynet.be/accesshome/ah_fichiers_selection_api.htm



A vrai dire non, puisque la boite de dialogue s'ouvre systematiquement sur
C:Mes Documents

hors, le but est qu'elle souvre sur un dossier sur le réseau, et de là
choisir un sous dossier (ou tout autre dossier)

ton code ne le permet (hélas) pas

J'ai été sur le site incontournable à Raymond, mais son code ne marche pas
sur mon PC : toujours un départ avec C:Mes Documents

Y a t'il une solution ??

Avatar
3stone
Salut,

"PatLabor"
| > Et celui-ci ne te plait pas ?
| > http://users.skynet.be/accesshome/ah_fichiers_selection_api.htm
|
|
| A vrai dire non, puisque la boite de dialogue s'ouvre systematiquement sur
| C:Mes Documents



Comment cela ??


La fonction est :
Public Function fOpenFile(Optional strTitle As Variant, _
Optional strInitialDir As Variant, _
Optional MultiSelect As Boolean = False) _
As String

tu l'utilise correctement ?

Dim strFile as string
strFile = fOpenFile("Le titre", "E:Dossier")

Hmmm ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
PatLabor
Bonjour


La fonction est :
Public Function fOpenFile(Optional strTitle As Variant, _
Optional strInitialDir As Variant, _
Optional MultiSelect As Boolean = False) _
As String

tu l'utilise correctement ?

Dim strFile as string
strFile = fOpenFile("Le titre", "E:Dossier")

Hmmm ?




pour être précis, je ne l'utilise pas : sur la même page, en bas, j'avais
pris le code

Public Function GetFolderName(Optional szDialogTitle As Variant) _
As String

car je choisis un dossier et non un fichier à ouvrir (c'est pour définir un
lieu de sauvegarde)

peut on adapter le code que tu me conseilles pour modifier GetFolderName ?
à moins que fOpenFile puisse servir directement pour le choix d'un dossier ?

Avatar
3stone
Salut,

"PatLabor"
| pour être précis, je ne l'utilise pas : sur la même page, en bas, j'avais
| pris le code
|
| Public Function GetFolderName(Optional szDialogTitle As Variant) _
| As String
|
| car je choisis un dossier et non un fichier à ouvrir (c'est pour définir un
| lieu de sauvegarde)


Autant pour moi....
Pas fait gaffe à l'objet ;-(


|
| peut on adapter le code que tu me conseilles pour modifier GetFolderName ?
| à moins que fOpenFile puisse servir directement pour le choix d'un dossier ?
|


Prend la fonction suivante (bis) que je viens de placer...
que tu utilisera ainsi :

ChoixDossier = fn_RechDossier _
(Me.Hwnd, "Message ", "D:DossierSelectionné")


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
PatLabor
Re


Autant pour moi....
Pas fait gaffe à l'objet ;-(



Fatigué ?, Manque un peu de vacances ?


Prend la fonction suivante (bis) que je viens de placer...
que tu utilisera ainsi :

ChoixDossier = fn_RechDossier _
(Me.Hwnd, "Message ", "D:DossierSelectionné")



Impec, ou presque ;-)

Avec le parametre BIF_DONTGOBELOWDOMAIN = 2, je ne peut pas acceder au
réseau ...
je l'ai donc supprimé et cela marche parfaitement


Un grand merci