Remplacer des dates lors d'exportation sous un ft Excel

bonjour à tous,

A partir d'un logiciel de planification de production j'exporte au format Excel un fichier qui comprends des dates. j'ai 3 mois qui pose un problème février, août et décembre

exemple:

Est Comp Dt

03-fév 14:36

05-fév 00:19

05-fév 05:57

05-fév 13:31

05-fév 22:37

je voudrai une macro qui exécute un remplacement de fév par 02 et aoû par 08 et déc par 12

genre si dessous:

if "=MONTH(TODAY())" = "2"

Columns("M:M").Select

Selection.Replace What:="fév", Replacement:="02", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

merci d'avance pour votre aide

Philippe

Bonjour,

une proposition

sub repmois()
Columns("M:M").Replace What:="fév", Replacement:="02", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("M:M").Replace What:="aoû", Replacement:="08", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("M:M").Replace What:="dec", Replacement:="12", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end sub

Bonjour,

Merci de joindre un fichier à ta demande car tes explications ne sont pas claires.

Tes dates sont des dates ou des chaînes de caractères (du texte)?

Cdlt.

bonjour

je viens de faire un essai, le remplacement ce fait bien mais je me retrouve avec une date moi/jour/année au lieu de jour/mois/année

ci-joint le fichier.

merci encore de votre aide.

cordialement

philippe