[...] comment le format date

[brice59]

Bonjour,

J'ai une macro qui extrait du titre du document la date au format 201106

voici la macro que j'utilise pour l'extraire

 txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
    période = Right(txt, Len(ActiveWorkbook.Name) - 24)

on peut peut etre faire plus simple, mais ça fonctionne comme ça

J'ajoute la période identifiée ci-dessus dans une cellule et mon problème est de la convertir en juin 2011.

Dim Ligne As Integer
    'Définition de la variable, ici, dernière ligne de la colonne A
Ligne = Range("B65536").End(xlUp).Row
Range("A2:A" & Ligne) = période

'mise en forme de la colonne A
 Range("A2:A" & Ligne).NumberFormat = ?????

quelqu'un à une idée ?

Merci d'avance

 

[Dranreb]

Re : [...] comment le format date

Bonjour.
Ce n'est pas une histoire de format tout d'abord:
Vous n'affectez pas une date valide à la valeur de votre cellule.
si Période est un string tel qu'affiche une date le format "AAMMJJ"
Essayez:

Cells(Ligne, 1).Value = DateSerial(Left$(Période, 2) + 2000, Mid$(Période, 3, 2), Right$(Période, 2))

Cordialement

 

[brice59]

Re : [...] comment le format date

ça me fait la même chose

Je joins le fichier ça sera plus simple

 

[brice59]

Re : [...] comment le format date

si Période est un string tel qu'affiche une date le format "AAMMJJ"

En fait c'est pas AAMMJJ mais AAAAMM, c'est peut être ça ?

 

[Dranreb]

Re : [...] comment le format date

En fait c'est pas AAMMJJ mais AAAAMM

Alors remplacer

Range("A2:A" & Ligne) = Période

'mise en forme de la colonne A
Cells(Ligne, 1).Value = DateSerial(Left$(Période, 2) + 2000, Mid$(Période, 3, 2), Right$(Période, 2))

Par:

Range("A2:A" & Ligne).Value = DateSerial(Left$(Période, 4), Right$(Période, 2), 1)

Après seulement vous pourrez y mettre le format de date que vous voudrez.
À+

 

[brice59]

Re : [...] comment le format date

effectivement, super merci