Discussion :

[minimoack]

Bonjour à tous !

J'aimerais suite à la confirmation d'un MsgBox, ouvrir un explorateur de fichier pour que le User selectionne un fichier particulier. Si possible j'aimerais que cet explorateur s'ouvre sur un emplacement particulier dossierX et c'est cette partie que je n'arrive pas à faire...

J'ai trouvé ce topic mais c'est sur un UserForm, chose que je n'ai pas faite (est-ce obligatoire?) : http://www.developpez.net/forums/d14...onner-fichier/

Pour l'instant j'ai ça (pas moi qui l'ai fait):

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function ChoisirLeFichierAExecuter() As String
Dim Msg As String
Dim Folder As String
 
Msg = "Sélectionner le nouveau fichier à exécuter à la place de l'ouverture du dossier contenant le zip lors du parcours de la pub de conf :"
Folder = GetDirectory(Msg)
 
 ChoisirLeFichierAExecuter = Folder
 
End Function

Je ne sais pas comment spécifier le dossier sur lequel l'explorateur doit s'ouvrir...

J'ai regardé la doc de GetDirectory, mais je n'ai pas vu quelque chose dans le genre du code ci-dessus... juste des zzzzz.GetDirectory(x, y)

Une idée ? ce n'est pas possible avec ça?

[gnain]

Bonjour,
pour ouvrir explorateur

Code :

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

Shell "Explorer.exe " & "C:\votre chemin", 3

[minimoack]

Je me suis mal exprimée je pense
En fait je veux que l'utilisateur choisisse un fichier dans une boite de dialogue, et que je récupère l'adresse de ce fichier dans une variable

[gnain]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim fd As FileDialog
 
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
fd.InitialFileName = "C:\"
fd.Show
 
MsgBox fd.InitialFileName
 
End Sub

[minimoack]

Le MsgBox renvoie l'adresse du dossier sélectionné, mais j'aimerais également dans l'adresse le nom du fichier que j'ai sélectionné :

Ex :

Je choisis dans la boite de dialogue fd le fichier toto.html dans "D:\User\Moi\Documents"
Le MsgBox renvoie "D:\User\Moi\Documents" et j'aimerais qu'il renvoie "D:\User\Moi\Documents\toto.html"

Possible?

Merci pour votre aide

[gnain]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim fd As FileDialog
 
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
fd.InitialFileName = "C:\"
fd.Show
 
MsgBox fd.SelectedItems.Item(1)
 
End Sub

[SfJ5Rpw8]

bonsoir,
un petit tour dans la

http://excel.developpez.com/faq/?pag...etOpenFileName

[minimoack]

Merci

Juste une question, j'ai regardé votre lien, mais je n'ai pas vu comment spécifier sur quel dossier la fenêtre va s'ouvrir...
(je suis peut-être aveugle ou je ne sais pas lire, ce n'est pas impossible )

J'ai fait :

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
Public Function ChoisirLeFichierAExecuter(DossierCible As Variant) As String
    
    Dim Fichier As Variant
 
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then
        Fichier = ""
    End If

    ChoisirLeFichierAExecuter = Fichier
    
End Function

Et en gros j'aimerais que la fenêtre s'ouvre sur le DossierCible que j'ai en paramètre

[gnain]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim fd As FileDialog
 
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
fd.InitialFileName = "C:\"
fd.Show
 
MsgBox fd.SelectedItems.Item(1)
 
End Sub

[minimoack]

Merci mais mon problème avec cette solution était le clic sur le bouton annuler dans mon cas.
Du coup j'avais testé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ChoisirLeFichierAExecuter(DossierCible As Variant) As String
    Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
     
    fd.InitialFileName = DossierCible
    fd.Show
    
    If fd.SelectedItems.Item(1) <> "" Then
        ChoisirLeFichierAExecuter = fd.SelectedItems.Item(1)
    Else
        ChoisirLeFichierAExecuter = ""
    End If
End Function

Mais ça ne fonctionne pas, pareil avec <> Nothing ou = Nothing ou = "".

Je trouve la doc sur filedialog pas super claire, je ne comprends pas tout...

J'ai trouvé le if ci dessous :

Code :

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

If fd.ShowDialog() = DialogResult.OK Then

Est ce que ça permet de tester si on a sélectionné quelque chose ou non?

[minimoack]

C'est booon ! après quelques tâtonnements, me voici arrivée à cette solution, que je mets si jamais quelqu'un en a besoin

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
Public Function ChoisirLeFichierAExecuter(DossierCible As Variant) As String
    Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    fd.InitialFileName = DossierCible
    Dim UserClickedOK As Boolean
    UserClickedOK = fd.Show
 
    If UserClickedOK = True Then
        ChoisirLeFichierAExecuter = fd.SelectedItems.Item(1)
    Else
        ChoisirLeFichierAExecuter = ""
    End If
End Function

Voili voilou !
Merci à tous pour votre aide <3