Application.FileDialog(msoFileDialogFolderPicker) : peut-on fixer le folder de départ

Godzestla · 27/08/2008, 13h42

Bonjour,

je souhaiterais avec le code suivant que le système soit positionné sur un folder déterminé, celui correspondant à l'ancien choix stocké dans ma feuille excel.

Est-ce possible et si oui comment ?

Code :

 
With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le répertoire"
        .Show
If .SelectedItems.Count > 0 Then
    Me.Folder_Mxattach = .SelectedItems(1)
End If
 
End With

merci.

ouskel'n'or · 27/08/2008, 14h10

Connais pas avec Folder mais avec Dialogs, on peut faire des choses

Code :

Sub UseFileDialogOpen()
Dim chemin As String
    chemin = "H:\xls\"
    ChDrive "H"
    ChDir chemin
    Application.Dialogs(xlDialogOpen).Show
 
End Sub

Godzestla · 27/08/2008, 14h59

re,

ton code marche, alors que

Code :

Application.FileDialog(msoFileDialogFolderPicker)

ne tient pas compte de CHdrive et du Chdir, contrairement à

Code :

Application.Dialogs

mais je cherche un folder et pas un fichier.

tant pis. Je reste sur ma fenêtre qui s'ouvre au dernier endroit utilisé.
Con mais je peux vivre avec.

merci quand-même.

je ferme le post/

27/08/2008, 13h42	#1 (permalink)
Godzestla Membre Expert Date d'inscription: août 2007 Localisation: Impasse Âge: 43 Messages: 1 024	Application.FileDialog(msoFileDialogFolderPicker) : peut-on fixer le folder de départ Bonjour, je souhaiterais avec le code suivant que le système soit positionné sur un folder déterminé, celui correspondant à l'ancien choix stocké dans ma feuille excel. Est-ce possible et si oui comment ? Code : With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Title = "Sélectionnez le répertoire" .Show If .SelectedItems.Count > 0 Then Me.Folder_Mxattach = .SelectedItems(1) End If End With merci. __________________ Cordialement G@dz Question technique par MP = Vous avez des neurones. Sollicitez-les. Question mal formulée réponse inadaptée. Si la solution est absente, le problème n'est plus.

27/08/2008, 14h10	#2 (permalink)
ouskel'n'or Modérateur Date d'inscription: février 2005 Localisation: Une petite rue qui "avait" un merle Messages: 11 574	Connais pas avec Folder mais avec Dialogs, on peut faire des choses Code : Sub UseFileDialogOpen() Dim chemin As String chemin = "H:\xls\" ChDrive "H" ChDir chemin Application.Dialogs(xlDialogOpen).Show End Sub __________________ Je...ne...réponds...pas....aux...questions...techniques... par...mp La recherche (VBA-E) : Le Forum, La FAQ, Les cours et tutoriels, Contribuez, Les Sources et... l'Aide en ligne !!!

27/08/2008, 14h59	#3 (permalink)
Godzestla Membre Expert Date d'inscription: août 2007 Localisation: Impasse Âge: 43 Messages: 1 024	re, ton code marche, alors que Code : Application.FileDialog(msoFileDialogFolderPicker) ne tient pas compte de CHdrive et du Chdir, contrairement à Code : Application.Dialogs mais je cherche un folder et pas un fichier. tant pis. Je reste sur ma fenêtre qui s'ouvre au dernier endroit utilisé. Con mais je peux vivre avec. merci quand-même. je ferme le post/ __________________ Cordialement G@dz Question technique par MP = Vous avez des neurones. Sollicitez-les. Question mal formulée réponse inadaptée. Si la solution est absente, le problème n'est plus.

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Application.FileDialog(msoFileDialogFolderPicker) : peut-on fixer le folder de départ

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email