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 ?

[famdsm]

bonsoir
Mr. aprés l'excution du projet voila le message d'erreur qui apparait:



Erreur d'excution '1004':
la méthode 'SaveAs' de l'objet'_Worksheet' a échoué

[SfJ5Rpw8]

bonsoir
Mr. aprés l'excution du projet voila le message d'erreur qui apparait:



Erreur d'excution '1004':
la méthode 'SaveAs' de l'objet'_Worksheet' a échoué

Et alors ce n'est plus la même erreur ...!! pourquoi ne pas nous avoir donner directement le bon message et la bonne ligne qui semble être celle pour laquelle l'on vous as déjà fait une remarque un peu plus haut :

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

as tu essayé la correction préconisé par "petit rabot" ?

ce répertoire : d:\prt ...? existe-t'il ? le fichier 11.xlx .. est un nouveau fichier ou bien est-t'il déjà existant ...?

[famdsm]

Et alors ce n'est plus la même erreur ...!! pourquoi ne pas nous avoir donner directement le bon message et la bonne ligne qui semble être celle pour laquelle l'on vous as déjà fait une remarque un peu plus haut :



as tu essayé la correction préconisé par "petit rabot" ?

ce répertoire : d:\prt ...? existe-t'il ? le fichier 11.xlx .. est un nouveau fichier ou bien est-t'il déjà existant ...?

oui j'ai corrigé, le fichier c'est 11.xlsx et non pas 11.xlx, il est déja existant.
le répértoire D:\prt\11.xlsx existe aussi

[SfJ5Rpw8]

ton fichier 11 est.ce le fichier ouvert dans VB6?
Verifie dans l` aide excel s` il n´ y as pas une option pour ecraser un fichier existant avec Saveas...

[famdsm]

ton fichier 11 est.ce le fichier ouvert dans VB6?
Verifie dans l` aide excel s` il n´ y as pas une option pour ecraser un fichier existant avec Saveas...

oui le dite fichier est ouvert sous vb6.

[SfJ5Rpw8]

oui le dite fichier est ouvert sous vb6.

tu as déjà essayé sous excel d'ouvrir un fichier , dans créer un autre et d'écraser le premier (toujours ouvert) avec ce nouveau fichier ?

[famdsm]

tu as déjà essayé sous excel d'ouvrir un fichier , dans créer un autre et d'écraser le premier (toujours ouvert) avec ce nouveau fichier ?

est ce le fichier q'on doit ouvrir porte le même nom?

[SfJ5Rpw8]

est ce le fichier q'on doit ouvrir porte le même nom?

??? c'est à toi de me répondre ... tu dis que le fichier 11 est déjà ouvert ... et ton code en crée un nouveau ( ..workbooks.Add... ) .. et ensuite tu sauve ce fichier avec une saveAs (sauver sous un nouveau nom) avec le nom 11.. ..

Combien traite tu de fichier excel simultanément ?

[famdsm]

??? c'est à toi de me répondre ... tu dis que le fichier 11 est déjà ouvert ... et ton code en crée un nouveau ( ..workbooks.Add... ) .. et ensuite tu sauve ce fichier avec une saveAs (sauver sous un nouveau nom) avec le nom 11.. ..

Combien traite tu de fichier excel simultanément ?

je traite un seul fichier et quand on sauve ce fichier ( on ecrase le dite fichier) mais on ne pas remplir les cellules l'une aprés l'autre.
et si on le sauve avec une saveAsavec une saveAs (sauver sous un nouveau nom) on a l'erreur suivante:
Erreur d'excution'1004':
la methode 'SaveAs'de l'objet'_worksheet' a echoué.

[SfJ5Rpw8]

ton Erreur 1004, me laisse à penser que tu as deux fichiers d'ouvert ... "L'ancien fichier 11.." et le nouveau que tu as créé avec ton workbooks.add ..

[famdsm]

ton Erreur 1004, me laisse à penser que tu as deux fichiers d'ouvert ... "L'ancien fichier 11.." et le nouveau que tu as créé avec ton workbooks.add ..

oui justement l'erreur c'est au niveau du code et precisement:
Set XLW = XLA.Workbooks.Add
donc le bon chemin est:

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
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.Open("D:\prt\11.xlsx")
    Set XLS = XLW.Worksheets(1)
  XLS.Cells(XLS.Cells(1, 2).CurrentRegion.Rows.Count + 1, 1) = Text1.Text
   XLS.SaveAs "D:\prt\11.xlsx"
   XLW.Close False
   Set XLW = Nothing
   Set XLA = Nothing
   Text1.Text = " "
   Text1.SetFocus
 
End Sub

merci pour ton aide