Problème de dâtes

[Dessimoz]

Bonjour,
Voici ce que j'ai remarqué et qui me pose un véritable problème.

En utilisant la macro suivante pour "coller" des informations d'une page sur une autre
Workbooks(2).Sheets("reprise").Range("a1:ag70").value = Sheets("situation personnelle").Range("a1:ag70").value

je m'aperçois que les dâtes s'inversents, par exemple :
11.10.1988 devient 10.11.1988
07.07.1990 devient 07.07.1990 (y'a pas de changement là..mais bon !mauvais exemple !)
15.02.1992 devient 2/15/1992 (et devient donc invalidre comme dâte..à moins d'habiter sur Mars)

si vous avez une idée ce serait trop génial.

Par contre, j'utilise cette formule pour éviter de faire ça :
Selection.Copy
' Workbooks(2).Activate
' Sheets("reprise").Select
' Cells.Select
' ActiveSheet.Paste

bien que cela marche sans problème...je veux éviter

salutations

Dess

 

[wilfried_42]

Re : Problème de dâtes

Bonjour Dessimoz

Il est franchement inutile d'aller sur mars pour trouver une date en format anglais.

Ton workbooks(2) doit etre parametré dans ce format....... le copier coller que tu utilises pour parer à cet inconvenient fonctionne puisqu'il copie aussi les formats en plus des valeurs

Verifie tes formats de date sur workbooks(2) sinon voici un copier coller sans selection, ni mouvement d'écran

Sheets("situation personnelle").Range("a1:ag70").copy destination:=Workbooks(2).Sheets("reprise").Range("a1")

 

[Dessimoz]

Re : Problème de dâtes

Magnifique,

Merci l'ami. cette nouvelle ligne fonctionne à la perfectionne.


Quand à ma boutade sur mars, c'était simplement que sur mars il y aurait sans problème 15 mois....

salutations.

Dessimoz