Discussion :

[Eric93]

Désolé, j'ouvre un autre post car j'ai mis l'ancien en résolu.

Donc j'ai bien ma fenêtre de choix de répertoire, le problème c'est que l'utilisateur dois choisir un répertoire sur un serveur qui en contien des millier et descendre d'une dizaine d'arborescence avant d'atteindre les répertoire désirés.

Est-il possible au moment d'ouvrir la fenetre de selection de repertoire, de prépositionner sur un des sous, sous, ..... répertoire.

Je sais pas si j'ai été clair.

Merci d'avance

D'ailleur il y à tellement de sous répertoire, que ma fenêtre est trop petite on peux pas l'agrandir au moment de l'affichage ?

J'ai mis un écrans pour expliquer plus clairement ce que j'aimerais obtenir à l'ouverture de la fenêtre.

Je suis descendu dans l'arborescence et j'ai agrandi la fenêtre, j'aimerais qu'elle s'ouvre directement comme ca, je sais pas si c'est possible, j'en demande peut-être trop.

Encore merci

En cherchant la fonction BrowseForFolder sur Google, j'ai trouvé.

Il faut mettre le chemin du sous répertoire en 4ème paramètre de la fonction BrowseForFolder pour limiter le choix à un sous répertoire.

D'une facon plus générale, ou peut-on trouver de la doc décrivant ce genre de fonction ?

Quand je tape BrowseForFolder dans l'aide VB il n'y à pas de réponse. J'aimerais pouvoir connaitre les different paramètres et données sur ces objets. Et trouver aussi d'autre objet utile sans avoir a vous déranger à chaque problème.

Merci

[ouskel'n'or]

Tu ne pourras pas afficher l'arborescence que tu nous mets par la seule commande.
Ce que tu peux obtenir c'est d'obtenir le répertoire 2007 ou le répertoire parent ou le parent du parent, mais tu n'auras pas ce que tu nous mets. C'est l'un ou l''autre.
Maintenant, si ce qui t'intéresse vraiment c'est 2007, alors tu désignes d'abord le drive avec Chdrive puis le répertoire complet désiré avec ChDir. Enfin tu affiches la boîte de dialog ouvrir avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs.Item(xlDialogOpen).Show

Si je réponds à côté, tu dis
A+

[ouskel'n'or]

Edit
Je viens d'aller dans ton ancienne discussion pour comprendre ton pb.
Tâche de continuer sur la même discussion la prochaine fois, un clic sur Résolu l'enlève.
Ce que tu veux est en fait donner la possibilité à l'utilisateur de sélectionner le répertoire où enregistrer le fichier. Si c'est vbien ça, à la place du code précédent, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Dialogs.Item(xlDialogSaveAs).Show

T'affiche la boîte de dialogue Excel "Enregistrer sous"
Et si tu as pris la précausion d'indiquer au préalable le drive et le chemin du répertoire parent, la boîte de dialogue placera au bon endroit.

[Eric93]

Non je ne veux ni "ouvrir", ni "enregistrer sous"

Mon programme lis un fichier 'anomalie, effectue une rupture sur le code anomalie et crée un classeur Excel par anomalie portant le nom du code anomalie.

Je veux juste donner la possibilité à l'utilisateur de choisir le dossier ou créer les different classeur.

J'ai résolu le problème en ajoutant un 4ème paramètre à la fonction BrowseForFolder qui commencer l'arborescence des dossier à l'endroit désiré

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "L:\GRPORG\DI\Ixa\Migration SGPM")
Set objFolderItem = objFolder.Items.Item
 
chemin = objFolderItem.Path

Puis au moment d'enregistrer chaque classeur je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=chemin & "\" & classeur

Sinon ton code parait plus simple pour utiliser des boites de dialogue, quelle différence avec mon code qui utilise des objets et que je ne maitrise pas trop ?

[ouskel'n'or]

Ton code utilise Windows, le mien Excel. Mais Excel ne permet pas de récupérer seulement le nom d'un répertoire sélectionné sans ouvrir ou enregistrer un fichier. Ou si ça existe (ce dont je doute fort) je ne connais pas la syntaxe.
Ta méthode est donc la bonne
Bonne soirée

[jfontaine]

une autre méthode avec filedialog

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim f As FileDialog
 
Set f = Application.FileDialog(msoFileDialogOpen)
f.InitialFileName = "d:\"
f.Show

[philben]

bonjour,

pour info :
- <FileDialog> n'existe que depuis la version 2002 d'Excel;
- pour sélectionner un répertoire, utiliser plutôt la constante <msoFileDialogFolderPicker>.

cordialement,

Philippe

[kiki29]

Soir Bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test4()
Dim sChemin As String
    sChemin = "D:\Backup\Demos\SysDiff"
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sChemin & "\"
        .Title = "Sélectionner un Dossier"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Sélection Dossier"
        .Show
        If .SelectedItems.Count > 0 Then
            MsgBox .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
 
End Sub

[ucfoutu]

Il faut mettre le chemin du sous répertoire en 4ème paramètre de la fonction BrowseForFolder pour limiter le choix à un sous répertoire.

Je comprends sans doute mal, mais quand-même : un question :

Ton but est-til finalement, tout simplement, d'afficher les sous-répertoires d'un répertoire et d'en choisir un ? ====>> OUI/NON

Si oui : il y a du simple et rapide !
Si non : précise avec détails et on trouvera également du simple et rapide, je n'en doute pas !

[Eric93]

Merci de toute vos réponse.

Effectivement, plusieurs facon de faire.