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 & "\test.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.
Bonjour
n'as tu pas remarqué que la question a été résolu il y a 15 ans?
Quoi qu'il en soit, merci de faire un effort de présentation de tes codes à l'avenir, voir ici comment faire https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code