VBA excel: remplacer mot dans en en tête page

Question

Bonjour, 

Je cherche a remplacer  dans un en tête déjà écrit un mot par un autre  avec le langage VBA

Ex de texte dans en tête de page gauche : "Mois de dépense: lemoiss". Dans un autre fichier j'aurais : "Periode concernée: lemoiss"

Je voudrais remplacer chaque fois  "lemoiss" par "AVRIL".

J'ai essayé: 


With ActiveSheet.PageSetup
    'en-tête de page
   
    
    LeftHeader = Replace(LeftHeader, "'lemoiss'", "'AVRIL'")

Mais ça marche pas.



Merci à ceux et celles qui me répondront.
Laurent


Configuration: Windows Vista / Firefox 3.6.16

lami20j · Answer

Re, 

En fait il suffit d'affecter la chaîne à LeftHeader 

Active.PageSetup.LeftHeader = "Mois de dépense: AVRIL"

GNU/Linux:Linux is Not Ubuntu! Quel linux choisir ne veut pas dire votre Distribution préférée, 
                                                          106485010510997108

lolosecu · Answer

Bonjour,
Merci pour la réponse mais le problème est que je veux lancer une seule macro qui va traiter  une trentaine de fichier qui ont des en-tetes différents. (cf ex ci-dessus)
Mais le pont commun est le mois car ce sont des fichiers mensuels.
La macro ne fait pas que ça, mais je bloque bêtement sur cette partie là.

Il me faudrait idealement remplacer dans les trois en-tetes (gauche , milieu, droit) un mot comme "lemoiss" par exemple par le mot que je veux comme "AVRIL" par exemple.
J'ai essayé avec REPLACE mais ça marche pas. Je l'ai peut etre mal ecrit.

Merci pour vos réponses.

lami20j · Answer

Salut,

Essaie comme ça (je n'ai pas testé)

entetegauche = Active.PageSetup.LeftHeader
Replace(entetegauche, "'lemoiss'", "'AVRIL'")
Active.PageSetup.LeftHeader = entetegauche

VBA excel: remplacer mot dans en en tête page

3 réponses

Newsletters