Sélecteur de fichiers sous excel
Tonin39
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
-
6 avril 2005 à 19:39
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 6 avril 2005 à 22:26
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 6 avril 2005 à 22:26
1 réponse
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
6 avril 2005 à 22:26
6 avril 2005 à 22:26
Salut,
' ***************************
' Il te faut une UserForm
' Dedans tu colles une Zone de liste
' Un controle label
' Et un bouton
' ***************************
Dim MyDialog As FileDialog
Dim strPathFile As Variant
Private Sub CommandButton1_Click()
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Add "Fichiers Excel" , "*.xls; *.xlt; *.xla" , 1
If .Show = - 1 Then
For Each strPathFile In .SelectedItems
ListBox1.AddItem strPathFile
Next strPathFile
Else
End If
End With
Label1.Caption = IIf(ListBox1.ListCount > 0 , "Sélectionnez un fichier par double clic" ,
» "Cliquez sur sélection" )
End Sub
Private Sub ListBox1_DblClick( ByVal Cancel As MSForms.ReturnBoolean)
Application.Workbooks.Open ListBox1.Text
End Sub
Private Sub UserForm_Activate()
With Me
.Caption = "Sélection fichier Excel"
.StartUpPosition = 2
.Height = 261
.Width = 401
End With
With Label1
.Left = 0
.Top = 2
.Caption = "Essayez la multiselection de la boite de dialogue" _
& " (Cliquez sur Sélection)"
.Height = 20
.Width = Me.Width
.Font.Bold = True
.TextAlign = fmTextAlignCenter
End With
With ListBox1
.Top = Label1.Height + 4
.Left = 0
.Height = Me.InsideHeight - Label1.Height - 4
.Width = Me.InsideWidth - CommandButton1.Width - 10
End With
With CommandButton1
.Caption = "Sélection"
.Top = ListBox1.Top
.Left = ListBox1.Width + 5
End With
End Sub
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
' ***************************
' Il te faut une UserForm
' Dedans tu colles une Zone de liste
' Un controle label
' Et un bouton
' ***************************
Dim MyDialog As FileDialog
Dim strPathFile As Variant
Private Sub CommandButton1_Click()
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Add "Fichiers Excel" , "*.xls; *.xlt; *.xla" , 1
If .Show = - 1 Then
For Each strPathFile In .SelectedItems
ListBox1.AddItem strPathFile
Next strPathFile
Else
End If
End With
Label1.Caption = IIf(ListBox1.ListCount > 0 , "Sélectionnez un fichier par double clic" ,
» "Cliquez sur sélection" )
End Sub
Private Sub ListBox1_DblClick( ByVal Cancel As MSForms.ReturnBoolean)
Application.Workbooks.Open ListBox1.Text
End Sub
Private Sub UserForm_Activate()
With Me
.Caption = "Sélection fichier Excel"
.StartUpPosition = 2
.Height = 261
.Width = 401
End With
With Label1
.Left = 0
.Top = 2
.Caption = "Essayez la multiselection de la boite de dialogue" _
& " (Cliquez sur Sélection)"
.Height = 20
.Width = Me.Width
.Font.Bold = True
.TextAlign = fmTextAlignCenter
End With
With ListBox1
.Top = Label1.Height + 4
.Left = 0
.Height = Me.InsideHeight - Label1.Height - 4
.Width = Me.InsideWidth - CommandButton1.Width - 10
End With
With CommandButton1
.Caption = "Sélection"
.Top = ListBox1.Top
.Left = ListBox1.Width + 5
End With
End Sub
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé