format DATE

[akramenergie]

Bonjour mes amis
dans ma macro j'importe des DATE d'excel vers un autre et a la fin les date son copié sous la forme suivant : 02/04/2010 18:00:00
mois ce que je veux c la date mais sans les heures cad 02/04/2010 tou court

comment faire???

voila l apartie du code qui traite ce probléme:

val3 = Sheets("Feuil2").Cells(i + 4, k + 1).Value
Sheets("11_Matrice livrables").Cells(i + 4, k + 1).Value = CDate(val3)

 

[Ubot303]

Re : format DATE

Bonjour,

une idée serait d'utiliser la fonction =Jour() d'Excel qui te renvoie uniquement les jours d'un format date
Comme tu dois le passer en macro, pourquoi ne pas créer une colonne avec cette formule avant de faire ton import...

 

[tototiti2008]

Re : format DATE

Bonjour akramenergie,

peut-être :

Sheets("11_Matrice livrables").Cells(i + 4, k + 1).Value = CDate(Int(val3))

 

[Ubot303]

Re : format DATE

Voire recomposer les jours avec un

CDate(Day(val3) & "/" & Month(val3) & "/" & Year(val3))

 

[akramenergie]

Re : format DATE

ca fonctione a mérveille merci pour votre aide

 

[Ubot303]

Re : format DATE

Pourrais-tu nous dire quelle solution a fonctionné?
Parce que je ne suis pas sur de mon coup