Mettre a jour les feuilles lors d'un nouveau mois

Bonjour Le forum

comment ça va ?

bien je suis aujourd 'hui pour essayer de mettre a jour mes feuilles.

Actuellement avec ce code ci-dessous j'ouvre une nouvelle feuille avec nom, moi et année (FEUIL4 - 2020)

Private Sub UserForm_Layout()
    Application.ScreenUpdating = False
    Me.Width = Application.Width
    Me.Height = Application.Height
    Me.Top = 0
    Me.Left = 0
    Application.ScreenUpdating = True
End Sub

et bien je voudrais que toutes les feuilles que j'ai crée ou que je vais a l'avenir créer s'ajoute automatiquement quand le mois change .

Du coup si on avait ISAAC3 - 2020 le premier avril, une nouvelle feuille ISAAC4 - 2020 s'ajoute immédiatement.

Mais toutes fois sans ma feuil1 parce que comme vous pouvez le voir dans le code. j'ai utilisé la feuille pour créer mes autres feuilles avec une entete qui est l'entete des nouvelles feuilles qu'on crée (J'aimerais plutard masquer cette feuil1)

Dans l'attente de vous lire

Bonjour

Dans la partie de code que tu mets , je ne vois pas comment

j'ouvre une nouvelle feuille avec nom, moi et année

Aurais-tu un fichier exemple ?

Merci

Voici

le userform se trouve dans produit

Bonjour

Si c'est dans produit que tu veux rajouter des feuilles en début de mois, dans Thisworkbook, je t'ai mis un code qui teste si 1er jour du mois voir si feuille existe sinon la rajouter

Pour le reste je ne comprends rien et cela ne semble pas fonctionner

Vois ce que tu peux en tirer..

merci beaucoup mais je ne me retrouve pas, pouvez vous mettre entre les balise de code, le code que vous avez ajouté ?

Re

Tu ouvres le fichier , tu vas dans Développeur, puis Visual Basic, puis dans ThisWorkBook et là tu vois le code qui sera exécuté à chaque ouverture de ton classeur

Voici ce code

Private Sub Workbook_Open()
Dim NF  As String
Mois = Month(Date)
An = Year(Date)
NF = "PRODUIT" & Mois & " - " & An
If Day(Date) = 1 Then
    If FeuilleExiste(NF) Then
        Exit Sub
    Else
        Sheets.Add.Name = NF
    End If
End If
End Sub
Function FeuilleExiste(f As String) As Boolean
  Application.Volatile
  On Error Resume Next
  temp = Sheets(UCase(f)).[A1]
  If Err = 0 Then FeuilleExiste = True Else FeuilleExiste = False
End Function

Bye