Ouvrir un fichier excel

Résolu
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013 - 1 févr. 2005 à 16:23
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013 - 2 févr. 2005 à 15:39
Fabrizio

Je voudrais, a l'aide de VB, ouvrir un fichier excel et lire des données dans une feuille.
Dans mon exemple , le fichier est a l'emplacement suivant :

- C:\test\Fichier excel

et la feuille s'appelle :

- Données

et , par exemple je voudrais lire la cellule (b,3)

merci d'avance !!!!

9 réponses

mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 7
1 févr. 2005 à 18:21
Je te mets tout le code tel qu'il fonctionne chez moi:

Public Sub gsub_Test()
Dim xlApp As Object
Dim l_Sheet As Object
Dim l_WorkBook As Object


'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
Set l_WorkBook = xlApp.Workbooks.Open("c:\test\Fichier Excel.xls")
'Travaille avec la feuille "Données". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Données").Range(....
Set l_Sheet = l_WorkBook.Worksheets("Données")
'Affiche le contenu de B3
MsgBox l_Sheet.Range("BR").Value
'Ferme le fichier Excel sans sauvegarder de modifs
l_WorkBook.Close False
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp = Nothing
End Sub
3
PtitGrumo Messages postés 205 Date d'inscription samedi 22 janvier 2005 Statut Membre Dernière intervention 28 novembre 2005 2
1 févr. 2005 à 20:11
Coucou

Va dans projet >> référence et ajoute la référence Microsoft ActiveX Excel Objet tout simplement

Je suis a ta dispo si tu trouve pas!

A+

PtitGrumo aime les gateaux
3
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 7
1 févr. 2005 à 16:49
Dim xlApp as Object
Dim l_Sheet as Object

'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
xlApp.Open "c:\test\Fichier Excel.xls"
'Travaille avec la feuille "Données". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Données").Range(....
Set l_Sheet = xlApp.Worksheets("Données")
'Affiche le contenu de B3
MsgBox l_Sheet.Range("B3").value
'Ferme le fichier Excel sans sauvegarder de modifs
xlApp.Close False
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp=Nothing
0
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013
1 févr. 2005 à 17:09
Fabrizio

Il m'affiche "l'objet ne gere pas cette propriete ou cette methode" quand il arrive a
xlApp.Open "c:\test\Fichier Excel.xls"

aurais tu une idée ? merci en tout les cas de la rapidite de ta reponse ! a+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 7
1 févr. 2005 à 17:20
Ah oui, le Open et le Close se font sur un objet Workbook

Dim l_WorkBook as Object
....
Set l_WorkBook = xlApp.Workbooks.Open("c:\test\Fichier Excel.xls")
....
Au lieu de xlApp.Close False => l_WorkBook.Close False
0
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013
1 févr. 2005 à 17:55
Fabrizio

Ca recommence !!! Variable objet non defini cette fois ci !!!!! quand j'arrive a
- Set l_WorkBook = xlApp.Workbooks.Open("c:\test\Fichier Excel.xls")

Si tu sais comment resoudre cela merci d'avance !!! a+
0
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 7
1 févr. 2005 à 18:00
Tu as rajouté ceci
Dim l_WorkBook as Object

dans tes déclarations de variable ?
0
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013
1 févr. 2005 à 18:09
Fabrizio
vi
0
sourrisseau Messages postés 30 Date d'inscription mardi 12 mars 2013 Statut Membre Dernière intervention 12 mars 2013
2 févr. 2005 à 15:39
Fabrizio

Merci de ta contribution , j'avais fait ce que tu as dit dans le message mais c'est tres sympa a toi .

Je ne manquerai pas de t'ecrire en cas de besoin ! Merci de ton aide et a bientot !

Fabrice
0
Rejoignez-nous