Discussion :

[Vincent32]

Bonjour à tous,

Suite à ce tutoriel j'ai réalisé des en-têtes et pied de pages :

http://fring.developpez.com/vba/excel/entetepiedpage/

Je voudrais des précisions pour améliorer mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 'En tête et pied de page des feuilles
    For x = 1 To Sheets.Count
        With Sheets(x).PageSetup
            .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A"    'nom échantillon, nom de la feuille en arial gras 12
            .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)"
            If Com <> "" Then                 'Si pas de commentaire alors pied de page vide
                .LeftFooter = "&10&B&""Arial""" & "Commentaire :&B " & Com
            Else
                .LeftFooter = ""
            End If
        End With
    Next x

Est il possible d'attribuer de la couleur à une partie seulement de l'en tête ?

Pour insérer une image (dont le chemin peut bouger) Comment faire ? (est-il possible de lier directement l'image au classeur excel, si oui comment ?

Merci de votre aide.

[Daniel.C]

Bonjour,

L'enregistreur de de macros donne :

Code :

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

.LeftHeader = "test &KFFFF00testjaune"

Le premier "test" étant en noir et le second en jaune, "&KFFFF00"correspond à la couleur. Je n'ai pas réussi à faire un lien entre le code couleur et les codes couleur "normaux". Aussi, fais comme moi et sers-toi de l'enregistreur de macros pour récupérer ce code.

[Vincent32]

Bonjour merci pour l'aide, je tiens au courant si ça fonctionne.

En attendant voici ce que j'ai pu trouver sur le net par rapport aux codes couleurs :

http://fr.wikipedia.org/wiki/Aide:Couleurs

Encore merci.

sinon des idées pour intégrer l'image au classeur Excel ?

Bon ça semble ne pas fonctionner sous excel 2003. Sous 2007 ou 2010 il est possible que ça fonctionne.

[Daniel.C]

Juste, ça ne paraît pas possible avec XL2003.

[78chris]

Bonjour

La couleur en en-tête et pied n'est (enfin !) apparu qu'avec 2007...

Concernant l'image je n'ai pas compris la question : qu'entends-tu par "lier directement l'image au classeur excel"

[Vincent32]

Merci pour l'info de la couleur.

En fait je souhaiterais insérer le logo de mon entreprise dans l'en-tête à droite. J'ai lu le tuto de Fring : http://fring.developpez.com/vba/excel/entetepiedpage/

qui propose d'insérer une telle image à condition que l'image soit placée à un endroit défini dont on connait le chemin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub insertionImage_EntetePage()
 
With ActiveSheet.PageSetup.LeftHeaderPicture
    .Filename = "C:\Documents and Settings\Moi\Dossier\Temp\Image.jpg"
    .Height = 40 '<-- redéfinit la largeur de l'image
    .Width = 80 '<-- redéfinit la hauteur de l'image
End With
 
ActiveSheet.PageSetup.LeftHeader = "&G" '<-- ajout du code &G
 
End Sub

Cependant ma macro doit être installée sur plusieurs postes informatique qui n'ont pas forcément le logo de l'entreprise stockée selon le même chemin (soit pas du tout l'image du logo).

C'est pourquoi je souhaiterais insérer l'image de manière "définitive" un peu comme dans un document word où lorsque l'on colle l'image, elle est accessible même si initialement cette image n'était pas sur le poste informatique.

J'espère avoir été un peu plus clair.

En tout cas merci à tous pour votre aide.