Entrer les données de formulaire d'utilisateur dans la nouvelle feuille de travail

Question

Je suis tring pour sauvegarder la valeur de zone de texte dans la nouvelle feuille chaque fois que je clique sur le bouton de commande et nomme les feuilles comme day1, day2, day3 ainsi .I essayé différemment, je ne sais pas si est possible ou non. J'apprécierai si quelqu'un me piont à la bonne direction.

Answer 1

Voici un exemple de code démontrant les fonctions de base.

Private Sub CommandButton1_Click() 
Dim WB As Workbook, SH As Worksheet, FN As String 

    Set WB = Workbooks.Add      ' create a new workbook 
    Set SH = WB.Sheets(1)      ' use first sheet 
    FN = "SH " & Format(Now(), "YYYY-MM-DD") ' construct a file name from current date 
    SH.[A1] = Me.TextBox1      ' write textbox value into cell A1 
    WB.SaveAs FN, xlExcel7      ' save new workbookas Excel7 format 
    WB.Close         ' close workbook 
    Me.Hide          ' close dialog window 
End Sub 

Hope this helps

Bonne chance - MikeD