Discussion :

[cortex59]

Bonjour,

Je voudrais récupérer des champs d’un fichier Excel.
Est ce que ceci est possible a réaliser ?
si oui des idées sur le code a effectuer ?

merci

[tomlev]

Salut,

Ce sujet a été très souvent traité sur le forum, fais une recherche pour voir les discussions qui en parlent.

Pour manipuler des documents Excel (ou autres documents Office), il faut utiliser VSTO (Visual Studio Tools for Office).
Pour débuter je te conseille ce tutoriel :
http://morpheus.developpez.com/vsto2/

[Skalp]

Tout dépend de ce que tu veux faire.

Il y a d'autres possibilités que les VSTO.
Tu peux par exemple faire de l'automation COM directement (piloter OFFICE ou Cf. ma signature).
Mais si tu ne souhaites que lire des champs dans un fichier Excel comme si c'était une base de données, tu peux utiliser une connexion OleDB pour te connecter au fichier Excel (OLE DB Provider for Jet).

[cortex59]

re,

je voudrais juste recuperer une variable par exemple de la cellule A1 et la mettre dans une variable declarer dans mon code VBA

merci

[tomlev]

Et avec les liens qu'on t'a donné vers des tutoriels, tu n'y arrives pas ?

[cortex59]

bonjour,

serieusement je vois pas trop..

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

n'oublier pas que c du VBA.(je le post ici car sur le forum VBA personne ne repond)

un peu d'aide svp

merci

[cortex59]

re,

ce code me permet d'ouvrir mon fichier

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

[cortex59]

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

[tomlev]

Sur le forum VB.NET tu ne risquais pas d'avoir beaucoup d'aide
J'ai déplacé

[SilkyRoad]

bonjour

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

"variable d'objet non definie"

comment as tu déclaré la variable "AppExcel" ?


bonne journée
michel

[cortex59]

bonjour,

voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim AppExcel
Dim Fichier
Fichier = FormtableauIO.ExcelFilename
 
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True
AppExcel.Workbooks.Open (Fichier)
Set AppExcel = Nothing
 
Dim toto
Set toto = AppExcel.Workbooks.Sheets("Feuil1").Range("A1")
 
 
AppExcel.Workbooks(Fichier).Close
AppExcel.Visible = False

[tomlev]

Enlève cette ligne

Code :

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

Set AppExcel = Nothing