Trier les feuilles d'un classeur excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 709 fois - Téléchargée 45 fois

Contenu du snippet

Ce code permet de trier dans l'ordre croissant les feuilles d'un classeur excel
Sur le formulaire il faut 2 listbox (list1 et list2) et un bouton (command1)

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaire

k3v1n333
Messages postés
2
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
1 avril 2007
-
Je trouvais ça dommage que cette source ne soit pas cotée alors qu'elle certainement la plus complète sur les manip fichiers Excel.
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.