sauver les données d'une form et rouvrir la meme form vierge

Question

Voil&#224; mon petit soucis qui j'en suis sur n'en sera pas un pour vous!-)
J'aimerais par mon bouton d&#233;nomm&#233; "BntPlus" enregistrer les donn&#233;es sur ma form et rouvrir cette meme form Pour ensuite mettre toutes les donn&#233;es ensemble dans un classeur excel en appuyant sur mon bouton "BntEnd"

J'ai quelques difficult&#233;s pour mon code dans le "BntPlus" je sais pas trop comment m'y prendre Merci d'avance.

cs_lim · Answer

Pourquoi ne pas enregistrer dans le fichier excel directement

quand tu appui sur btnplus tu fais l'enregistrement dans excel
et tu fait un reset de ta form (vide les textbox,list..) et donc tu n'as plus qu'un seul bouton et tu fais tout en m&#234;me temps

@+
LIM

kobejul08 · Answer

Oui c'est sur que je pourrais mais alors comment faire pour ne pas voir le classeur excel qui s'ouvre??
Il doit s'ouvrir seulement a la fin de mon offre tu comprends?? as tu une solution a me proposer pour &#231;a??Merci

cs_lim · Answer

si tu veux pas que excel s'ouvre (tu as la possibilit&#233; de le cach&#233;) tu &#233;cris dans excel mais &#231;&#224; ne se voit pas &#224; l'&#233;cran.

sinon tu stocke tes donn&#233;es dans des variables ou dans un fichier texte temporaire.
quand tu clique sur btnfin tu lis ton fichier (ou tes variables ) et tu exporte vers excel.

@+
LIM

valtrase · Answer

Lut,
Ou Alors tu charges un tableau &#224; chaque appuis sur ton bouton bntPlus &#224; la fin il te sera plus facile de transf&#233;rer ton tableau dans Excel

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

kobejul08 · Answer

Jean-Paul c'est pas mal &#231;a , ce que tu proposes mais sur quel base je dois partir enfin ,je vois pas tr&#232;s bien le code &#224; appliquer!! merci

kobejul08 · Answer

Lim , comment est ce que je dois faire pour cacher l'excel et pour qu'il reconnaisse quand c'est la derni&#232;re entr&#233;e pour qu'enfin apparaisse mon classeur excel??
Si j'ai un seul bouton , je vois pas trop comment le faire except&#233; si toi tu as une id&#233;e -)

cs_lim · Answer

je ne sais pas en koi tu d&#233;veloppe vb6 ou  vb.net. en vb.net je peux t'aider.

comme je ne sais pas exactement quel est le but de ton application je t'ai propos&#233; de cacher excel car &#231;&#224; me semblait une solution.

si ton application est de saisir des donn&#233;es via vb puis de faire un fichier excel qui s'ouvre &#224; l'&#233;cran. 

   tu as plusieurs solution  : 
         tu as deux bouton
            boutonplus  : tu stocke tes donn&#233;es saises dans des varibles tableaux fichier texte interm&#233;diaire
            boutonfin  : tu dis ok c'est la fin et tu fais ton ficheir excel

         tu as un bouton
            tu cr&#233;e ton applicatif excel en cach&#233;, tu le remplis puis au moment au tu quitte ton apli vb tu le fait appa&#238;tre.

comme je te l'ai dis mes solutions ne sont que des r&#233;ponse en fonctiuon des &#233;l&#233;ments que j'ai cru comprendre de ton appli.

en esp&#233;rant t'&#233;clairer un peu plus.

en vb.net

une fois que tu as cr&#233;e tes variables pour utiliser excel

xlapp as new excel.application

tu peut d&#233;cider de cacher l'applciation

xlapp.visible=false

donc en fait l'utilisateur ne voit pas l'applciation excel et continue &#224; travailler sur vb

@+
LIM

kobejul08 · Answer

Je développe en Vb6 sur ce projet ... donc je pense comme tu viens de le signaler que je dois garder mes deux boutons dans tous les cas .. Mais je ne vois pas comment comment remplir en cachant mon classeur excel ... c'est ça qui me pose un problème je vois pas le code à appliquer dans mon bouton "BntPlus" Donc ce code si dessous je le mets dans BntPlus: Set monxl = New Excel.Application monxl.Visible = True AppPath = App.Path If Right(AppPath, 1) <> "" Then AppPath = App.Path & "" monxl.Workbooks.Open AppPath & "offre.xls" Dim Row ' Recherche la dernière ligne utilisée Row = ActiveSheet.UsedRange.Row Row = Row + 1 With ActiveSheet If TxtQuantité.Text <> "" Then monxl.Cells(Row, 1).Value = TxtMachine.Text monxl.Cells(Row, 2).Value = TxtQuantité.Text monxl.Cells(Row, 3).Value = TxtPrix.Text End If End With Mais ensuite? comment rouvrir la forme? comment pour enregistrer dans mon classeur sans l'ouvrir? Si tu savais m'éclairer merci!!

cs_lim · Answer

pourquoi veut tu rouvrir ta form , l&#224; je ne comprends pas ?
il faudrait que tu m'explique comment fonctionne ton application

pour  cacher excel tu monxl.visible=false

@+
LIM

kobejul08 · Answer

Ok oui pour cacher excel je venais de le faire ... et non tu as raison je dois pas la rouvrir mais juste enregistrer et &#233;ffacer tous les produits et prix et quantit&#233;s...comment?

cs_lim · Answer

code dans le bouton

ton code excel

'Sauvegarde du classeur
'en th&#233;orie du a du cr&#233;er trois variable pour excel
'dim monxl as excel.application
'Dim xlbook 
As Excel.Workbook 

'Dim xlsheet 
As Excel.Worksheet

xlbook.save '&#231;&#224; te sauvegarde le classeur ouvert

'remise &#224; z&#233;ro des texbox
TxtMachine.Text=""
 TxtQuantit&#233;.Text=""
  TxtPrix.Text=""

'fin du code pour ajout d'une ligne excel

Si tu veux ajouter des lignes &#224; un classuer excel il faut absolument ouvrir excel tu n'a pas le choix.

@+
LIM

kobejul08 · Answer

tr&#232;s bien &#231;a serait g&#233;nial mais je dois reseter tout et remettre mes champs &#224; blanc??
xlbook.save donc enregistrera d&#233;j&#224; dans mon classeur tu es sur??
Et je peux faire &#231;a en boucle?
Ensuite que dois je inscrire dans mon boutonEnd pour terminer et afficher mon classeur?
Ah oui encore une chose mon xlbook.save je le mets &#224; la fin de mon code??

valtrase · Answer

Petite explication:
quand tu lance excel comme ceci:  monxl.Workbooks.Open AppPath & "offre.xls"
excel est bien ouvert va dans le gestionnaire de tache et processus pour t'en rendre compte.
donc une fois Excel ouvert tu peux travailler dessus normalement
par exemple
monxl.Quit quitte l'application
monxl.Visible = True restore la fen&#234;tre
monxl.WorkBook.Save sauvegarde ton classeur
monxl.workBook.SaveAs Filename sauvegarde sous un autre nom
monxl.WorkBook.Close ferme ton classeur

une fois que ton classeur ferm&#233; et que tu as quitt&#233; ton application monxl ici, tu dois lib&#233;rer la m&#233;moire

set monxl = Nothing
voil&#224; si tu veux d'autres explication n'h&#233;sites pas
sinon va voir ma source pour plus de d&#233;tails sur la manipulation d'excel via VB6

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Sauver les données d'une form et rouvrir la meme form vierge

13 réponses

Discussions similaires