aurel7687
Messages postés24Date d'inscriptionvendredi 27 juin 2003StatutMembreDernière intervention14 août 2009
-
22 oct. 2006 à 20:16
aurel7687
Messages postés24Date d'inscriptionvendredi 27 juin 2003StatutMembreDernière intervention14 août 2009
-
23 oct. 2006 à 20:16
Bonjour à tous!
Voila, je voudrais savoir si quelqu'un pourrait me dire s'il est possible (je le pense!) à partir d'un petit programme exécutable crée sous VB de rentrer des informations dans un fichier excel dont on donnera son emplacement.
Je m'explique:
Dans ce programme on a plusieurs champs à remplir (Noms,prénoms...).
Avec ces données rentrées, il faudrait que quand la personne valide à l'aide d'un bouton, quelles soient coller puis enregistrer dans un fichier excel.
Dans la colonne 1 du fichier XLS, il y aurait les noms
Dans la colonne 2 / / / , il y aurait les prenoms.
etc.
Donc il faudrait que le programme regarde la dernière ligne non remplie du fichier, colle les infos donné par l'utilisateur, et enregistre ce fichier excel.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 oct. 2006 à 00:27
B0mbJack, ça fait 2 / 3 messages que tu laisses qui sont inutiles, attention !!
Dim XlApp As New Excel.Application
Dim XlWorkBook As Excel.Workbook
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = True
'Ouvre le classeur
Set XlWorkBook = XlApp.Workbooks.Open("C:\chemin\nom fichier.xls")
'[...les mofid => Objets Worksheets... Ranges]
XlWorkBook.Sheets("nom feuille").Select
XlWorkBook.Range("A1").Value = "Ceci est un test"
'Sauvegarde le classeur
Call XlWorkBook.Close(True)
'Quitte l'application
Call XlApp.Quit
'Destruction des objets
Set XlApp = Nothing
Set XlWorkBook = Nothing
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 oct. 2006 à 00:48
Attention veut dire de ne pas abuser, si j'étais à la place de celui qui poste le topic, j'aurai les boules de lire ton message. Je demande quelque chose et on me dit "Oui, tu peux faire", mais pas de solution...
Mais toi à sa place.
Pour les Url, je ne suis pas là pour fouiller toutes tes réponses, mais ce qui me vient à l'esprit, ce sont tes mot au format sms...
Bref, on peut répondre ironiquement, mais tu aurais pu au moins lui fournir un bout de code, voilà tout.
Bonne soirée
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Vous n’avez pas trouvé la réponse que vous recherchez ?
aurel7687
Messages postés24Date d'inscriptionvendredi 27 juin 2003StatutMembreDernière intervention14 août 20092 23 oct. 2006 à 20:16
Bonsoir! Merci pour cette réponse ou plutot ce code!
Je suis rester au stade de débutant, helas!
Mais j'aurais encore une question concernant ce code:
je ne vois pas apparaitre l'objet (comme une zone de texte ou l'on rentre le texte à ajouter dans la cellule A1)!
De plus ca c'est à mettre dans un module ou dans la form?
Merci Mortalino!