recuperer les valeurs d'une cellule dans un fichier excel

[cortex59]

bonjour,

je voudrais recuperer les valeurs d'une cellule dans un fichier excel est mettre la valeur dans mon application VBA developer sur Visio

j'ai le chemin du point .xls dans la variable "chemin"
mais je vois pas comment je prend le contenu du champs A1,1 du fichier de mon chemin

un peu d'aide svp

merci

re,

ce code me permet d'ouvrir mon fichier

Code :

Dim AppExcel
Dim Fichier
Fichier = c:\test.xls
 
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True
 
AppExcel.Workbooks.Open (Fichier)
Set AppExcel = Nothing

maintenant je voudrais recuperer la valeur de la cellule A1,1

merci

Dim toto
toto = AppExcel.Workbooks.Sheets("Feuil1").Range("A1")

j'ai essyer ceci mais lj'ai un mess d'erreur sur ce code

"variable d'objet non definie"

merci

[Heureux-oli]

Le premier problème que je décèle est la déclaration des variables !

Dim toto

est un peu court.

Dim toto as string

devrait aller un peu mieux.

Essaie ceci

Dim xlApp as New Excel.Application
Dim xlWb as Excel.WorkBook
Dim xlSh as Excel.WorkSheet
Dim toto as String
 
Set xlWb = xlApp.WorkBooks.Open ("C:\temp\monFichier.xls")
set xlSh = xlWb.WorkSheets(1)
 
toto = xlSh.Cells(1,1)

ou

toto = xlSh.Range("A1")

Les deux méthodes fonctionnent

[cortex59]

merci beaucoup ca marche impec