Discussion :

[caro71ol]

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 :

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

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

[shayw]

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

[caro71ol]

"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.

[Leopard_]

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..

[caro71ol]

je suppose sur une de ces deux lignes :

Code :

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

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 :

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

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