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

Fermé
lolosecu - 24 avril 2011 à 23:52
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 25 avril 2011 à 08:24
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
Modifié par lami20j le 25/04/2011 à 00:33
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 dimanche 24 avril 2011 Statut Membre Dernière intervention 25 avril 2011
25 avril 2011 à 07:14
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
25 avril 2011 à 08:24
Salut,

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

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