Saveas avec une date

Bonjour,

J'ai un pb dans ma macro saveas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets("Feuil1").Select Range("D1").Select rep = ActiveCell.Value   Range("G5").Select Date = ActiveCell.Value   fichier = ("Bordereau de visites_" & rep & "_" & Date)   Path = "c:\bordereau de visites\" ActiveWorkbook.SaveAs Filename:=Path & fichier

---

Le truc c'est que ma date de la cellule G5 est sous le format jj/mm/aa et lors du saveas il y a un bug sur le /

Je voudrais passer le / en -

Qq1 peut m'aider ?


Liop

Bonjour,
Voici une solution, il y a peut-être mieux mais je crois que ca va répondre à ton besoin.
Je me suis permis d'enlever les "select" des cellules dans ton code, tu verras qu'ils sont inutiles et que donc ton code sera plus clair.

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("Feuil1").Select   rep = range("d1").Value Date = Day(Range("g5")) & "-" & Month(Range("g5")) & "-" & Year(Range("g5"))   fichier = ("Bordereau de visites_" & rep & "_" & Date)   Path = "c:\bordereau de visites\" ActiveWorkbook.SaveAs Filename:=Path & fichier

---

Il ne te reste plus qu'à tester...

Bonne continuation.

Super

parfait

cool

merci

:D

J'ai juste mis jour au lieu de date dans la variable car çà changait la date de mon PC sinon