expoter texbox

Laurent · 27 Avril 2005

Bonjour le Forum

Le souhaite exporter la donnée d'un Texbox ver ma feuille
dans la premier cellule vide et sauvegarder automatiquement cette feuille.
(tres peu de connaissance)
merci @+

Eric C · 27 Avril 2005

Bonjour le forum
Bonjour Laurent

Dans l'exemple (code ci-dessous), la valeur s'ajoute colonne A -
Il te faut donc :

1 Userform
2 CommandButton
1 Un TextBox

Code:

Private Sub CommandButton1_Click()
Dim L As Integer
Dim Fich As String

L = Sheets('Feuil1').Range('A65536').End(xlUp).Row + 1

If TextBox1.Value = '' Then
MsgBox 'Il vous faut saisir une valeur'
TextBox1.SetFocus
Else

With Sheets('Feuil1')
.Range('A' & L).Value = TextBox1.Value
End With

Fich = 'C:\\1\\Dern_Val_TextBox'  'Chemin à adapter
ActiveWorkbook.SaveAs Fich

TextBox1.Value = ''

End If
End Sub


Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
With UserForm1
.Caption = 'Bonjour' & ' ' & Application.UserName
End With
End Sub

expoter texbox

Laurent

Guest

Eric C

XLDnaute Barbatruc

Discussions similaires