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

Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
- - Dernière réponse : cedricbollini
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
- 9 janv. 2011 à 18:14
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 ??
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 128 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
14522
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 août 2019
133
0
Merci
Bonjour,

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

Commenter la réponse de NHenry
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
0
Merci
Bonjour,

merci pour ta réponse rapide,

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

Merci d'avance
Commenter la réponse de cedricbollini
Messages postés
16
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
9 janvier 2011
0
Merci
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
Commenter la réponse de cedricbollini