XL 2016 Renommer le fichier ouvert (pas de copie)

Leché · 13 Octobre 2021

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 :

VB:

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,

Bernard_XLD · 13 Octobre 2021

Bonjour Leché, Hasco, le forum

Hasco à dit:

Bonjour,

Rajouter un Kill de l'ancien fichier
VB:

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, @+

VB:

Sub enregistrer_classeur()

Dim chemin As String, fichier As String, Mem_Fichier$

chemin =...

Hasco · 13 Octobre 2021

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

Bernard_XLD · 13 Octobre 2021

Bonjour Leché, Hasco, le forum

Hasco à dit:

Bonjour,

Rajouter un Kill de l'ancien fichier
VB:

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, @+

VB:

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é · 13 Octobre 2021

Bonjour,

Super , ça marche nickel , merci à vous deux

Hasco · 13 Octobre 2021

Re,

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

Cordialement

XL 2016 Renommer le fichier ouvert (pas de copie)

Leché

XLDnaute Junior

Bernard_XLD

Hasco

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Leché

XLDnaute Junior

Hasco

XLDnaute Barbatruc

Discussions similaires