XL 2016 Renommer le fichier ouvert (pas de copie)

[Leché]

Bonjour,

Je souhaiterais renommer automatiquement mon fichier ouvert (via un clic bouton) en fonction d'une cellule.
Cela fonctionne très bien avec le code :

Option Explicit

Sub enregistrer_classeur()

Dim chemin As String, fichier As String

chemin = ThisWorkbook.Path

fichier = chemin & "\" & Range("B2") & ".xlsm"

ActiveWorkbook.SaveAs Filename:=fichier

End Sub

Cependant, cela me créer une simple copie du fichier, qui est bien renommé en fonction de ma cellule.
Avez vous une solution afin de simplement renommer le fichier sans dupliquer, ou alors de supprimer le fichier en suite ?

Cordialement,

 

[Hasco]

Bonjour,

Rajouter un Kill de l'ancien fichier

Sub enregistrer_classeur()

    Dim chemin As String, fichier As String, old As String
    old = ThisWorkbook.FullName
    chemin = ThisWorkbook.Path

    fichier = chemin & "\" & Range("B2") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=fichier
    Kill old
End Sub

Cordialement

 

[Bernard_XLD]

Bonjour Leché, Hasco, le forum

Bonjour,

Rajouter un Kill de l'ancien fichier
VB:

Sub enregistrer_classeur()

Dim chemin As String, fichier As String, old As String
old = ThisWorkbook.FullName
chemin = ThisWorkbook.Path

fichier = chemin & "\" & Range("B2") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=fichier
Kill old
End Sub

Cordialement

Si le code de départ est correct, la suppression ne s'effectue pas forcément sur le classeur contenant la macro mais sur le classeur actif enregistré au même endroit que le classeur contenant la macro sinon pourquoi utiliser activeworkbook au lieu de rester avec thisworkbook.

Bien cordialement, @+

Sub enregistrer_classeur()

Dim chemin As String, fichier As String, Mem_Fichier$

chemin = ThisWorkbook.Path

fichier = chemin & "\" & Range("B2") & ".xlsm"

Mem_Fichier = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs Filename:=fichier
Kill Mem_Fichier
End Sub

 

[Leché]

Bonjour,

Super , ça marche nickel , merci à vous deux

 

[Hasco]

Re,

L'important ici est que vous ayez saisi la différence entre les deux codes !


Cordialement