Excel depuis VB6

Version imprimable

05/06/2011, 21h35
famdsm

Excel depuis VB6

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.
05/06/2011, 21h38
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..

Code:

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

06/06/2011, 11h01
SfJ5Rpw8

par exemple :

Code:

XLS.Cells(XLS.Cells(1, 2).CurrentRegion.Rows.Count + 1, 1) = Text1.TEXT
07/06/2011, 00h01
famdsm

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

Code:

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

sa marche pas. il ya une erreur quelque part.
07/06/2011, 09h01
petit rabot

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

Code:

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

J'aurai mis .xls ou .xlsx
07/06/2011, 12h08
SfJ5Rpw8

Citation:

Envoyé par famdsm

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

Code:

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 ?
08/06/2011, 18h07
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é
08/06/2011, 19h36
SfJ5Rpw8

Citation:

Envoyé par 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é

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 :

Citation:

Envoyé par petit rabot

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

Code:

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 ...?
08/06/2011, 21h08
famdsm

Citation:

Envoyé par bbil

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
08/06/2011, 21h15
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...
08/06/2011, 21h27
famdsm

Citation:

Envoyé par bbil

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.
08/06/2011, 21h44
SfJ5Rpw8

Citation:

Envoyé par famdsm

oui le dite fichier est ouvert sous vb6.

:koi:

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 ?
08/06/2011, 22h27
famdsm

Citation:

Envoyé par bbil

:koi:

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?
08/06/2011, 23h17
SfJ5Rpw8

Citation:

Envoyé par famdsm

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 ?
09/06/2011, 00h58
famdsm

Citation:

Envoyé par bbil

??? 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é.
09/06/2011, 19h36
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 ..

Citation:

Envoyé par bbil

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:

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