Date et copie

[Paladin]

Bonjour le forum,

J'ai un petit souci lié aux dates ...
J'ai un fichier sur lequel je copie (manuellement ...) des données venant d'un autre fichier.
Certaines des cellules de mon fichier destination sont au format date ('JJ/MM/AAAA'). Le problème, c'est que les donnée d'origine sont au format 'JJ/MM/AAAA HH:MM:SS'. Donc quand je copie, le format des cellules de destination change.

Ben il est où le problème vous allez me dire ? :whistle:

En fait, dans mon fichier de destination, j'ai une macro qui doit faire des différences de date (date1-date2 par exemple). Or, avec mon format d'origine ça marchait, mais plus avec le 'nouveau' ! (erreur : type incompatible).
Quelqu'un aurait-il une petite solution ?

PS : Je joindrai bien un fichier, mais la méthode même du fichier est confidentielle, donc je peux pas ... dsl ... :unsure:

 

[PascalXLD]

Bonjour

Dans ta macro compare les dates de cette manière

format(Date1,'dd/mm/yyyy') par rapport à
format(Date2,'dd/mm/yyyy')

Bon courage

 

[Paladin]

Re Pascal,

Merci d'avoir répondu si vite.
J'ai fait comme tu m'as dit, mais ça ne marche pas (toujours cette même erreur de type incompatible) :

Private Sub CommandButton1_Click()
    Date1 = Cells(1, 1).Value
    Date2 = Cells(1, 2).Value
    DateRef = Format(Date1, 'dd/mm/yyyy')
    DateInf = Format(Date2, 'dd/mm/yyyy')
    Cells(3, 1).Value = DateRef - DateInf
End Sub

Et je ne vois pas d'où ça vient ...

 

[Bernard_XLD]

Bonjour

ta valeur ne doit pas être une date mais une chaine texte, essaye cela (pas besoin de date1)

Cordialement, A+

DateRef = DateValue(Cells(1, 1).Value)
DateInf = DateValue(Cells(1, 2).Value)
Cells(3, 1).Value = DateValue(DateRef) - DateValue(DateInf)

Message édité par: yeahou, à: 04/08/2005 17:42

 

[ChTi160]

Salut Paladin

bonsoir le Fil
bonsoir le Forum

une autre version en transformant la Date en sont Numero et en les soutrayant

Private Sub Compte()
DateRef = Format(Cells(1, 1).Value, '00000')
DateInf = Format(Cells(1, 2).Value, '00000')
Cells(3, 1).Value = DateRef - DateInf
End Sub

Bonne Soirée

 

[Paladin]

Re Yeahou, re Chti160,

Merci pour vos réponses. Je vais tester ça de suite (Excel et Internet sont sur deux ordis différents à mon boulot ... :unsure: ).

Paladin