Modifier le nom d'un fichier selon le contenu de plusieurs cellules

[benito62]

Bonjour à tous,

Découvrant VBA, cela fait 2 jours que j'épluche tous les forums pour résoudre mon problème. J'ai plutôt bien avancé dans la résolution de ce problème mais désormais je sèche alors que je touche au but...

Je souhaite en effet renommer mon fichier Excel sous la même racine lors de l'enregistrement (tout en gardant le fichier source) afin qu'il soit renommé de la manière suivante : "A1.B2" ou A1 est une cellule de la feuille 1 et B2 une cellule de la feuille 2. Je souhaite séparer les 2 valeurs par un point.

Tout se passe bien, mon fichier s'enregistre sous le bon nom comme il faut. Le seul problème est que le changement n'est pas automatique à l'enregistrement, il faut lancer manuellement la macro... Comment faire pour que ce changement soit automatique

Voici mon code :

Dans le module :

Sub change_nom_fichier()
chemin = ActiveWorkbook.Path
fichier = Sheets("Feuill1t").Range("A1").Value & "." & Sheets("Feuill2l").Range("B2").Value
ActiveWorkbook.SaveAs Filename:=chemin & "\" & fichier & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

Et dans ThisWorkBook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call change_nom_fichier
End Sub


Merci d'avance pour votre aide

 

[Pierrot93]

Re : Modifier le nom d'un fichier selon le contenu de plusieurs cellules

Bonjour,

dans le module "thisworkbook", regarde l'événement "BeforeSave"...

bonne journée
@+