OVH Cloud OVH Cloud

Options de BrowseForFolder

3 réponses
Avatar
Gaston
Bonjour,

Quelqu'un peut-il me dire s'il existe une option de BrowseForFolder
(recherche d'un répertoire) empêchant l'apparution du bouton "créer un
nouveau dossier" dans la boite de dialogue (Rechercher un dossier) qui
s'affiche?

Merci par avance pour les éclairages.

GA

3 réponses

Avatar
Jacques93
Bonjour Gaston,

Peux tu préciser de quelle boite de dialogue tu parles ?

Bonjour,

Quelqu'un peut-il me dire s'il existe une option de BrowseForFolder
(recherche d'un répertoire) empêchant l'apparution du bouton "créer un
nouveau dossier" dans la boite de dialogue (Rechercher un dossier) qui
s'affiche?

Merci par avance pour les éclairages.

GA





--
Cordialement,

Jacques.

Avatar
Gaston
Dans ma macro Excel, j'ai écrit les 2 lignes suivantes faisant apparaitre la
boite de dialogue pour lister les répertoires sous la racine E:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, Message, 0, "E:")
Chemin = objFolder.parentfolder.ParseName(objFolder.Title).Path

Chemin étant la réponse au choix du répertoire fait par l'utilisateur de la
macro

Cette boite s'affiche en laissant apparaitre un bouton "Créer un nouveau
répertoire".
C'est ce bouton que je souhaiterais ne pas afficher.

Cdlt

GA



"Jacques93" a écrit dans le message de
news:
Bonjour Gaston,

Peux tu préciser de quelle boite de dialogue tu parles ?

Bonjour,

Quelqu'un peut-il me dire s'il existe une option de BrowseForFolder
(recherche d'un répertoire) empêchant l'apparution du bouton "créer un
nouveau dossier" dans la boite de dialogue (Rechercher un dossier) qui
s'affiche?

Merci par avance pour les éclairages.

GA



--
Cordialement,

Jacques.



Avatar
Jacques93
Bonjour Gaston,

Essaie :

Const BIF_NONEWFOLDERBUTTON As Long = &H200

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, Message, _
BIF_NONEWFOLDERBUTTON, "E:")
Chemin = objFolder.parentfolder.ParseName(objFolder.Title).Path

Dans ma macro Excel, j'ai écrit les 2 lignes suivantes faisant apparaitre la
boite de dialogue pour lister les répertoires sous la racine E:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, Message, 0, "E:")
Chemin = objFolder.parentfolder.ParseName(objFolder.Title).Path

Chemin étant la réponse au choix du répertoire fait par l'utilisateur de la
macro

Cette boite s'affiche en laissant apparaitre un bouton "Créer un nouveau
répertoire".
C'est ce bouton que je souhaiterais ne pas afficher.

Cdlt

GA



"Jacques93" a écrit dans le message de
news:

Bonjour Gaston,

Peux tu préciser de quelle boite de dialogue tu parles ?


Bonjour,

Quelqu'un peut-il me dire s'il existe une option de BrowseForFolder
(recherche d'un répertoire) empêchant l'apparution du bouton "créer un
nouveau dossier" dans la boite de dialogue (Rechercher un dossier) qui
s'affiche?

Merci par avance pour les éclairages.

GA



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.