Créer une fenêtre browse pour stocker un fichier

[Sarah0606]

Re,

je dois créer un fichier .txt mais avant de le créer je dois spécifier un chemin alors au lieu de le rentrer à la main je trouvais plus classe d'ouvrir une fenêtre browse comme lorsqu'on enregistre un fichier word par exemple.

Qqn sait-il faire ça?

 

[Sarah0606]

Re : Créer une fenêtre browse pour stocker un fichier

Je me réponds à moi même mais ça peut servir à d'autres...

Alors voilà j'ai trouvé ça:

Sub DialogueFichiers()
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If fd.SelectedItems.Count > 0 Then
MsgBox fd.SelectedItems(1)
End If
Set fd = Nothing
End Sub

Mais je vois pas comment le connecter à un bouton, ça va venir...

 

[mromain]

Re : Créer une fenêtre browse pour stocker un fichier

bonjour

je t'ai juste remplacé le Sub en une Function

Option Explicit


Public Function DialogueFichiers() As String
DialogueFichiers = ""
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)


dialog_show:
fd.Show
'limite la sélection à un fichier
If fd.SelectedItems.Count > 1 Then GoTo dialog_show


DialogueFichiers = fd.SelectedItems(1)
Set fd = Nothing
End Function


Sub recup_file()
Dim toto As String
toto = DialogueFichiers
MsgBox toto
End Sub

et j'ai limité la sélection à un fichier

maintenant il te reste plus qu'à utiliser la fonction dans ton bouton

a+

 

[Sarah0606]

Re : Créer une fenêtre browse pour stocker un fichier

Merci ça fonctionne!

je me demandais si c'était pareil quand on voulait enregistrer un fichier??

 

[tototiti2008]

Re : Créer une fenêtre browse pour stocker un fichier

Bonjour à tous,

pour info :

fd.AllowMultiSelect = False 'Permet de limiter la sélection à un élément
fd.InitialFileName = "C:\Test" 'Permet de spécifier le premier endroit affiché

d'autres options sont disponibles...

 

[mromain]

Re : Créer une fenêtre browse pour stocker un fichier

Regarde bien...

ya juste "msoFileDialogFilePicker" à modifier 🙂

A+

 

[Sarah0606]

Re : Créer une fenêtre browse pour stocker un fichier

Regarde bien...

ya juste "msoFileDialogFilePicker" à modifier 🙂

A+

Oui je sais j'ai testé msoFileDialogFileCreate mais sans succès...

 

[tototiti2008]

Re : Créer une fenêtre browse pour stocker un fichier

essayes msoFileDialogSaveAs

 

[kiki29]

Re : Créer une fenêtre browse pour stocker un fichier

Salut,une alternative via GetOpenFilename et GetSaveAsFilename ( voir aide en ligne )

 

[Sarah0606]

Re : Créer une fenêtre browse pour stocker un fichier

Alors voilà ce qe j'ai fait et ça merde total!!

Private Sub CommandButton2_Click()

Option Explicit


Public Function DialogueFichiers() As String
DialogueFichiers = ""
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogSaveAs)


dialog_show:
fd.Show
'limite la sélection à un fichier
If fd.SelectedItems.Count > 1 Then GoTo dialog_show


DialogueFichiers = fd.SelectedItems(1)
Set fd = Nothing
End Function



End Sub

Sub recup_file()
Dim toto As String
toto = DialogueFichiers
MsgBox toto
End Sub

J'ai besoin de dragibus je pète un plomb

 

[tototiti2008]

Re : Créer une fenêtre browse pour stocker un fichier

[COLOR=red]Private Sub CommandButton2_Click()
[/COLOR]
Option Explicit


Public Function DialogueFichiers() As String
DialogueFichiers = ""
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogSaveAs)


dialog_show:
fd.Show
'limite la sélection à un fichier
If fd.SelectedItems.Count > 1 Then GoTo dialog_show


DialogueFichiers = fd.SelectedItems(1)
Set fd = Nothing
End Function



[COLOR=red]End Sub[/COLOR]

Sub recup_file()
Dim toto As String
toto = DialogueFichiers
MsgBox toto
End Sub

Vires ce qui est en rouge, je ne sais pas ce que ça fait là ?

 

[Sarah0606]

Re : Créer une fenêtre browse pour stocker un fichier

Je veux que ma fênetre ne s'ouvre que lorsque je clique sur le bouton command2 c'est pour ça que c'est là

 

[tototiti2008]

Re : Créer une fenêtre browse pour stocker un fichier

alors fait ça :

Option Explicit


Public Function DialogueFichiers() As String
DialogueFichiers = ""
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogSaveAs)


dialog_show:
fd.Show
'limite la sélection à un fichier
If fd.SelectedItems.Count > 1 Then GoTo dialog_show


DialogueFichiers = fd.SelectedItems(1)
Set fd = Nothing
End Function



[COLOR=#ff0000]Private Sub CommandButton2_Click()[/COLOR]
Dim toto As String
toto = DialogueFichiers
MsgBox toto
End Sub