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.