Discussion :

[liop49]

Bonjour,

J'ai un pb dans ma macro saveas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[liop49]

Super

parfait

cool

merci



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