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 ??
NHenry
Messages postés15155Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention26 septembre 2024159 8 janv. 2011 à 21:08
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.
cedricbollini
Messages postés16Date d'inscriptionjeudi 1 mai 2008StatutMembreDernière intervention 9 janvier 2011 9 janv. 2011 à 18:14
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