Macro qui enregistre.

bonjour, je connais pas trop les textbox , mais si tu trouve la variable associé à ta textbox ,
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n°" & var_textbox
ou le var_textbox est le nom de la variable associé à ta textbox.

Qu'entends-tu par variable?

textbox1.value en est une?

Bonjour

ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n°" & textbox1.text

A+.

Salut,
Fectivement calibos à pas tord. A vérifier mais :
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n° " & textbox1
doit fonctionner (l'espace après n° est pas mal...)

Private Sub CommandButton1_Click()
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents\Analyse AT n° " & TextBox1.Text
ActiveWindow.Close

Voilà ma macro

Elle ne fonctionne pas. Il enregistre seulement jusqu'à "n°" ce qui fait que je ne peux enregistrer qu'un fichier lorsque je la relance avec un autre numéro
End Sub--
Thor tue

Re-
Ceci fonctionne :
Private Sub CommandButton1_Click()
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1
ActiveWindow.Close
End Sub

Ca marche, à condition de mettre textbox1.value

Merci

peut etre avec une éxtension aussi ?
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1 & ".xls"

visiblement la bonne écriture pour une textbox c'est ca :
Me.Controls("Textbox" & i).Value
donc
Ta_variable=Me.Controls("Textbox1").value
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & Ta_variable & ".xls"

Oui c'est bon tout marche nickel

merci