Re : Extraire des Chiffres depuis une date
Après plusieurs essais, j'arrive à obtenir un résultat très approchant.
Je cherche un peu la ''petite bête'' c'est vrai...
Je remarque donc quelques erreurs qui me semblent anormales
Je m'explique :
Pour information, mes données commencent à la ligne 52
la ligne 112 m'a posé problème ainsi qu'après
J'ai procédé de cette façon :
Je sélectionne Mes cellules de B5 à B20000 (de la Feuil1)
Ensuite je vais dans l'onglet ''Données'' puis sur la fonction ''Convertir''
Dans l'assistant de Conversion (étape 1), je sélectionne ''Délimité'' puis je clique suivant
Dans l'assistant de Conversion (étape 2), je coche le séparateur ''autre'' puis j'ajoute ''/'' puis suivant
Dans l'assistant de Conversion (étape 3), Je sélectionne le format des données en ''date''
puis je modifie la destination ($B$5 devient $C$5)
puis Terminer
Jusque la, le résultat obtenu me convient parfaitement.
Mais (et oui, il y a un mais)
Quand je crée une Macro de cette manipulation (et oui, mon objectif est de gagner du temps),
le résultat est différent...
Voici le code que j'utilise :
------------------------------------------------------
Sub B13_Macro()
'
Sheets("Feuil1").Select
Range("B5:B20000").Select
Selection.TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
End Sub
------------------------------------------------------
Le résultat n'est pas bon par exemple en ligne 52
C52 devrait m'afficher 2 et D52 devrait m'afficher 1 (puisque B52 = 02/01/2013)
Il existe d'autres erreurs également sur certaine ligne
Quelqu'un aurait une solution SVP ?
D'avance merci
Ci-joint, mon fichier avec les données (non confidentielles je précise puisque ce ne sont que des dates)