Visual Studio 2008 et Excel

Version imprimable

25/04/2009, 19h18
Vincentz

Visual Studio 2008 et Excel

Bonjour,
Je cherche à lire des données dans un fichier Excel 2003 avec mon programme en VB.NET.
Toute les sources que j'ai pu trouvé sur le net ne sont pas pour VS 2008 et les exemples ne fonctionnent pas à cause des bibliothèques (les fonctions ne sont pas reconnus).
Sur MSDN je n'ai rien trouvé de satisfaisant.

Est-ce que quelqu'un pourrait me dire quelles sont le bibliothèques à importer ainsi qu'un exemple très simple qui lirait une cellule dans le fichier.

Merci beaucoup.
25/04/2009, 20h14
Sankasssss

Hello,
tout est sur msdn...
voilà la page ou tu pourras trouver tout ce qu'il faut pour travailler avec Excel.

Il y a aussi des exemples dans les 101 exemples VB.net sur msdn
25/04/2009, 20h46
Vincentz

Je fais toujours face au même problème.
Il m'est impossible de faire des déclarations du type (mes lignes sont surlignées en bleu):

Code:

Dim newWorbook as Worbook

ou

Code:

Dim newWorbook as Excel.Workbook

Pourtant, depuis le départ j'ai ajouté la référence a :
Microsoft.Office.Interop.Excel
Et à toute les références comprises dans l'exemple MSDN "How-To Office Automation"

J'aimerai au moins trouver la commande permettant d'ouvrir mon fichier...

Je vous en prie, ça fait 2 jours que je bloque sur cette bêtise et je me prend tout mon WE pour avancer mon programme pour qu'il soit prêt lundi

Merci
25/04/2009, 21h44
Skalp

Je te propose la lecture de cet article dans un premier temps : Pilotage de l'application Office Excel (Excel Automation).

S'il ne t'apprends rien ou si ton code ne fonctionne toujours pas, alors montre-le nous.

Merci Skalp pour ton aide. J'ai déjà lu ton lien mais il ne m'aide pas...
Même un copié collé du code me fait les mêmes erreurs.

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Imports Microsoft.Office.Interop.Excel
Imports System.IO
Imports System.Data
Imports System
Imports System.Collections
Imports Microsoft.Office.Tools.Excel
Imports Microsoft.VisualBasic
 
Public Class Excelmanaged
 
    'Fonction ouvrir Fichier
    Private Sub OuvrirFichier()
        Dim newWorbook As Workbook
        Dim book As Excel.Workbook 'Classeur Excel
		Application.Worbooks.Open("C:\Documents and Settings\Automatismes\Bureau\Classeur2.xls")
        'Déclaration des variables
        Dim xlsapp As Excel.Application 'Application Excel
		xlsapp = New Excel.Application
    End Sub
 
End Class

J'ai tout simplement les mots suivants soulignés en bleu:

Code:

1
2
3
4
Dim newWorbook As Workbook
 Dim book As Excel.Workbook 'Classeur Excel
 Dim xlsapp As Excel.Application 'Application Excel
 xlsapp = New Excel.Application

Je dois surement déclarer autre chose avant tout ça mais je ne vois pas quoi...

Merci

Pour ouvrir simplement un fichier excel, tu peux essayer le code suivant:
Code:

1 2 3 4 5 6 7 Dim AppExcel As Application Dim wsheet As Worksheet Dim wbook As Workbook AppExcel = New Microsoft.Office.Interop.Excel.Application wbook = AppExcel.Workbooks.Open(CheminFichierExcel)
PS: marche pour excel 2007 et je pense également pour 2003.

26/04/2009, 00h58
Vincentz

Merci mais ne marche malheureusement pas.
Tout mes types des déclarations ne sont pas valide.

Pour Application, Worsheet, Workbook j'ai une erreur :

Citation:

