Problème avec excel

Version imprimable

16/04/2009, 15h04
Clydopathe

Problème avec excel

Bonjour tout le monde,

Je suis en train de developper une petite appli censé lire un fichier excel, pour ce faire j'ai lu le tuto là:
http://skalp.developpez.com/tutoriel...tomationexcel/

Mais, quand je fais reference aux dll:
Microsoft Excel Object Library 11.0

Je me retrouve avec des avertissements:
- Avertissement 1 MSB3283*: Impossible de trouver l'assembly de wrappers pour la bibliothèque de types "Excel". Cryptmdp
- Avertissement 2 Le composant référencé 'Excel' est introuvable.

Donc c'est impossible d'ouvrir ce fichier ou même d'importer :
import Microsoft.office.iterop

Quelqu'un a une idée? en sachant que excell fonctionne bien sur mon ordinateur...
17/04/2009, 12h49
Sankasssss

Moi perso j'avais eut un problème en développent une application qui utilisait excel,
le problème était que j'avais la suite office 2007 sur mon pc de développement et que le post qui utilisait le programme tournait avec office 2003.
Bref pour que mon appli fonctionne sur office 2003 j'ai chercher sur le net après les dll d'office 2003 que j'ai intégré a mon projet.
Surprise elle fonctionne aussi bien pour le 2007 que pour le 2003.
Du coup je ne développe plus qu'avec ces dll la.
Je les ai trouvé dans le pack des 101 exemples de microsoft (Pour moi dans le 2003 mais il existe aussi les 101 exemples 2008)

Bref download les exemples et essaye avec ces dll ;)
17/04/2009, 23h01
Clydopathe

Je te remercie pour ces exemples, je testerais ça lundi au boulot et si ca marche, je montrerais mon exemple.

Bon week end.

Merci pour ton aide, avec ça j'ai réussi à faire ce que je voulais ^^, voila mon code pour les gens que ça interresse:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
       OpenFileDialog1.InitialDirectory = "C:\"        'Adresse initiale
        OpenFileDialog1.Filter = "Fichier excell (*.xls)|*.xls"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName.ToString()
        '**************************************************************************'
        'Charge le fichier et recup les infos
        Dim Fichier As String
        Dim Rst As ADODB.Recordset
 
        'Définit le classeur fermé servant de base de données
        Fichier = OpenFileDialog1.FileName.ToString()
        'Nom de la feuille dans le classeur fermé
 
        'Définition des variables de saisie
        Dim Cellules As String = "A1:B1000"
        Dim test(1000, 2) As Object
 
        'Definition des sources
        Dim Source As ADODB.Connection
        Source = New ADODB.Connection
        Source.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";")
        Dim ADOCommand As ADODB.Command
        ADOCommand = New ADODB.Command
        With ADOCommand
            .ActiveConnection = Source
            .CommandText = "SELECT * FROM [Feuil1$" & Cellules & "] WHERE 1=1"
        End With
 
        'Execution de la commande
        Rst = New ADODB.Recordset
        Rst.Open(ADOCommand, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
 
        'Récupération des données
        Rst.MoveFirst()
        test = Rst.GetRows(-1, 0, )
 
        'Fermeture du fichier
        Rst.Close()
        Source.Close()
        Source = Nothing
        Rst = Nothing
        ADOCommand = Nothing
        '**************************************************************************'
        'MessageBox.Show(test.Length)
        Dim val As Integer = test.Length / 2        'Division par 2 car la longueur prends tous les éléments
        For i As Integer = 0 To val - 1             'Et que j'ai deux colonnes
            ListBox1.Items.Add(test(0, i))
            ListBox2.Items.Add(test(1, i))
        Next