Ouvrir un fichier excel

Question

Sujet Précédent Sujet Suivant

Ouvrir un fichier excel

Résolu

Signaler

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 !!!!

A voir également:

9 réponses

Réponse 2 / 9

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

Réponse 3 / 9

mrdep1978

Messages postés: 402
Date d'inscription: jeudi 25 novembre 2004
Statut: Membre
Dernière intervention: 7 juin 2009

6
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

Réponse 4 / 9

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+

Réponse 5 / 9

mrdep1978

Messages postés: 402
Date d'inscription: jeudi 25 novembre 2004
Statut: Membre
Dernière intervention: 7 juin 2009

6
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

Réponse 6 / 9

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+

Réponse 7 / 9

mrdep1978

Messages postés: 402
Date d'inscription: jeudi 25 novembre 2004
Statut: Membre
Dernière intervention: 7 juin 2009

6
1 févr. 2005 à 18:00

Tu as rajouté ceci
Dim l_WorkBook as Object

dans tes déclarations de variable ?

Réponse 8 / 9

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

Réponse 9 / 9

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

Posez votre question

mrdep1978 · Accepted Answer · 2005-02-01T18:21:17+0100

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

Votre réponse