convertir texte en date (EXcel VB)

[jb]

Bonjour,

Je bloque sur un point dans du VB Excel :
J'ouvre un certain nombre de fichiers txt contenant des dates. Je copie ces données dans un fichier XL et la macro contient également le formatage des dates (du type jj/mm/aaaa). Or les dates ne sont pas reconnues.

Cependant, lorsque je réalise cette manip sans passer par la macro mais en la faisant directement dans XL, cela fonctionne.

Avez-vous une astuce pour résoudre ce blocage ?

Merci d'avance pour vos réponses !
et bonne journée
Jean-Baptiste.

 

[PascalXLD]

Bonjour

lorsque tu passes par l'enregistreur de macro pour ouvrir ton fichier txt tu mets bien tes colonnes ou il y a des dates au bon format ou tu laisses standard ??

 

[Creepy]

Bonjour,

dans ton code essaie de mettre ca pour envoyer directement à la cellule le bon format date.

dede = format(CDate(dede),' jj/mm/aaaa')

@+

Creepy

 

[jb]

Pascal,

J'ouvre le fichier txt au format texte pour les dates car si je le l'ouvre au format date XL ne reconnait par correctement les dates, et inverse les mois et les jours. JB.

 

[jb]

Creepy,

J'ai essayé en vain ; à moins que je l'ai mal utilisée ? Je l'ai associée à NumberFormat. Faut-il faire autrement ?

Merci. JB.

 

[PascalXLD]

Re

QUand tu choisis ton format en pricipe tu peux lui indiquer pour ta colonne que c'est un format date et choisir ton format dma

 

[jb]

Re pour Pascal

Oui, mais cela ne fonctionne pas non plus !!!

 

[PascalXLD]

Re

alors là bizarre

J'avais le même problème que toi et cette manip me l'avait resolu.

Donc si je comprends bien aujourd'hui tu as tes dates mais au format texte.

Il suffirait peut-être ensuite pour toute ta colonne de faire une boucle du style

for x = 2 to range('A65536').end(xlup).row
cells(x,tacolonne)=cdate(cells(x,tacolonne))
next x

Bon courage

Message édité par: Pascal76, à: 10/02/2006 11:36

 

[jb]

Re:

Merci Pascal. Cela a fonctionné pour 1 cellule, mais cela plante pour la colonne entière. Mais je pense que c'est une bonne piste.

Merci beaucoup. JB.

 

[PascalXLD]

re

peux-tu avoir des cellules sans date ??

si oui il faudrait faire un test avant

 

[jb]

oui effectivement j'en ai et cela met par défaut 00/01/1900. Tu crois qu'il faut rajouter un test de cellule du type si cellule vide alors passer ?

 

[PascalXLD]

Re

oui du style

for x = 2 to range('A65536').end(xlup).row
if cells(x,tacolonne) sigle différent '' then cells(x,tacolonne)=cdate(cells(x,tacolonne))
next x