Bonjour ,

J'ai un code qui me permet lorsque j'insère une feuille d'ajouter le numéro
séquentielle D/08/001 après d/08/002...

Mais j'ai plusieurs soucis :

Lorsque j'insère ma feuille ca me copie bien ma feuille de départ mon modèle
mais aussi une feuille vierge , y a t il un moyen de ne pas ajouter la
feuille vierge ?

J'ai fait tellement de test que mon code ne commence plus à 1! y'a t il un
moyen de le remettre à zéro ?

et lorsque j'ajoute ma feuille mon onglet de départ se modifie en d-08-001
(2) ce qui me fausse mon code ! est ce quil serait possible de faire en
sorte que l'on puisse copier la feuille à partir de la précédente ? en
laissant le code de la précédente car la ca fonctionne mais ca me remet le
code de base .

Merci beaucoup

Voila mon code :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("D-08-001").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "\N°DEVIS.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "\N°DEVIS.txt" For Output As #canal
Print #canal, nf
Close #canal

For k = 1 To Sheets.Count
If Sheets(k).Visible = True Then x = x + 1
If x = 6 Then Sheets(k - 3).Visible = False: Exit For
Next

End Sub