Salut les Kracks,

Je souhaiterai renommer les feuilles de mon classeur automatiquement faisant suite à un click sur un CommandButton.

Les noms de mes feuilles seraient du style suivant:
F_25122011_maVariable
Pour ce faire, j'aimerai créer une variable qui retiendra en mémoire le dernier numéro utiliser et ceci même si une semaine c'est écoulée sans ouverture du classeur.
Dois-je pour celà créer une fonction ou déclarer mes variables en dehors de la procédure?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim varNumfees As Variant
 
Private Sub CommandButton2_Click()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
varNumfees = i+1
 
    'moves active sheet ot end of active workbook
    ActiveWorkbook.Sheets("Facture_Type").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "F_" & Format(Day(Date), "00") & Format(Month(Date), "00") & Format(Year(Date), "0000") & varNumfees
Next i
End Sub
Merci pour vos futures expliquations car je ne vois pas comment m'y prendre!