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 😉