Date anglaise dans cellule formatée jj/mm/aaaa hh:mm

Bonjour,

Je travaille actuellement sur des bases de données avec des dates anglaises.

A l'importation j'obtiens les dates suivantes:

05/03/2012 18:03 => Les cellules dans lesquelles se trouvent ce type de dates sont au format jj/mm/aaaa hh:mm

05/28/2012 18:56:49 => Les cellules dans lesquelles se trouvent ce type de dates sont au format standard.

Ce que je souhaite faire c'est convertir ces deux types de dates en dates Françaises dans une autre colonne pour en sortir le numéro de semaine mais je n'y arrive pas.

05/03/2012 18:03 à convertir en 03/05/2012 18:03

05/28/2012 18:56:49 à convertir en 28/05/2012 18:56:49

Merci pour votre aide.

Bonjour

Il te suffit de selectionner les cellules,

Dans le bandeau en Haut, données, convertir, suivant suivant, format des données en colonnes, cliquer sur date et mettre MJA

Oui j'y ai pensé aussi mais ça ne fonctionne pas non plus. Rien ne se passe.

Bonjour

Peut tu nous mettre quelques dates sur un fichier?

Voilà le fichier joint.

Un petit up ?

Bonsoir

il me semble que ça fonctionne que si nous avons la date mais pas la date et l'heure, je pense qu'il faudrait un coup de main avec un spécialiste des macros!!! ( ce qui n'est pas mon cas)

ou tu peux éventuelement séparer ta date et ton heure

Bonsoir,

Regarde si ça correspond à ce que tu recherches (avec les fonctions IsDate et DateSerial) :

Sub convert_test()
    For i = 1 To 10
        cellule = Cells(i, 5)
        If IsDate(cellule) And VarType(cellule) = 7 Then cellule = DateSerial(Year(cellule), Day(cellule), Month(cellule))
        If IsDate(cellule) Then Cells(i, 6) = CDate(cellule)
    Next
End Sub

Cordialement,

bonjour

j'avais lu qque part que pour que cela marche avec convertir il faut que la conversion soit renvoyée dans une autre cellule

cordialement

Merci ça correspond presque à ce que je recherche juste qu'il faut encore que l'heure soit également affichée.

Désolé pour avoir up le topic mais je suis coincé là dessus depuis maintenant 1 journée d'ou mon post car j'ai environ 190 000 lignes à convertir.

A tester :

Sub convert_test()
    Application.ScreenUpdating = False
    For i = 1 To 10
        cellule = Cells(i, 5)
        If IsDate(cellule) And VarType(cellule) = 7 Then cellule = DateSerial(Year(cellule), Day(cellule), Month(cellule)) + TimeSerial(Hour(cellule), Minute(cellule), 0)
        If IsDate(cellule) Then Cells(i, 6) = CDate(cellule)
    Next
End Sub

Super c'est exactement ça !

Un grand merci pour l'aide.