Discussion :

[retraite83]

Bonjour,

j'ai un petit problème que je n'arrive pas à résoudre proprement :

Dans un classeur Excel j'édite un PDF dans lequel il y a un logo image (.jpg) dans le pied de page droit et un autre dans le pied de page gauche, uniquement dans la 1ere page en cochant la case "1ere page différente" dans la gestion des pieds de page Excel.
Pas de problème, cela marche bien.

Suivant le contexte, je veux :
- Effacer ces logos dans une macro
- Pouvoir les remettre dans une autre macro (mes images sont dans la feuille active, je veux donc les remettre par copier coller et non via un chemin complet).

D'après mes recherches je pensai les effacer dans la 1ere macro par :

Code :

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

1
2
3
4
5
cart.Activate
With cart.PageSetup
    .LeftFooter = ""
    .RightFooter = ""
End With

cela ne marche pas.

Ensuite dans la seconde macro je ne trouve pas comment insérer mes images par copier/coller uniquement dans le pied de page de la 1ere page.

Tous mes tests sont sans résultat et je ne trouve pas d'exemple.

Je voudrai au moins résoudre le point 1 (effacement des logos)

[a_diard]

Peut être en remplaçant :

Code :

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

cart.pagesetup

par

Code :

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

ActiveSheet.PageSetup

voire ceci.

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

bonne journee.

[retraite83]

J'ai résolu le premier point (effacer les images) par ce code :

Code :

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

1
2
3
4
With cart.PageSetup
    .FirstPage.LeftFooter.text = ""
    .FirstPage.RightFooter.text = ""
End With