[VB 2008] Utilisation fichier Excel dans my.resources [Résolu]

Signaler
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
-
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
-
bonsoir,

Utilisant des fichiers Excels dans mon application,
je souhaiterais intégrer les fichiers dans my.resources,

mon problème est le suivant :
je n'arrive pas à trouver la syntaxe pour utiliser les fichiers Excels qui ont
été déclaré dans My.resources

Si j'écrit les lignes suivantes :
Code :

Dim appExcel As Object
Dim wbExcel As Object

appExcel = CreateObject("excel.application")
wbExcel = appExcel.Workbooks.Open(My.Resources.Gestion_pointage)

Gestion_pointage étant le nom du fichier excel dans my.resources

L'erreur est la suivante :
Citation:
Le type ne correspond pas. (Exception de HRESULT : 0x80020005 (DISP_E_TYPEMISMATCH))
Quelqu'un aurait-il une idée ??

4 réponses

Messages postés
14677
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 juillet 2020
143
Bonjour,

Quand tu appelle My.Settings.Fichier, ça te retourne un tableau d'octet.
Ensuite, je crois que la fonction WriteAllBytes (il me semble) devrait t'aider.

Messages postés
14677
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 juillet 2020
143
Bonjour,

Il te faudra obligatoirement extraire le fichier (l'écrire sur le disque) pour pouvoir l'utiliser.

Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011

Bonjour,

merci pour ta réponse rapide,

mais pourrais-tu m'expliquer comment extraire les fichiers présent dans my.resources ?

Merci d'avance
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011

Bonjour,

Merci à toi, en utilisant la fonction writeallbytes pour extraire le fichier excel,
cela fonctionne très bien

Voici la solution, si cela peut aider quelqu'un :

Imports System.IO

'Ce bouton permet de copier le fichier dans le répertoire de l'application
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path_excel As String

        path_excel = Application.StartupPath & "\Gestion_pointage.xls"

        IO.File.WriteAllBytes(path_excel, My.Resources.Gestion_pointage)


    End Sub




Bon fin de week-end à tous