Afficher le contenu d'une textbox dans une cellule excelRésolu

Question

Bonjour a tous,

Etant débutant en VB6, j'ai des difficultés à afficher le contenu d'une textbox dans une cellule d'un fichier Excel.
Le but de mon programme serait d'afficher à chaque clic (sur un bouton command) l'heure et la date du système dans un fichier excel afin d'effectuer un suivi.
Pour le moment j'ai réussi a faire afficher la date et l'heure dans une textbox puis a ouvrir une application Excel, mais je ne sais pas comment afficher le résutat dans une cellule.

Voilà ce que j'ai fait  :

' Commande simulant le transfert d'un Kwh.

Private Sub CmdTransfert_Click()
Text1 = "Transfert"
Text2.Text = Format(Now, "dd/mm/yyyy hh:mm:ss")

Set AppliExcel = CreateObject("excel.application")
With AppliExcel
            .Visible = True
            .Workbooks.Open App.Path & "	est.xls"

Si quelqu'un aurait une idée ca me depannerai
Merci.

cs_Exploreur · Accepted Answer

Salut,

Regarde cette source  et ce petit tuto cela dervrait t'iader je pense....

A+
Exploreur

 Linux a un noyau, Windows un pépin 

<hr />
Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire

cs_Loic34000 · Answer

un grand merci

BettyDress · Answer

Bonjour,

Pour afficher le contenu d'une textbox dans une cellule d'un fichier Excel, vous pouvez utiliser les fonctionnalités de l'objet Workbook et de l'objet Worksheet. Voici comment vous pouvez le faire :

Tout d'abord, assurez-vous d'ajouter une référence à la bibliothèque "Microsoft Excel Object Library" dans votre projet VB6.

Dans votre code, après avoir ouvert le fichier Excel, vous pouvez utiliser les méthodes et propriétés de l'objet Workbook pour accéder à la feuille de calcul et écrire le contenu de la textbox dans une cellule spécifique. Voici un exemple :

Dim AppliExcel As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet

' ...

' Ouvrir le fichier Excel
Set AppliExcel = CreateObject("Excel.Application")
Set Classeur = AppliExcel.Workbooks.Open(App.Path & "	est.xls")
Set Feuille = Classeur.Worksheets(1) ' Spécifiez le numéro ou le nom de la feuille

' Récupérer le contenu de la textbox
Dim contenu As String
contenu = Text1.Text

' Écrire le contenu dans une cellule spécifique
Feuille.Range("A1").Value = contenu ' Par exemple, écrire dans la cellule A1

' Fermer le fichier Excel
Classeur.Close SaveChanges:=True
AppliExcel.Quit

' ...

Set Feuille = Nothing
Set Classeur = Nothing
Set AppliExcel = Nothing

Assurez-vous d'ajuster le numéro ou le nom de la feuille (dans l'exemple, c'est Feuille.Range("A1")) et la référence de la cellule en fonction de vos besoins.

J'espère que cela vous aidera dans votre projet. Pour télécharger le fichier Excel modifié, vous pouvez utiliser le service de transfert de fichiers suivant : www.fileup.fr

Bonne chance avec votre programme !

Cordialement,

P.S. : Vous pouvez télécharger le fichier modifié à partir de ce lien.

Afficher le contenu d'une textbox dans une cellule excel

3 réponses

Votre réponse

Discussions similaires