Ouvrir un fichier excel

Résolu
Signaler
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013
-
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013
-
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

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
6
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
205
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
28 novembre 2005
2
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
6
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
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013

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+
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
6
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
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013

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+
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
6
Tu as rajouté ceci
Dim l_WorkBook as Object

dans tes déclarations de variable ?
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013

Fabrizio
vi
Messages postés
30
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
12 mars 2013

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