VB et resources

Bonjour,

je pilote des classeurs Excel avec vb net.

sur une feuille d'un classeur, j'aimerais ajouter une entête avec une image et du texte.
Cette image proviendrait d'une image des ressources que l'on peut ajouter à un projet vb net (ici my.resources.logo).

voici un morceau de code, mais cela ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Try 'entete Dim destination As String = My.Application.Info.DirectoryPath & "\Resources\logo.jpg" ' Dim destination As String = My.Application.Info.DirectoryPath.Resources.logo xlsfeuillegarde.PageSetup.CenterHeaderPicture.Filename = destination ' System.IO.File. xlsfeuillegarde.PageSetup.CenterHeader = "&G" & vbNewLine & "CENTRE TECHNIQUE DU CONDITIONNEMENT – Chalon-sur-Saône" Catch ex As Exception MsgBox(ex.Message) MsgBox("Problème de construction de l'entete") End Try
la méthode commentée fonctionne en mode débogage mais pas quand l'application est publiée et installée sur un autre poste.

merci d'avance pour votre aide

Salut
une exception est relevée ?
si oui quelle est le message ex.message ?

"Exception de HRESULT : 0x800A03EC"

au moment de la publication il ne doit pas générer l'image ou je ne sais pas.

dans une autre partie de mon programme j'utilise une ressource que j'ai rajouter au projet vb net en format pdf, et je n'ai pas de soucis avec.

A quelle ligne l'erreur est-elle générée ? Pour moi, on dirait qu'il ne trouve pas le dossier contenant l'image... En tout cas, je ne vois pas trop à première vue d'où pourrait venir le problème en dehors de ça..

je suppose sur une de ces deux lignes :
Code:

1 2 3 Dim destination As String = My.Application.Info.DirectoryPath & "\Resources\logo.jpg" xlsfeuillegarde.PageSetup.CenterHeaderPicture.Filename = destination
l'image ne doit surement pas se générer ou je ne sais pas.

je code sur mon ordi personnel ensuite je publie le projet avec le module de publication de visual studio 2012, je copie le dossier de publication sur un serveur, et met à jour l'application, présente sur un autre pc, depuis le serveur.

pour le mode d'emploi, j'ai le code suivant et j'ai pas de soucis :
Code:

1 2 3 4 5 6 7 8 Try Dim destination As String = My.Application.Info.DirectoryPath & "\mode d'emploi.pdf" System.IO.File.WriteAllBytes(destination, My.Resources.mode_d_emploi1) System.Diagnostics.Process.Start(destination) Catch ex As Exception MsgBox(ex.Message) MsgBox("mode d'emploi non trouvé") End Try