Microsoft 365 Renommer un fichier excel par une case

[Drim4-cus]

Bonjour à tous,

Je fais appel à votre expertise VBA afin de m'aider dans l'élaboration d'une macro, je souhaiterai pouvoir renommer un fichier Excel à l'aide d'une case spécifique exemple: A1.

Merci par avance,

Bien cordialement,

 

[dodineau]

Bonjour,
A tester

Sub Renomme()
    fichier_renom = ThisWorkbook.Path & "\" & Range("A1") & ".xlsm"
    Fichier_actu = ActiveWorkbook.FullName
    If Fichier_actu <> fichier_renom Then
        ActiveWorkbook.SaveAs Filename:=fichier_renom
        Kill Fichier_actu
    End If
End Sub

A+