Création de fichier avec nom incrémenté

Bonjour,


Je voudrais faire une macro qui, à l'ouverture d'un fichier générique, cherche dans un dossier le fichier ayant le plus grand numéro, ajoute + 1 à ce numéro, et enregistre sous le fichier générique avec comme nom le numéro incrémenté.

Je m'explique avec un exemple :

Le fichier source "fiche visite gen.xlsm" se trouve dans le dossier U://tartampion

Dans le dossier U://tartampion/archive ce trouve les fichiers "fiche visite 001", "fiche visite 002", "fiche visite 003"

En fait je voudrais que, quand j'ouvre le fichier générique, il s'enregistre dans le dossier archive avec le nom "fiche visite 004"

Pour l'instant j'ai juste ça :

Private Sub Workbook_Open()

Dim chemin As String
chemin = "U:\tartampion\Archive visite chantier\"

If MsgBox("Voulez-vous enregistrer une nouvelle fiche ?", vbYesNo, "Nouvelle Fiche") = yes Then


Else

End If
End Sub

Et je vous avoue que je ne m'y connais pas du tout dans le langage spécifique aux manipulations de fichiers, dossiers,etc...

Un peu d'aide serait la bienvenue ;)

Merci !