Problème de conversion de date

6fichier-1.xlsx (43.74 Ko)
13fichier-2.xlsm (27.07 Ko)

Bonjour,

J'importe une partie des colonnes du fichier 1 vers le fichier 2.

Par contre dans la première colonne du fichier 2 j'aurais voulu convertir le format date de la première colonne du fichier 1 sous la forme

30/01/2020 16:00:28
30/01/2020 16:11:29
31/01/2020 10:12:50
02/02/2020 17:30:51
03/02/2020 00:09:16
03/02/2020 06:31:12
03/02/2020 19:57:52
05/02/2020 13:55:27

en "janvier-20" "février-20" ect.. pour les autres mois

Merci à vous

Bonjour,

Le format à obtenir est de type "mmmm-aa". Donc sous VBA, vous pouvez convertir de la sorte :

Dateàconvertir = Format(Dateàconvertir, "mmmm-yy"). Ou sinon, vous pouvez choisir directement ce format sur excel pour la colonne 1 du fichier 2.

Cordialement,

Bonsoir Esteban,
La première date qui ne fonctionne pas est le 14/01/2020 donc le jour est > 12, signe que la date est au format mm/jj/aaaa.
Dans le code il faut intercepter la colonne de la date et forcer la conversion.

For j = 0 To 7
  If j = 0 Then
    Cells(lgn, liste2(j)).Value = CDate(f1.Cells(i, liste1(j)).Value)
  Else
    Cells(lgn, liste2(j)).Value = f1.Cells(i, liste1(j)).Value
  End If
  'Cells(lgn, 1).NumberFormat = "[$-fr-FR]mmm-yy;@"
Next j

Bonne soirée
Christian

Bonsoir Esteban,
La première date qui ne fonctionne pas est le 14/01/2020 donc le jour est > 12, signe que la date est au format mm/jj/aaaa.
Dans le code il faut intercepter la colonne de la date et forcer la conversion.

For j = 0 To 7
  If j = 0 Then
    Cells(lgn, liste2(j)).Value = CDate(f1.Cells(i, liste1(j)).Value)
  Else
    Cells(lgn, liste2(j)).Value = f1.Cells(i, liste1(j)).Value
  End If
  'Cells(lgn, 1).NumberFormat = "[$-fr-FR]mmm-yy;@"
Next j

Bonne soirée
Christian

Bonjour Christian ( xuard)

Merci pour le code ça fonctionne parfaitement.

Bonne journée

Rechercher des sujets similaires à "probleme conversion date"