TRIER LES FEUILLES D'UN CLASSEUR EXCEL

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
  

• MISE EN VEILLE QUAND LA SOURIS DORT
• METTRE EN VEILLE SON PC
• MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL
• OUVERTURE DES FICHIERS *.CHM (HTML COMPILÉ)
• LECTURE DES .INI DANS DES LISTBOX

• INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE)
• CYBER COUNTER V2
• OUVRIR DES DOCUMENTS DANS LA MÊME INSTANCE DE L'APPLICATION SANS RELANCEMENT DE L'EXE (DDE) EN .NET
• CONTRÔLE PCANYWHERE
• LIEN DDE EN VB2005

• CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET
• TRIEUSE EXCEL AVEC VB.NET
• MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL
• PRÉCÉDENT SUIVANT
• FICHIER TEXTE VERS CLASSEUR EXCEL