Mettre une image en entete

[claire]

bonjour, je developpe sous vb6 une application qui fait des stats et les envoies sous excel, j'ai besoin de créer des entetes pour mes feuilles avec une image dedans
je desire faire une entete, pour eviter de mettre l'image dans la feuille.
j'ai lu dans ce forum un message de Bernard qui donnait comme fonction :

.LeftHeaderPicture.FileName = ActiveWorkbook.Path & "\" & "bandeau.gif"

mais pour VBA ....

cette fonction n'est pas acceptée, je me retrouve avec une erreur 1004 - "erreur definie par l'objet ou l'application"....

quelqu'un a une idee, je suis sur office 2003

merci a vous

 

[michel]

bonjour Claire

peux tu vérifier que le nom de l'image est bien "bandeau" et que cette image est placée dans le meme repertoire que ton classeur ( puisque tu utilises "ActiveWorkbook.path" )

sinon , ci-dessous un exemple pour insérer une image à gauche dans l'entète de page ( pour la feuille active )


Sub insertionImage_EntetePage()

With ActiveSheet.PageSetup.LeftHeaderPicture
.FileName = _
C:\Documents and Settings\michel\dossier\monImage.jpg 'adapter le chemin et le nom de l'image
.Height = 40 ' redéfinit la largeur de l'image
.Width = 80 ' redéfinit la hauteur de l'image
End With

'Remarque Il est nécessaire que « &G » fasse partie de la chaîne
'de la propriété LeftHeader afin que l'image s'affiche dans l'en-tête gauche
'info issue de l'aide en ligne Excel
ActiveSheet.PageSetup.LeftHeader = "&G"

End Sub


bon après midi
MichelXld

 

[claire]

ben oui, en fin de comte ca marche, j'ai fabriquer la macro sous exel et recoupée avec ton code, mis le tout dans vb6 ,
et : ca marche !

merci !
j'ai bien fait en fait de pas faire le pont !