Discussion :

[bigounet]

Bonjour tout le monde,
Je souhaiterais me faire un facturier automatique.
J'ai le modèle (Devis et Facture) sur une feuille (FACT-2022_01).
Avec un bouton sur la feuille Sommaire, je voudrais copier la feuille FACT-2022_01, la mettre en dernière position et renommer la feuille en FACT-2022_02. Et la suivante, FACT-2022_03.
Si je veux ajouter une feuille, ajouter une feuille (FACT-2022_03) et la placer en dernière position, et ainsi de suite.
Pour l'année suivante, repartir avec FACT-2023-01.
J'arrive à copier la feuille mais quand j'essaie de renommer, j'ai toujours (01) ou (02) derrière le nom de la feuille.
Il y a un refresh sur la feuille Sommaire pour actualiser les feuilles avec un lien hypertext vers les différentes feuilles
Je vous joins une copie.
En vous remerciant pour votre aide.

[bigounet]

en cherchant un peu partout, j'ai trouve la solution.
Voici le code, si cela peut intéresser quelqu'un.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub cmdIncrementName_Click()
 
 ' Procédure d'insertion de feuille, nommage de celle-ci
 '     et incrémentation de son mom, s'il existe
    Application.ScreenUpdating = True
    Retour = ActiveSheet.Name
    Maval = 0
    For Each X In ActiveWorkbook.Sheets
    If Left(X.Name, 10) = "FACT-2022_" Then
        If Val(Right(X.Name, Len(X.Name) - 10)) > Maval Then Maval = Val(Right(X.Name, Len(X.Name) - 10))
        End If
    Next
    Sheets("FACT-2022_1").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
    .Name = "FACT-2022_" & Maval + 1
    .Visible = True 'Affiche la feuille Livre de mission basée sur un modele masqué
    End With
    Sheets(Retour).Activate
    Application.ScreenUpdating = True
 
End Sub