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
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