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

lolosecu -  
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
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


A voir également:

3 réponses

Réponse 1 / 3
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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
0
Réponse 2 / 3
lolosecu Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
Réponse 3 / 3
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Essaie comme ça (je n'ai pas testé) 

entetegauche = Active.PageSetup.LeftHeader
Replace(entetegauche, "'lemoiss'", "'AVRIL'")
Active.PageSetup.LeftHeader = entetegauche
0