Discussion :

[mikeactuaire]

Bonjour a toutes et a tous,




Dans ma macro, j ai un Userform qui me permet de rentrer des donnees. Je souhaiterais donc enregistrer ces donnees (TextBox1) dans un autre classeur excel, et si possible dans une nouvelle feuille.

Je peux vous montrer mon code mais je pense que c est vraiment une partie independante....


Merci pour votre attention et vos astuces.

A+

[SfJ5Rpw8]

voici par exemple une sauvegarde dans un nouveau classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
 Dim c As Control
 Dim wk As Workbook 'Classeur destinatire sauvegarde
 Dim sh As Worksheet 'Feuille destinataire
 Dim i As Integer
 Set wk = Workbooks.Add ' Nouveau classeur
 Set sh = wk.Sheets(1) ' Sauvegarde sur 1° Feuille
 For Each c In Me.Controls
 
 
   If TypeName(c) = "TextBox" Then 'Boucle sur les textbox de l'userform
    i = i + 1
    sh.Cells(1, i) = c.Name 'Nom du text Box en ligne 1
    sh.Cells(2, i) = c.Text 'Valeur saisie en ligne 2
   End If
 Next
  Me.Hide 'Ferme fenêtre
 
End Sub