Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 080 fois - Téléchargée 46 fois
Dim Ap As New Application Private Sub Form_Load() Dim L L = Dir("C:\Mes documents\*.xls") List1.Clear List1.AddItem L While L <> "" L = Dir List1.AddItem L Wend List1.Text = List1.List(0) Ap.Visible = False End Sub Private Sub List1_Click() Ap.Visible = False Ap.Workbooks.Open (List1.Text) List2.Clear Dim W As Worksheet For Each W In Ap.Workbooks(List1.Text).Worksheets List2.AddItem W.Name Next W End Sub Private Sub Command1_Click() Dim i As Integer Ap.Workbooks.Open ("C:\Mes documents\" & List1.Text) For i = List2.ListCount - 1 To 1 Step -1 Ap.ActiveWorkbook.Worksheets(List2.List(i)).Move after:=Ap.ActiveWorkbook.Worksheets(i) Next i Ap.ActiveWorkbook.Worksheets(1).Select Ap.Visible = True Set Ap = Nothing Unload Me End End Sub
1 avril 2007 à 23:51
Complète, claire et simple --> 10/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.