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
fd.AllowMultiSelect = False 'Permet de limiter la sélection à un élément
fd.InitialFileName = "C:\Test" 'Permet de spécifier le premier endroit affiché
Regarde bien...
ya juste "msoFileDialogFilePicker" à modifier
A+
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
[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
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