Changer format de date

[nancy1987]

Bonjour,

Je sors via un outil un fichier excel dont les dates sont dans le format suivant - m/jj/aaaa (ex. 6/18/2012). J'ai essayé de les convertir via "format de cellule" mais excel ne reconnait pas que c'est une date. La fonction convertir ne marche pas non plus.

Des solutions pour obtenir un format français - jj/mm/aaaa qui sera lu par excel? Le but après c'est de faire une macro qui nomme l'onglet dont se trouve la date avec mmjjaa (ex. 180612)?

Merci

 

[Vilain]

Re : Changer format de date

Bonjour et bienvenue,

Tu n'as qu'a faire un copier/collage spécial multiplication par 1 puis retenter de changer le format.
Cela convient-il ?

A plus

 

[nancy1987]

Re : Changer format de date

Bonjour Gillus69,

Malheureusement, cela ne marche pas... la date reste sans changement....

 

[hoerwind]

Re : Changer format de date

Bonjour et bienvenue sur le forum,

Sélectionner la plage de dates à convertir
Menu Données - Convertir - Suivant - Suivant - cocher "Dates" (en haut à droite) - choisir "MJA" - Terminer.

 

[KenDev]

Re : Changer format de date

Bonjour Nancy, Gillus,

Dans le cadre de la macro à venir, une fonction :

Function Ncy$(t$)
    Dim Tb$(), i%
    Tb = Split(t, "/")
    For i = 0 To 1
        If Len(Tb(i)) = 1 Then Tb(i) = "0" & Tb(i)
    Next i
    Ncy = Tb(1) & Tb(0) & Tb(2)
End Function

Cordialement

KD

 

[nancy1987]

Re : Changer format de date

Merci hoerwind!

Cela a marché! 🙂

Mais là j'ai un autre souci. J'obtiens 15/06/2012, mais je dois arriver à un format final de 15062012 (jjmmaaaa). Si j'utilise format de cellule personnalisée, dans la formule en haut les slashs sont toujours présents ce qui m’empêche de renommer la feuille avec cette date ( ce qui est le but final)(les caractères spéciaux étant interdits quand on renomme une feuille) . Si je fais convertir encore une fois en texte et ensuite ctrl+F remplacer slash par rien (j'enregistre tout cela pour ma macro) la date revient au mjjaaaa.

Des idées?

 

[nancy1987]

Re : Changer format de date

Bonjour,

Merci beaucoup pour cette fonction!

Ca marche 🙂)))))

Bonjour Nancy, Gillus,

Dans le cadre de la macro à venir, une fonction :

Function Ncy$(t$)
    Dim Tb$(), i%
    Tb = Split(t, "/")
    For i = 0 To 1
        If Len(Tb(i)) = 1 Then Tb(i) = "0" & Tb(i)
    Next i
    Ncy = Tb(1) & Tb(0) & Tb(2)
End Function

Cordialement

KD