XL 2019 Renommer Fichier

[KTM]

Bonjour chers tous
J'ai un fichier nommé test.xlsb
je voudrais qu'à la fermeture, le fichier soit renommé en fonction de la cellule A1 de ma feuille 1
Par exemple si A1 est "Ceci" alors test.xlsb devient test_Ceci.xlsb
Merci!!!

 

[Phil69970]

Bonjour KTM, le forum

Un piste :

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=[A1].Value  & ".xlsm"  ' ou ".xls"  suivant l'extension que tu veux
end sub

@Phil69970

 

[KTM]

Bonjour KTM, le forum

Un piste :

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=[A1].Value  & ".xlsm"  ' ou ".xls"  suivant l'extension que tu veux
end sub

@Phil69970

Mais ça ne marche pas !!

 

[KTM]

Bonjour KTM, le forum

Un piste :

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=[A1].Value  & ".xlsm"  ' ou ".xls"  suivant l'extension que tu veux
end sub

@Phil69970

Merci Mais ça ne marche pas !

 

[ChTi160]

Bonjour KTM
Bonjour le Fil ,le Forum
Peut être en rajoutant le chemin ou est enregistré le Fichier Initial !

Chemin= ThisWorkbook.Path
NomFichier= Activesheet.Range("A1") & ".xlsm"
'puis le
.SaveAs Filename:=Chemin & "\" & NomFichier

Non testé Lol
un petit lien que je viens de trouver (peut être utile ????? )Lol
Renommer un Fichier
on y trouve :
Déplacer ou renommer des fichiers en VBA
C'est grâce à la déclaration Name que l'on peut renommer ou déplacer un fichier en VBA. Les deux opérations, renommer et déplacer, sont, de point de vue technique, équivalentes. Soit on change de nom, soit de l'emplacement (soit les deux). Voici le code VBA à utiliser:

Name AncienNom As NouveauNom

jean marie

 

[KTM]

Bonjour KTM
Bonjour le Fil ,le Forum
Peut être en rajoutant le chemin ou est enregistré le Fichier Initial !

Chemin= ThisWorkbook.Path
NomFichier= Activesheet.Range("A1") & ".xlsm"
'puis le
.SaveAs Filename:=Chemin & "\" & NomFichier

Non testé Lol
un petit lien que je viens de trouver (peut être utile ????? )Lol
Renommer un Fichier
on y trouve :
Déplacer ou renommer des fichiers en VBA
C'est grâce à la déclaration Name que l'on peut renommer ou déplacer un fichier en VBA. Les deux opérations, renommer et déplacer, sont, de point de vue technique, équivalentes. Soit on change de nom, soit de l'emplacement (soit les deux). Voici le code VBA à utiliser:

jean marie

Merci ChTi160
ça Fonctionne !!