文档介绍：1
Astuces et code VBA pour Exce
Rubriques
kbooks)
Contrôles et Formulaires
Feuilles (Worksheets)
Fichiers (XL ou autres)
Fonctions
Formules
Graphiques
Menus
Sélection
OLE Automation
Excel <--> Access (DAO)
Commandes diverses
Programmes divers ...
Téléchargement sur site /
Les classeurs Excel (Workbooks)
Page mise à jour le : 28/03/2001
Vous trouverez dans cette rubrique des exemples de programmes se rapportant aux classeurs.
Ajouter des feuilles dans un classeur et les renommer.
Enregistrer une copie du classeur (sans modifier le classeur ouvert).
Fermer tous les classeurs ouverts sauf le classeur actif.
Renommer les onglets d'un classeur (Ex. Mois1, Mois2, Mois3, etc...).
Trier les onglets d'un classeur.
Ajouter des feuilles dans un classeur et les renommer
Sub AjouterRenommerFeuilles()
Dim cpt As Integer
cpt = 1
Do While cpt < 4 ' Ajoute 3 feuilles
' Ajout d'une feuille
After:=(), Type:=xlWorksheet
' Renomme la feuille
= "Semaine " & CStr(cpt)
cpt = cpt + 1
Loop
End Sub
Enregistrer une copie du classeur
Sub SaveCopyAs()
"C:\excel\"
End Sub
Fermer tous les classeurs ouverts (sauf le classeur actif)
Sub FermeClasseurs()
For Each Wk In Workbooks
If <> Then
savechanges:=True
End If
Next Wk
End Sub
Renommer les onglets d'un classeur
Sub RenommeOnglets()
' Renomme les onglets CL1, CL2, CL3, etc ...
Dim I As Integer
= False
For I = 1 To 3
Worksheets(I).Name = "CL" & I
Next I
End Sub
Trier les onglets d'un classeur
2
Sub TriNomsOnglets()
Dim I As Integer, J As Integer
For I = 1 To
For J = 1 To I - 1
If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then
Sheets(I).Move Before:=Sheets(J)
Exit For
End If
Next J
Next I
End Su