Enregistrer une feuille de calcul avec un nom de cellule
Bonjour,
Je souhaite une bonne année à tous.
J'ai une question à vous soumettre :
je voudrais enregisrer, à l'aide d'une macro, une feuille de calcul avec un nom bien précis :
le nom doit correspondre au contenu de deux cellules.
Est-ce possible ?
Voici un exemple de fichier
https://www.excel-pratique.com/~files/doc/aBFy4testnom1.xls
Merci d'avance.
Bonjour Capitaine,
Bonne année à toi.
Voir le fichier joint, donne des nouvelles.
https://www.excel-pratique.com/~files/doc/OVF2zaBFy4testnom1.xls
Sorcière a écrit :Bonjour Capitaine,
Bonne année à toi.
Voir le fichier joint, donne des nouvelles.
https://www.excel-pratique.com/~files/doc/OVF2zaBFy4testnom1.xls
Merci Sorcière.
Il y a un bug losque je lance la macro.
J'ai vu comment tu récupérais le contenu de la cellule B2 mais pas compris pour B1.
Voir dans le fichier, j'ai copié l'endroit du bug :
https://www.excel-pratique.com/~files/doc/testnom1_bis.xls
A +
Bonjour,
essaie ainsi :
Sub enreg()
Dim LePath As String, LeNom As String
LePath = ActiveWorkbook.Path & "\"
LeNom = [B2] & Format([B1], "ddmmyyyhhmm") & ".xls"
ThisWorkbook.SaveAs LePath & LeNom
End Subfelix a écrit :Bonjour,
essaie ainsi :
Sub enreg() Dim LePath As String, LeNom As String LePath = ActiveWorkbook.Path & "" LeNom = [B2] & Format([B1], "ddmmyyyhhmm") & ".xls" ThisWorkbook.SaveAs LePath & LeNom End Sub
Bonjour Félix et MERCI
C'est exactement ce qu'il me faut.
Je savais que sur ce forum il y aurait au moins une personne qui pourrait résoudre mon problème.
Merci encore.
Bonjour,
Seulement à titre d'information , dans la cellule B1 tu avais la fonction maintenant() qui équivaut dans la macro à Now.
Afin de pouvoir enrefistrer le fichier sans caratères spéciaux qui sont dans une date je les enleve.
'Supprimer le -
strNom1 = Replace(Now, "-", "")
'Supprimer les : dans l'heure
strNom1 = Replace(strNom1, ":", "")
' et ton problème venait surement du / (format date défini)
'il aurait fallu pour supprimer / en ajoutant la ligne suivante
strNom1 = Replace(strNom1, "/", "")