Discussion :

[Shadam]

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

Code :

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

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 :

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

[Kropernic]

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

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

EDIT :

Et voici ^^

Code :

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

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

[Shadam]

Merci Griftou,

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

Code :

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

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

EDIT :

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

Code :

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

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 :

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

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.

[Kropernic]

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