Discussion :

[zangaloni]

Bonjour,

J'importe un tableau de données d'un classeur fermé à un classeur ouvert.
Ceci à travers l'ouverture ( en code vba) du classeur fermé, et collage du tableau souhaité sur le classeur ouvert.
Tout se passe bien, sauf que dernièrement , j'ai remarqué que pour certaines dates le mois et le jour sont inversé, pour d'autres non.

J'ajoute comme information que le fichier fermé est en format 2003 et celui de destination est 2007 ou 2010.

Une idée de solution ?

[BlueMonkey]

Bonjour,

Essayer de forcer le format de la date au moment de l'insertion.
Format(<la cellule contenant une date>, "dd/mm/yy")Sinon après la relecture, passer un code testant le format de date pour le
transformer au format français :

Code :

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

1
2
3
4
5
6
7
8
9
Dim r as range
Dim maDate as Date
For each r in UsedRange
   If r.NumberFormat = "mm/dd/yyyy" Then
        maDate = r.Value
       r.NumberFormat = "dd/mm/yyyy"
       r.Value = CDate(Month(maDate) & "/" & Day(maDate) & "/" & Year(maDate)) 
   End If
Next r

[zangaloni]

Rebonjour,
Merci pour votre aide,
j'ai essayé les deux, mais sans résultat.

Je met en pièce jointe le fichier source apparemment le format des cellules est bizarre.Pièce jointe 90432

[BlueMonkey]

Re.

Essayez de convertir la chaîne en date à la lecture :

Code :

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

1
2
3
4
5
6
7
8
9
 
  With <cellule destination>
           If IsDate(<cellule source>.Value) Then
                .NumberFormat = "dd/mm/yyyy"
                .Value = CDate(<cellule source>.Value)
            Else
                .Value = <cellule source>.Value
            End If
  End With

[zangaloni]

ça marche.
merci beaucoup

[BlueMonkey]

Content de voir que ça fonctionne .
Bonne soirée.