Lecture et recheche dans un fichier Excel

Signaler
Messages postés
37
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
13 septembre 2002
-
Messages postés
37
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
13 septembre 2002
-
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

2 réponses

Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
2
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")

DevisExcel.ActiveWorkbook.SaveAs FileName:=NomSauvegarde, _

FileFormat:=17, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

'on quitte excel

DevisExcel.Application.Quit

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 :

DevisExcel.Workbooks.Add

par :

DevisExcel.Workbooks.Open
Filename:="C:\MonFichier.xls", Editable:=True

'Pour ecrire dans une feuille excel a un rang et une collonene precise
sheets("feuil1").range("f20").value=listbox.list(listindex)

Voili voilou.. Bonne prog
A++

DeAtH_-_CrAsH
0
Messages postés
37
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
13 septembre 2002

et pour faire une recherche par colonne ?! ta une idée ?
0