Bonjour à tous,
Je souhaite enregistrer un classeur sous un nom défini à l'interieur de celui ci via un DatePicket un TextBox.
Cal me sauvegarde dans le classeur et ouvre enregistrer sous mais j'aimerai que le nom prédéfini soir fait de cette manière DTPicker1+TextBox11
Merci
Je souhaite enregistrer un classeur sous un nom défini à l'interieur de celui ci via un DatePicket un TextBox.
Code:
Private Sub CommandButton1_Click()
With Sheets("sauv")
.Range("A2").Value = UserForm1.ComboBox7.Value
.Range("B2").Value = UserForm1.DTPicker2.Value
.Range("C2").Value = UserForm1.ComboBox2.Value
.Range("D2").Value = UserForm1.ComboBox1.Value
.Range("E2").Value = UserForm1.ComboBox4.Value
.Range("F2").Value = UserForm1.ComboBox5.Value
.Range("G2").Value = UserForm1.ComboBox3.Value
.Range("H2").Value = UserForm1.TextBox8.Value
.Range("I2").Value = UserForm1.ComboBox6.Value
.Range("J2").Value = UserForm1.DTPicker1.Value
.Range("K2").Value = UserForm1.TextBox11.Value
.Range("L2").Value = UserForm1.TextBox13.Value
.Range("M2").Value = UserForm1.TextBox34.Value
.Range("N2").Value = UserForm1.TextBox32.Value
.Range("O2").Value = UserForm1.TextBox31.Value
.Range("T2").Value = UserForm1.OptionButton1.Value
.Range("T2").Value = UserForm1.OptionButton2.Value
.Range("T2").Value = UserForm1.OptionButton3.Value
.Range("U2").Value = UserForm1.TextBox39.Value
End With
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Merci