Discussion :

[Mugette]

Bonjour,
Je rapatrie des données de dates provenant d'autres fichiers excel, mais le problème est que lorsque je lui demande de me ramener tous les dates du mois de novembre, il me les ramène sans problème mais lorsque les numéros du jour est inférieur à 12, il me le met en position du mois.

Exemple :

je demande les dates de novembre:
15/11/2005 -->ok
14/11/2005 -->ok
13/11/2005 -->ok
11/10/2005 -->ko
11/10/2005-->ko
---

sachant que j'ai utilisé la fonction mid pour être bien sur qu'il me ramène les bonnes dates, et que les dates du fichier source ne sont pas erroné comme dans le mien

Merci d'avance

[SfJ5Rpw8]

toujours la même question ... tu n'as pas un peu de code à nous montrer...
- sinon des problémes des dates à l'américaine..! il doit y en avoir beaucoup dans le forum...

[Mugette]

Voici mon code mais ca va rien faire de spécial...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  If Mid(Workbooks(nom_fichier1).Worksheets(nom_feuille1).Cells(i + 4, 9).Text, 4, 2) = Userform1.month_box.Value Then
            For n = 1 To 13
                Workbooks(nom_fichier2).Worksheets(nom_feuille2).Cells(j, n).Value = Workbooks(nom_fichier1).Worksheets(nom_feuille1).Cells(i + 4, n).Value
            Next n
            j = j + 1
        End If

mais je vais regarder les autres postes quand même... j'ai pas pensé en fait

[SfJ5Rpw8]

tiens cha-cha avez apparament le même probléme que toi la ... et il à opté pour une solution adoptant le format texte pour la colonne date..

http://www.developpez.net/forums/vie...ight=date+mois

mais il doit y avoir un moyen de transformer une chaîne du type "jj/mm/yyyy" en date ... correcte.. ( dateValue et Cdate nous renvoyant des dates au format US ..) ... peu être une fonction un peu plus ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function CDate2(stDate As String) As Date
 'Faut peu être tester les cas d'erreurs.. ?
 
    CDate2 = DateSerial(Right(stDate, 2), Mid(stDate, 4, 2), Left(stDate, 2))
 
End Functio

[Megaxel]

Oui, le passage par DateSerial( ) me parait de plus en plus THE bonne solution pour ces histoires de dates...