Discussion :

[famdsm]

je suis debutant je cherche à envoyer le contenu de textbox1 à une cellule a2de la colonne 1. une fois que je clique sur enregistrer le contenu de textbox1 est enregistré dans la cellule a2 et le textbox1 devient vierge. jusque là c'est bon.
mais le probleme c'est d'nregistrer chaque fois le contenu de textbox1 dans la cellule suivante de la meme colonne de maniere automatique.
merci.

[SfJ5Rpw8]

bonsoir,

quand je lis cette question je doute que tu utilise vraiment VB6 ...

merci de contrôler ici :

Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?

ci c'est bien le cas montre nous le code utilisé pour écrire dans la cellule A2..

[famdsm]

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
Dim XLA As Excel.Application
Dim XLW As Excel.Workbook
Dim XLS As Excel.Worksheet
 
Private Sub Command1_Click()
    Set XLA = New Excel.Application
    Set XLW = XLA.Workbooks.Add
    Set XLS = XLW.Worksheets(1)
   XLS.Cells(1, 2) = Text1.Text
   XLS.SaveAs "D:\prt\11.xlx"
   XLW.Close False
   Set XLW = Nothing
   Set XLA = Nothing
 
End Sub

[SfJ5Rpw8]

par exemple :

Code :

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

XLS.Cells(XLS.Cells(1, 2).CurrentRegion.Rows.Count + 1, 1) = Text1.TEXT

[famdsm]

Bonsoir,
Premierement je vous remercie bien, mais le code :

Code :

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

 XLS.Cells(XLS.Cells(1, 2).CurrentRegion.Rows.Count + 1, 1) = Text1.TEXT

sa marche pas. il ya une erreur quelque part.

[petit rabot]

Rien à voir avec le fait que cela ne marche pas, mais es tu sur de ta terminaison de fichier??

Code :

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

XLS.SaveAs "D:\prt\11.xlx" '<-------------------------

J'aurai mis .xls ou .xlsx

[SfJ5Rpw8]

Bonsoir,
Premierement je vous remercie bien, mais le code :

Code :

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

 XLS.Cells(XLS.Cells(1, 2).CurrentRegion.Rows.Count + 1, 1) = Text1.TEXT

sa marche pas. il ya une erreur quelque part.

ben je vois pas comment il marcherait ? il n'as pas de jambe !

c'est quoi le problème ? un message d'erreur ?