Via de datumnotitie opslaan

[BasMan]

Hallo,

Elke dag wordt er een nieuwe dagrapport aangemaakt de gebruikers hiervan moeten zelf aangeven, via een userform, in welke maand deze rapportage gesaved moet worden. Kan dit niet eenvoudiger. Bijvoorbeeld: 2 februari 2004. Dat het programma dat automatisch opslaat in het directory Februari.

Kan dit?

Basman

 

[Ingrid B]

Met een dergelijke macro zou dat moeten lukken:

Sub opslaan()
  ActiveWorkbook.SaveAs Filename:="C:\...\" & _
    Format(Date, "MMMM") & "\naam.xls"
End Sub

 

[BasMan]

Dit heb ik al

Hallo Ingrid

Range("D4").Select
Bestand = ActiveCell.Text
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\Noodmap \Dagrapporten\Januari\" & Bestand, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

In D4 staat bijvoorbeeld 4 januari 2004. En via deze informatie moet de computer weten, als het kan, dat dit bestandje in het mapje januari moet worden opgeslagen.

BasMan

 

[Ingrid B]

Dan vervang je Date door Range("D4").

 

[BasMan]

D4

Maar als in D4 bijvoorbeeld 2 februari 2004 staat dan moet dit in het mapje Februari worden opgeslagen.

 

[Ingrid B]

De twee codes gecombineerd:

ActiveWorkbook.SaveAs Filename:="C:\Noodmap \Dagrapporten\" & Format(Range("D4"), "MMMM") & "\" & Bestand, ...

 

[BasMan]

Kan het bestand niet vinden

Hallo Ingrid,

Range("D4").Select
Bestand = ActiveCell.Text
ActiveWorkbook.SaveAs Filename:="C:\Noodmap \Dagrapporten\" & Format(Range("D4"), "MMMM") & " \" & Bestand, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Als ik bovenstaande invoer dan zegt de computer dat hij bestandje Februari niet kan vinden.

BasMan

 

[Ingrid B]

Bestaat de map Februari? Want de methode SaveAs kan geen map aanmaken.

 

[BasMan]

Map

De map bestaat wel. De computer geeft een fout aan iets in de trend van dat hij het bestandje februari niet kan vinden.

BasMan

 

[Withaar]

Haal in ieder geval eens alle spaties uit je code.
Na Noodmap staat er één en ook in het stukje direct na ...MMM") & "x\" (op de plek van de x dus).

 

[BasMan]

?

Hallo,

Als ik de spaties er tussen weg haal dan werkt het ook niet.

 

[BasMan]

Het werkt dus wel!

Iedereen bedankt voor de moeite!!

Het werkt dus wel.....

Ik had de directory verkeerd er in gezet.

Mvg

BasMan