enregistrer sous le nom d'un text box

[roux]

bonjour a tous
voila ma demande: j'ai creer sur mon classeur une macro , cet macro consiste a agrementer de +1 un numero ,inscrit dans un TextBox, a chaque ouverture, ce marco fonstionnne .
je souhaiterais qu'à chaque fermeture mon classeur s'enregistre sous le nom de ce TextBox
voici ma macro realisé:

Private Sub Workbook_Open()
Dim numero As Integer
numero = Val(Feuil1.TextBox1.Text)
numero = numero + 1
Feuil1.TextBox1.Text = numero

si vous avez la reponse merci de m'ecrire
merci d'avance
bonne journée
End Sub

 

[sousou]

quelque chose comme ça!


Private Sub Workbook_close()
ThisWorkbook.SaveAs (numéro & ".xls")
ThisWorkbook.Close
End Sub

 

[sousou]

une petite erreur sur la première ligne
Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

[roux]

Merci bcp pour cet info
ca fonctionne sauf que il s'enregistre pas sous le numero du TextBox1
mais sous "numero.xls"

aurais tu une explication

s'il te plait

merci d'avance