Ouvrir un fichier excelRésolu

Question

Fabrizio

  Je voudrais, a l'aide de VB, ouvrir un fichier excel et lire des donn&#233;es dans une feuille.
Dans mon exemple , le fichier est a l'emplacement suivant :

 - C:	est\Fichier excel

 et la feuille s'appelle :

 - Donn&#233;es

et , par exemple je voudrais lire la cellule (b,3)

 merci d'avance !!!!

mrdep1978 · Accepted Answer

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:	est\Fichier Excel.xls")
'Travaille avec la feuille "Donn&#233;es". Ca &#233;vite par la suite d'avoir &#224; r&#233;&#233;crire syst&#233;matiquement xlApp.Worksheets("Donn&#233;es").Range(....
Set l_Sheet = l_WorkBook.Worksheets("Donn&#233;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&#233;truit l'objet Application
Set xlApp = Nothing
End Sub

mrdep1978 · Answer

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:	est\Fichier Excel.xls"
'Travaille avec la feuille "Donn&#233;es". Ca &#233;vite par la suite d'avoir &#224; r&#233;&#233;crire syst&#233;matiquement xlApp.Worksheets("Donn&#233;es").Range(....
Set l_Sheet = xlApp.Worksheets("Donn&#233;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&#233;truit l'objet Application
Set xlApp=Nothing

sourrisseau · Answer

Fabrizio

  Il m'affiche "l'objet ne gere pas cette propriete ou cette methode" quand il arrive a 
  xlApp.Open "c:	est\Fichier Excel.xls"

  aurais tu une id&#233;e ? merci en tout les cas de la rapidite de ta reponse ! a+

mrdep1978 · Answer

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:	est\Fichier Excel.xls")
....
Au lieu de xlApp.Close False => l_WorkBook.Close False

sourrisseau · Answer

Fabrizio

Ca recommence !!! Variable objet non defini cette fois ci !!!!!  quand j'arrive a 
   - Set l_WorkBook = xlApp.Workbooks.Open("c:	est\Fichier Excel.xls")

  Si tu sais comment resoudre cela merci d'avance !!! a+

mrdep1978 · Answer

Tu as rajout&#233; ceci
Dim l_WorkBook as Object

dans tes d&#233;clarations de variable ?

sourrisseau · Answer

Fabrizio
vi

PtitGrumo · Answer

Coucou

Va dans projet >> r&#233;f&#233;rence et ajoute la r&#233;f&#233;rence Microsoft ActiveX Excel Objet tout simplement

Je suis a ta dispo si tu trouve pas!

A+

PtitGrumo aime les gateaux

sourrisseau · Answer

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