Excel Workbook dans My.Ressources

Version imprimable

Bonjour,

Pour mon programme en cours j'ai besoin d'exporter puis d'imprimer des données (beaucoup de données) dans un document Excel, et vu que le format est conventionné pour les audit je n'ai pas envie de me taper tout le formatage via le code VB.

J'ai donc crée le doc sur excel puis je l'ai mis dans My.Ressources, mais lorsque je l'appelle j'ai un petit souci :aie:
Code:

1 2 3 Dim monAppli As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application) Dim monClasseur As Excel.Workbook = DirectCast(My.Resources.ModeleExportSlowMoving, Excel.Workbook) Dim mafeuille As Excel.Worksheet = DirectCast(monClasseur.Worksheets.Add, Excel.Worksheet)
Le message d'erreur est :

Citation:

Impossible d'effectuer un cast d'un objet de type 'System.Byte[]' en type 'Microsoft.Office.Interop.Excel.Workbook'.

Et je ne vois pas bien comment je pourrais transformer un tableau de byte en doc xls...

Toute suggestion est la bienvenue, même une autre façon de faire :ccool:

J'ai fait ça y a pas lgt...

Je cherche le bout de code et j'te file ça ;)

EDIT :

Et voici ^^
Code:

1 2 3 4 5 6 7 IO.File.WriteAllBytes(IO.Path.GetTempPath & "temp.xls", My.Resources.userManagement) Dim xlApp As Excel.Application = Nothing Dim xlBook As Excel.Workbook = Nothing Dim xlSheet As Excel.Worksheet = Nothing xlApp = New Excel.Application xlBook = xlApp.Workbooks.Open(System.IO.Path.GetTempPath + "temp.xls")
Donc en fait, ça extrait le fichier des ressources et ça l'écrit sur le disque dans le répertoire temp. Après tu l'ouvres normalement.
Si tu as des questions, n'hésite pas mais je pense que c'est assez clair ;)

Merci Griftou,

J'ai trouvé un bout de code équivalent sur le msdn:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim monAppli As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)
        Dim TempFileName As String = "ModeleExportSlowMoving"
        TempFileName = Application.StartupPath & "\" & TempFileName
        Dim fs As New FileStream(TempFileName, FileMode.Create, FileAccess.Write)
        Dim fsR As New BinaryWriter(fs)
        fsR.Write(My.Resources.ModeleExportSlowMoving, 0, My.Resources.ModeleExportSlowMoving.Length)
        fsR.Close()
        fs.Close()
        monAppli = New Excel.Application
        monAppli.Workbooks.Add(TempFileName)
        Dim monClasseur = monAppli.Workbooks.Item(1)
        Dim maFeuille = monClasseur.ActiveSheet

Je t'accorde que le tien est plus court :mrgreen:

EDIT :

Tellement plus court que finalement je l'ai repris et encore raccourci :mouarf:

Code:

1
2
3
4
IO.File.WriteAllBytes(IO.Path.GetTempPath & "ModeleExportSlowMoving", My.Resources.ModeleExportSlowMoving)
        Dim monAppli = New Excel.Application
        Dim monClasseur = monAppli.Workbooks.Open(System.IO.Path.GetTempPath & "ModeleExportSlowMoving")
        Dim maFeuille = monClasseur.ActiveSheet

EDIT2 :

Par contre j'ai ajouté ça en fin de procédure

Code:

1
2
3
If File.Exists(System.IO.Path.GetTempPath & "ModeleExportSlowMoving") Then
            File.Delete(System.IO.Path.GetTempPath & "ModeleExportSlowMoving")
        End If

Puisque le fichier est crée dans le dossier Temp, je le détruis.

22/09/2011, 18h58
Kropernic

C'est pas un dossier qui est nettoyé tous les x temps ? ^^