1

Astuces et code VBA pour Exce
Rubriques
Classeurs (Workbooks) 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 http://ericrenaud.free.fr/

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 Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet ' Renomme la feuille Application.ActiveSheet.Name = "Semaine " & CStr(cpt) cpt = cpt + 1 Loop End Sub

Enregistrer une copie du classeur
Sub SaveCopyAs() ActiveWorkbook.SaveCopyAs "C:\excel\MonDouble.xls" End Sub

Fermer tous les classeurs ouverts (sauf le classeur actif)
Sub FermeClasseurs() For Each Wk In Workbooks If Wk.Name ThisWorkbook.Name Then Wk.Close 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 Application.ScreenUpdating = 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 Sheets.Count 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 Sub

Contrôles divers en VBA
Page mise à jour le : 14/05/2002

Vous trouverez dans cette rubrique