Discussion :

[l0quito]

Bonjour,

Je fait un code qui génère automatiquement une feuille excel avec des champs remplis préalablement par un utilisateur.

J'aimerai insérer une image dans l'entête. Savez-vous comment faire??

[dp_favresa]

Bonjour,

Vous pouvez vous inspirer du code suivant (VB2005) :

Code :

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

1
2
3
4
5
'       Initialisation Classeur et Feuille Excel
        Classeur = CType(AppliEx.Workbooks(1), Excel.Workbook)
        Feuille = CType(Classeur.Worksheets(NomFeuille), Excel.Worksheet)
        Feuille.Cells(7, 3).Select()
        Feuille.Pictures.Insert("Chemin\image")

Bonne prog
dp

[l0quito]

Salut et merci dp_favresa,

J'arrive pas a bien comprendre ton code..(désolé je suis novice)
Pourrai tu l'écrire en déclarant toute les variables??

[Skalp]

Astuce : si l'entête ne change pas, tu peux créer un modèle de fichier Excel (.xlt) avec l'entête que tu auras soigneusement complétée avec tout ce qu'il faut.
Tu n'auras ensuite plus qu'à insérer les "vraies" données, sans t'occuper de l'entête.

[l0quito]

Merci de votre aide, voila comment j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With .PageSetup
.RightHeader = EPHD
 
EPHD = "&G"
If EPHD = "&G" Then
   logo = "C:\Documents and Settings\Ivan\Desktop\EgsCateringV9-2008(08.07.08)\EgsCateringV4\bin\Debug\bottles.png"
   Hlogo = 80
   With .RightHeaderPicture
   .Filename = logo
   .Height = Hlogo
End With
End If