Enregistrer un même fichier avec l'année et un Nº d'indice

Bonjour,

je génère régulièrement un fichier qui porte toujours le même nom (Préparation de travail N°:cc/2017/N°1.xls)

Pour que ne pas écraser le fichier généré précédemment, je dois indicer le nom du fichier crée.

Le nom de ce fichier est donc complété avec un symbole N°x où x est un nombre qui s'incrémente de manière automatique avec aussi l'année 2017 , 2018.

mais Problème rencontrée est le suivant puisque je travaille avec Excel 2013 est que application.fileSearche n'est plus utilisé sur Excel 2013 , donc comment je peut adapté ce code ci-dessous avec Excel 2013

Sub Execution()

Dim NameSansExtension   As String

Dim ThisName   As String

Dim Chemin   As String

Dim NoIndice   As Integer

  ThisName = ""

   NoIndice = 0

   Mydate = Format(Now(), "dd-mm-yy")

  Chemin = ActiveWorkbook.Path

  Workbooks.Add

  Shortfilename (Chemin & "\Synthèse carnet" & "-" & Mydate & ".xlsm")

   ' **********************************************

  ' Ici votre code pour le classeur à traiter ...

   Range("A1").Select

  ActiveCell.FormulaR1C1 = "Je saisis mes données."

   ' **********************************************

   Call RechercheFichiersPourIndice

   Dim nomFichier1 As String
Dim nomFichier2 As String
Dim x As String

  ActiveWorkbook.SaveAs Filename:=Chemin & "/" & NameSansExtension & "Mydate" & "/N°" & NoIndice & ".xlsm"

      'FileFormat:=xlNormal, Password:= "" , WriteResPassword:= "" , ReadOnlyRecommended:= False

   ActiveWorkbook.Close savechanges:=False

End Sub

Sub RechercheFichiersPourIndice()

   Dim Shortfilename   As String

   Shortfilename = ThisName

   With Application.FileSearch

    .Filename = NameSansExtension

    .FileType = msoFileTypeExcelWorkbooks

    .LookIn = Chemin

    .SearchSubFolders = True

     .Execute

     With .FoundFiles

      NoIndice = .Count

     End With

  End With

End Sub

Function Shortfilename(LongFilename As String) As String

  For i = Len(LongFilename) To 1 Step -1

     If Mid(LongFilename, i, 1) = "\" Then Exit For

  Next

   Shortfilename = Mid(LongFilename, i + 1, Len(LongFilename))

  NameSansExtension = Mid(Shortfilename, 1, Len(Shortfilename) - 4)

End Function

Merci