Sauvegarder Excel au même emplacement avec un nom différent

Bonjour à tous,

J'ai un petit problème: je n'arrive pas à créer le code VBA qui puisse sauvegarder mon fichier excel dans le même emplacement avec son nom et le nombre 1 à la fin et si je sauvegarde la 2ème fois - 2 à la fin, s'il vous plaît, si quelqu’un peut m'aider?

Je vous remercie,

Alina

Bonjour Alinkaa !

Ci-dessous un code qui permet d'enregistrer le fichier avec lequel tu utilise ce code dans le même dossier et en rajoutant (1) au nom

Édit : Code modifié

Sub SaveAs()
Dim Name As String, Path As String
Name = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1)
Path = ThisWorkbook.Path
ThisWorkbook.SaveAs Path & "\" & Name & "(1)"
End Sub

Restant à dispo !

Bonjour,

Essaie ainsi :

Sub Test()
    Dim chEnr$, n%, h%
    chEnr = ThisWorkbook.FullName
    chEnr = Replace(chEnr, ".xlsm", "")
    h = InStrRev(chEnr, "-")
    n = IIf(h > 0, CInt(Mid(chEnr, h + 1)), 0) + 1
    chEnr = IIf(h > 0, Left(chEnr, h), chEnr & "-") & n & ".xlsm"
    ThisWorkbook.SaveAs chEnr
End Sub

Cordialement.

Merci beaucoup

Je suis très contente, ça marche!

Je vous souhaite une excellente journée!

Alina