Discussion :

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim toto

est un peu court.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim toto as string

devrait aller un peu mieux.

Essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto = xlSh.Range("A1")

Les deux méthodes fonctionnent

[cortex59]

merci beaucoup ca marche impec