Concatener une Date

[trentounet]

Bonjour le Forum,

Je souhaite creer une macro pour concatener une date.

Cells(i, 9) = Cells(i, 17).Value & "/" & Cells(i, 18).Value & "/" & Cells(i, 19).Value

Mon problème: la formule marche mais pour les cellules 08 01 2008 le resulat me revoie une date américaine (et donc inversée) 01/08/2008.

Il y a t il une astuce pour éviter l'inversion ??

Merci!

 

[pierrejean]

Re : Concatener une Date

bonjour trentounet

teste:

Cells(i, 9) =[COLOR=red]Cdate([/COLOR] Cells(i, 17).Value & "/" & Cells(i, 18).Value & "/" & Cells(i, 19).Value[COLOR=red])[/COLOR]

 

[myDearFriend!]

Re : Concatener une Date

Bonjour trentounet, le Forum,

Tu peux essayer comme ça :

Cells(i, 9) = [COLOR=NAVY][B]CDate[/B][/COLOR][B]([/B]Cells(i, 17).Value & "/" & Cells(i, 18).Value & "/" & Cells(i, 19).Value[B])[/B]

Cordialement,

EDITION :
Arf, pardon pierrejean et salutations... Je n'avais pas vu ta réponse.

 

[pierrejean]

Re : Concatener une Date

@ Didier

Tu es d'autant plus pardonné que ma reponse ressemble à la tienne (lol)

Amicalement

Pierre

 

[myDearFriend!]

Re : Concatener une Date

C'est même carrément la même !

 

[trentounet]

Re : Concatener une Date

Merci pour vos réponses,

Toutefois cela ne marche toujours pas...

En fait voilà la manip complète:

J'importe un fichier au format txt. Dans ce fichier il y a des dates au format 26.03.2008.
Pour ensuite faire des calculs sur ces dates je dois les convertir au format 26/03/2008.

Lorsque je fais une conversion simple remplacer "." par "/" directement dans la feuille de calcul => pas de pb ça marche.
Lorsque je crée une macro pour faire la même manip => il me change le format pour tous les jours inférieur à 13...

C'est pourquoi j'ai décidé d'extraire la date en 3 colonnes puis de la concaténer en 1 (bizarre non ?). ET LA CA MARCHE TOUJOURS PAS

D'autres idées ?

Merci bien...

 

[skoobi]

Re : Concatener une Date

Bonsoir trentounet, mDF, pierrejeab ,

essaye ceci (sans convertir au format xx/xx/xxxx auparavant):

Cells(i, 9).value=cdate(replace(Cells(i, 9).value,".","/"))

 

[Cousinhub]

Re : Concatener une Date

Bonsoir,
pour convertir, passe par la fonction Données/Convertir, Etape 1 : Largeur Fixe, Etape 2 : Suivant, Etape 3 : choisir Date (JMA)

 

[pierrejean]

Re : Concatener une Date

Re
Salut Skoobi
Salut bhbh

Chez moi cette macro fonctionne pour passer de 10.08.2008 a la date 10/08/2008

Sub modif()
Range("B1") = CDate(Replace(Range("A1"), ".", "/"))
End Sub

 

[trentounet]

Re : Concatener une Date

Merci !!

Ca marche impecable !!

A bientot