convertir date type 20120101 en 01/01/2012

[loiclass]

Bonjour,

Grâce à une extraction je récupère une date mais pas au format que je souhaite.

La date récupérée est du type 20120101 (année mois jour), mais je voudrais la convertir en 01/01/2012 (jour/mois/année) sans succès.
J'ai essayé de changer le format, mais ça ne fonctionne pas.

Quelqu'un saurait il m'aider.

Merci.

 

[Tibo]

Re : convertir date type 20120101 en 01/01/2012

Bonsoir,

Voir Menu Données - Convertir - Largeur fixe - Suivant - Suivant - Date : AMJ - Terminer


Par formule :

=TEXTE(A1;"0000-00-00")*1

à mettre au format Date

@+

 

[loiclass]

Re : convertir date type 20120101 en 01/01/2012

Merci,

ça fonctionne avec la méthode ci dessous:

Voir Menu Données - Convertir - Largeur fixe - Suivant - Suivant - Date : AMJ - Terminer

Mais comment tu fais pour automatiser ça avec une macro?

 

[JCGL]

Re : convertir date type 20120101 en 01/01/2012

Bonjour à tous,

Peux-tu essayer ceci associé à un bouton et pour les "dates" en A :

Option Explicit


Sub Convertir()
    With Columns("A:A")
        .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, FieldInfo:=Array(1, 5)
        .NumberFormat = "dd/mm/yyyy"
    End With
    Range("A1").Select
End Sub

A + à tous

 

[loiclass]

Re : convertir date type 20120101 en 01/01/2012

Merci JCGL, ça fonctionne parfaitement.

Une dernière question, avez vous un code vba pour obtenir automatiquement le numéro de semaine (semaine démarrant le lundi) par rapport à une date donnée?
Je ne veux pas passer par la fonction NO.SEMAINE.

Avec une date du type 01/01/2012 est ce qu'il possible de ne garder que l'année 2012?

Merci

 

[JCGL]

Re : convertir date type 20120101 en 01/01/2012

Bonjour à tous,

Une formule pour le Lundi d'une semaine donnée ( an A2, l'année et en B2, la semaine) et en C1 :

=DATE(A2;1;1)+7*B2 -JOURSEM(DATE(A2;1;1)+7*B2;3)

Une date en A3 et pour le Lundi :

=A3-JOURSEM(A3;3)

Une formule pour connaitre le numéro de la semaine suivant une date donnée en A3 :

=ENT(MOD(ENT((A3-2)/7)+3/5;52+5/28))+1

Une fonction proposée par Roger :

Function CurW(D As Date) As Long    ' Roger sur XLD
    CurW = DatePart("WW", D, vbMonday, vbFirstFourDays)
End Function

Avec toujours une date en A3 :

=CurW(A3)

Toujours la date en A3 et pour n'avoir que l'année :

=ANNEE(A3)

A + à tous

 

[loiclass]

Re : convertir date type 20120101 en 01/01/2012

MERCI pour toutes ces infos.