Nomer une feuille automatiquement

Bonjour,

Places un bouton ActiveX sur la feuille (bouton nommé CommandButton1) et copies le code ci-dessous dans le module de la feuille nommée Janv 2017 (qui doit être la seule du classeur) :

Option Explicit
Private Sub CommandButton1_Click()
Dim dlg As FileDialog
Dim c As Workbook
Dim f As Worksheet
Dim d As Date
Dim n As String
Dim a As Integer
Dim i As Integer

  'Désélectionner le bouton
  ActiveCell.Activate
  'Date actuelle
  d = CDate("1 " & Me.Name)
  'Année actuelle
  a = Year(d)
  'Date mois suivant
  d = DateSerial(a, Month(d) + 1, 1)
  'Nom de la feuille
  n = Application.Proper(Format(d, "mmm yyyy"))
  If a = Year(d) Then
    ' si la feuille suivante est dans la même année ....
    On Error Resume Next
    Set f = Worksheets(n)
    On Error GoTo 0
    If f Is Nothing Then
      ' - si la feuile n'existe pas, l'ajouter.
      Me.Copy after:=Me
      Set f = ActiveSheet
      f.Name = n
    Else
      ' - si la feuille existe, la sélectionner
      f.Activate
    End If
  Else
    ' si on change d'année, copier la feuille dans un nouveau classeur
    Me.Copy
    Set f = ActiveSheet
    f.Name = n
    Set c = f.Parent
    ' proposer l'enregistrement du nouveau classeur
    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    With dlg
      ' nom du fichier
      .InitialFileName = ThisWorkbook.Path & "\" & "Fact " & Year(d)
      ' filtrer sur l'extension *.xls
      For i = 1 To .Filters.Count
        If .Filters(i).Extensions = "*.xls" Then
          .FilterIndex = i
          Exit For
        End If
      Next i
      If .Show <> 0 Then
        'Enregistrer le classeur
        On Error Resume Next
        Application.DisplayAlerts = False
        .Execute
        Application.DisplayAlerts = True
        On Error GoTo 0
      End If
    End With
  End If

End Sub

Exemple :
https://www.cjoint.com/c/GEbpJTODdFd

merci pour votre attention
je trouve une erreur au niveau compilation de la ligne 14
d = CDate("1 " & Me.Name)(Me sélectionner).
et je pause une autre question dans le ^m sujet:
comment copier une feuille (derniére feuille) et la nomé selon l'idex de la feuille précedente(copié), je m'explique
ActiveSheet.Paste
if sheets(1)then ActiveSheet.Name = "Fev 2017"
if sheets(2)then ActiveSheet.Name = "Mars 2017"
.
.
.
.
.j'usqu'a :if sheets(12)then ActiveSheet.Name = "Dec 2017"
comment est ce que je peu écrire cette procédure dans VBA
et enfin créer un nouveau classeur nomer Fact 2018.xls enregistrée sur le bureau dont la 1ere feuille est une copie de Dec 2017
j'ai télécharger l'exemple que vous m'avez envoyer et je trouve pas la macro
merci beaucoup pour votre attention

bon soir monsieur
j'attire votre attention que je suis débutant en vba surtout
il ya des points que je n'est pas bien copris
est ce que je peu vous envoyer mon fichier excell et comment
bonne réception et merci d'avance

Re,

Déposes le fichier avec des commentaires explicatifs sur
https://www.cjoint.com/
et mets le lien obtenu dans ton prochain message.

Tuto : Comment utiliser C.joint.fr
.

https://www.cjoint.com/c/GEbvqm5RSHH

bonsoir
je vous remercie profondément
mais il ya un message de securité que j'ai pu l’éviter il dit pour des raisons de sécurité les macros ont eté arrêté comment faire?

Bonjour
pourquoi lorsque je clique sur le bouton (mois suivant) rien ne se passe
j'ai fait beaucoup d'essaie
merci de me répondre

re
j'ai fait comme vous m'avez expliquer mais toujours pas de réponse
le bouton ne s'exécute pas
autre sujet
comment écrire sous VBA pour nommer une nouvelle feuille (une copie de la dernière selon le nom de la feuille copiée)
cad :
si le nom de la feuille copié="Janv 2017", alors nouveau non de la feuille a inserrer sera "Fev 2017" (then ActiveSheet.Name = "Fev 2017")
si le nom de la feuille copié="Fev 2017", alors nouveau non de la feuille a inserrer sera "Mars 2017" (then ActiveSheet.Name = "Mars 2017")
ainsi de suite j'usqua "Dec 2017"

je veu introduire ce que vous aller m'ecrire dans le bouton nouveau
Sub Groupe59_QuandClic()
critere = InputBox("Critere?")
If critere = "" Then Exit Sub
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = critere
[c7].Value = [c7].Value + 1
[A843].Value = [C843].Value
End Sub
ici je veu éliminer l'imput box et remplacer par if then
j'espére que vous m'avez copmris
merci

merci pour votre aide et de la patience dont vous avez fait pour mon projet.

Non
Lorsque je clic rien ne ce passe
Je ne saï pas pourqpui
Merci pour votre attention

a peu prés j'ai trouver une solution qui n'est pas complète veuillez examiner ce que j'ai fait (corriger et compléter svp)
merci d'avance
https://www.cjoint.com/c/GEcwxi3Vy18

Re,

C'est bizarre que le fichier ne fonctionne pas !

Je te remets un fichier similaire à celui du post 1 :
https://www.cjoint.com/c/GEdmcuillCd

Télécharger le et enregistres-le sur ton disque dur.
Ne fait aucune modification.
Teste-le c'est-à-dire :
- Appuis sur le bouton mois suivant, il doit créer une feuille Févr 2017,
- Appuis sur le bouton de Févr 2017, il crée Mars 2017,
- ... jusqu'en Déc 2017.
- Appuis sur le bouton de Déc 2017 : il crée un nouveau fichier avec uniquement Janv 2018 et une fenêtre propose l'enregistrement du fichier sous le nom Fact 2018.

Est-ce ce fichier fonctionne ?

Non
J'appui sur le bouton et rien ne ce passe

oui ça marche(une seule fois), cad il a créer seulement Fev 2017 et par la suite aucun effet cad il n'a pas crée Mars 2017 en cliquant de nouveau.
merci pour votre attention

pour avoir Mars 2017 il faut cliquer de nouveau sur le bouton (mois suivant) avec le bouton droit de la souris pour changer du Feuille1 au Feuille2 l'affectation du macro et ainsi de suite pour la création d'une nouvelle Feuille et ça s’arrête jusqu’à Feuille 9 (Oct2017) .
et enfin une boite de dialogue qui s'ouvre dont le contenu est :
vous avez modifié un projet signé. vous ne possédez pas la clé approprié pour le signer. cette signature sera ignorée.
est ce que c'est comme ça je doit faire?

Voila
Finalement ça fonctionne bien mais il ya une petite retouche c'est en créant nouvelle classeur 2018 je veux que la 1ere feuille commence par copie de Dec 2017 et je commence de nouveau le travail cad en cliquant je 'obtiend Janv 2018 .........
merci beaucoup pour votre aide.
Riadh.

Monsieur
peu être vous avez tromper de choisir la pièce jointe
c'est le fichier que je vous est envoyer la 1ere fois de ma part
merci pour votre compréhension