Discussion :

[exporta22]

bonjour, j'essaie, depuis environ 2 a 3 semaine de me débrouiller seul mais je n'y arrive pas. Ce que j'essaie de faire est un programme qui me permetrais, sans ouvrir excel moi meme, d'entré des informations facilement et ensuite le programme ouvrirait une feuille excel pré établit, mettrais les informations aux bons endroits et ensuite refermerais la feuille excel. Une autre parti du programme serait d'afficher certaines informations de la feuilles excel dans un formulaire dans mon programme.

voici le code que j'utilise pour ouvrir la feuille.

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
16
17
18
19
20
21
22
 
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer = 4
        Dim l As Integer
 
        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        'C'est cette ligne qui est en problème
        xlWorkSheet = xlWorkBook.Sheets("sheet1")
 
 
        ' close excel, and perform the cleanup of the objects
        xlWorkBook.Close()
        xlApp.Application.Quit()
        xlWorkSheet = Nothing
        xlWorkBook = Nothing
        xlApp = Nothing

Le probleme se situe a la ligne 11. Voici ce que visual studio me dit:

Ancien format ou bibliothèque de types non valide. (Exception de HRESULT : 0x80028018 (TYPE_E_INVDATAREAD))

Je ne comprend plus. merci de m'aider

[asmduty]

As tu une feuille de calcul "sheet1" ?
Essaye

Code :

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

xlWorkSheet = xlWorkBook.Sheets(0)

Je ne sais lus ou Sheets(1), je ne sais plus si les indices partent de 0 ou 1 avec excel ...

[sihammaster]

Bonjour,
J'ai rencontré le même probleme dans la même ligne, et voila la solution

tu dois ajouter cette ligne à ton code :

Code :

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

1
2
3
 
'Changement de la date du système
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")

[exporta22]

merci, sihammaster, ca fonctionne numero 1! dire que ce n'etait juste ca. avoir su, j'aurais sauvé pratiquement 3 semaine de "googleling".

Merci a tous pour le coup de main.