Pb format Date

Bonjour,

Je copie des dates au format « 01-avr » dans un fichier excel et colle dans un autre fichier excel ces dates.
Je désire obtenir ces dates au format : « 01/04/2008 »
Je défini donc pour ces cellules un format de cellule Date Type : *14/03/2001
Pour obtenir le format désiré (14/01/2001) il me faut double cliquer sur chaque cellule concernée !.....:cry:

J’ai essayé d’automatiser ce double clic par :

Code:

---

1 2 3 4 5 6 7 8

Sub ValidFormat() Range("A2").Select Do While ActiveCell.Value <> "" ActiveCell.Offset(0, 0).Select ActiveCell.FormulaR1C1 = ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop End Sub

---

Cela ne fonctionne pas …Help!!!
Jojo

Salut Jojo31 et le forum

Code:

---

1 2 3

Sub ValidFormat() Range([A2], [A65536].End(xlUp)).NumberFormat = "dd/mm/yyyy" End Sub

---

A+