[Excel 2007] Copier en tête d'une feuille Excel

Bonjour,

J'ai un petit soucis et je demande à votre âme charitable de m'aider =)

Voici mon soucis, je souhaite copier l'en tête de ma sheet vers une notre sheet.

Le problème est que je vu comment le faire avec des String mais je ne trouve pas la façon de le faire avec un logo (image) :

Voici le code pour la copie de l'entête/pied page :

Sub CopyHeadersFooters() 
    Dim lh As String, ch As String, rh As String 
    Dim lf As String, cf As String, rf As String 
    Dim w As Worksheet, wb As Workbook 
    With ThisWorkbook.Sheets(1).PageSetup 
        lh = .LeftHeader 
        ch = .CenterHeader 
        rh = .RightHeader 
        lf = .LeftFooter 
        cf = .CenterFooter 
        rf = .RightFooter 
    End With 
    For Each wb In Workbooks 
        If Not wb Is ThisWorkbook Then 
            For Each w In wb.Worksheets 
                With w.PageSetup 
                    .LeftHeader = lh 
                    .CenterHeader = ch 
                    .RightHeader = rh 
                    .LeftFooter = lf 
                    .CenterFooter = cf 
                    .RightFooter = rf 
                End With 
            Next w 
        End If 
    Next wb 
End Sub 

Si vous avez une idée =)

Amicalement

Poum

C'est bon j'ai trouvé, je crée une sheet et je crée en même temps mon header

Bonjour Poumchimie,

Bonjour à tous,

Poumchimie, je travaille sur un fichier qui aurait bien besoin de la solution que tu as trouver pour ce soucis.

N'étant pas très calé en VBA,

C'est bon j'ai trouvé, je crée une sheet et je crée en même temps mon header

Si tu passes encore par là, pourrais-tu développer un peu ? Ou une autre bonne âme ?

Je cherche initialement à copier une image présente sur une feuille dans une entête, mais je peux biaiser en copiant une entête d'une sheet (avec image) sur une autre feuille...

J'ai ouvert un post sur le sujet :

https://forum.excel-pratique.com/excel/copier-une-image-dans-l-entete-via-vba-t38300.html

Merci par avance,

Cordialement,