cs_stage
Messages postés37Date d'inscriptionvendredi 21 juin 2002StatutMembreDernière intervention13 septembre 2002
-
2 juil. 2002 à 15:56
cs_stage
Messages postés37Date d'inscriptionvendredi 21 juin 2002StatutMembreDernière intervention13 septembre 2002
-
2 juil. 2002 à 19:11
Salut, on recherche la facon le plus efficace pour lire et aussi rechercher dans un fichier de type excel a partir de Visual Basic.
Toute connaissance concernant des manipulations de fichier excel avec vb serait bien apprécié.
Merci
DeAtHCrAsH
Messages postés2670Date d'inscriptionvendredi 25 janvier 2002StatutMembreDernière intervention 6 février 2013 2 juil. 2002 à 17:42
Ben c'est pas dur.
D'abord tu déclares l'objet dans la section générale tout en haut :
Public DevisExcel as object
Puis, par exemple, tu crées un bouton qui va, quand on clique dessus, créer un fichier excel.
Donc, dans l'évenement click du bouton, tu tapes le reste :
'on dit que l'objet est de type feuille excel et ouvre Excel
Set DevisExcel = CreateObject("Excel.Application")
'mettre à True pour l'afficher à l'écran , mettre à False pour pas qu'Excel reste invisible
DevisExcel.Visible = True
'ajoute un nouveau classeur
DevisExcel.Workbooks.Add
'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ...
DevisExcel.DisplayAlerts = False
'selectionne la feuille du classeur
DevisExcel.Sheets("Feuil2").Select
'on supprime cette feuille
DevisExcel.ActiveWindow.SelectedSheets.Delete
'on fait pareil avec la feuille 3
DevisExcel.Sheets("Feuil3").Select
DevisExcel.ActiveWindow.SelectedSheets.Delete
'on selectionne la feuille 1 (la seule qui reste)
DevisExcel.Sheets("Feuil1").Select
'on change le nom de celle ci
DevisExcel.Sheets("Feuil1").Name = "Devis"
'on sauvegarde la feuille sous le nom contenu dans NomSauvegarde (ex : NomSauvegarde="C:\MonFichier.xls")
Ainsi, tu as créé un fichier excel avec une feuille qui s'appelle Devis. Ce fichier s'appelle MonFichier.xls et il est situé dans C:\.
Maintenant, si tu veux ouvrir un fichier existant, il remplacer cette ligne :