"... est ambigu dans l'espace de nom 'Microsoft.Office.Interop.Excel'
26/04/2009, 01h05
roster

Et en retirant cette ligne de ton code:

Code:

Imports Microsoft.Office.Tools.Excel

???
26/04/2009, 01h08
Vincentz

Je viens de la mettre en commentaire mais sans succès, toujours le même problème. :cry:

Je precise que ce bout de code est dans un fichier de class a part.
Manque-t-il un lien?
26/04/2009, 01h37
roster

Ambigu signifie sûrement que tu as plus d'une référence aux mêmes méthodes.

Il faudrait peut-être effacer une dll de ton appli.

Essais sinon en ouvrant un nouveau projet et en important seulement la réf a l'interop excel. Normalement le code d'avant doit marcher!
26/04/2009, 02h01
Vincentz
En mettant ton code dans un nouveau projet je n'ai plus ces "ambiguités" mais j'ai une erreur de déclaration pour :
Code:

1 2 3 AppExcel = New Microsoft.Office.Interop.Excel.Application wbook = AppExcel.Workbooks.Open(CheminFichierExcel)
26/04/2009, 02h20
roster

Erreur de déclaration sur quelle ligne?
26/04/2009, 08h52
wakan

Bonjour,
Sinon tu peux regarder du coté de ADO.Net, si tu veux lire ou écrire des données dans un fichier c'est assez performant.
A bientôt
26/04/2009, 11h03
Vincentz
Citation:

Envoyé par roster

Erreur de déclaration sur quelle ligne?

J'ai une erreur de déclaration sur:
AppExcel et wbook dans:
Code:

1 2 3 AppExcel = New Microsoft.Office.Interop.Excel.Application wbook = AppExcel.Workbooks.Open(CheminFichierExcel)

dans l'exemple MSDN "How-To Office Automation"
es-ce qu'il fonctionne sur ton PC?
Si oui, vérifie que les références qu'ils utilisent sont les mêmes que toi et analyse leur code. C'est chiant mais en général ça marche très bien.
Si ça ne marche toujours pas je ne peux personnellement plus rien pour toi. :?

Si l'exemple MSDN "How-To Office Automation" ne fonctionne pas sur ton pc il y a un gros soucis... :roll:

EDIT :

tu as essayé de ne mettre aucun imports dans ton projet :
Code:

1 2 Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Tools.Excel
et de mettre le chemin complet quand tu utilises un élément d'excel
comme par exemple :

Code:

Microsoft.Office.Interop.Excel.Workbook

et pour tes erreurs de déclaration :
Citation:
Envoyé par Vincentz
J'ai une erreur de déclaration sur:
AppExcel et wbook dans:
Code:

1 2 3 AppExcel = New Microsoft.Office.Interop.Excel.Application wbook = AppExcel.Workbooks.Open(CheminFichierExcel)
essaye :
Code:

1 2 3 AppExcel as Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application wbook as Microsoft.Office.Interop.Excel.Workbook = AppExcel.Workbooks.Open(CheminFichierExcel)

Pour compléter ce qu'à dit Sankasss:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
 
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook
        Dim AppExcel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
 
        wbook = AppExcel.Workbooks.Open("C:\Documents and Settings\Automatismes\Bureau\Classeur2.xls")
        AppExcel.Visible = True
 
 
 
 
    End Sub
End Class

A copier dans un nouveau projet.
Ensuite, tu ne fais que l'ajout de la référence à Microsoft.Office.Interop.Excel.

26/04/2009, 15h39
Vincentz

Merci a vous tous :)

J'ai résolu mon problème en créant un nouveau projet et en le limitant a un minimum de référence.
Cependant j'ai été obligé de faire mes déclarations dans une fonction private sinon j'avais encore un problème d'ambigüité.

Encore merci et maintenant je vais essayer de rattraper le temps perdu :yaisse2:

A bientôt et j'espère qu'un jour, mes connaissances puissent vous servir a vous aussi ;)