save active workbook ??

[grema]

Goede morgen ,


Zoek m'n werkboek te saven .

Als je wil saven op C schijf dan geef je via VBA : " ActiveWorkbook.Save " in.

Als je nu wil saven of bureau blad

vb : " ActiveWorkbook.Saveocuments & Settings \ MARK \ Bureeaublad \ WBSANITIAR "


dan krijg ik een foutmelding .

Hoe los ik dit op ???


dank voor de medewerking

grema

 

[WinteE]

Probeer dit eens :

ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\Mark\Bureaublad\Bestand.xls"

Erik

 

[richard1970]

en mocht dat pad niet kloppen, neem dan eens met de macrorecorder op wat er gebeurt als je iets op het bureaublad opslaat?
Het bureaublad is niets anders dan een map.

Richard

 

[grema]

Erik


Deze doet het ; maar kunnen we 1 stap verder gaan.

hiermee bedoel ik :
jou code maar dan Bestand.xls aanvullen of vervangen

door de naam die in cell KOLOM 3 LIJN 7 voorkomt

Hiermee sla ik dan elek blad dat ik gebruik op, daar ik gebruik maak van een basis bestand lijkt me dit makkelijker.

grema

 

[WinteE]

ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\Mark\Bureaublad\" & Range("C7").Value & ".xls"

Nu wordt de naam van het bestand uit cel C7 genomen. Dus geen extensie aan de naam in C7.

Erik

 

[Wigi]

ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\Mark\Bureaublad\" & Range("C7") & ".xls"

Wigi

 

[grema]

Eric , Richard & Wigi

ben er uit geraakt .:thumb::thumb::thumb:

Heb dan toch maar macro- recorder laten draaien en de aanpassingen doorgevoerd die Eric en Wigi aangaven.

Alvast dank voor de hulp.

Sorry voor het late antwoord. Moest even dringend weg.


Groet

grema

 

[grema]

nog een laatste vraag ;

kan ikde datum die in de cel ("G4") vermeld staat mee opnenemen in de onderstaande code; waarbij deze datum dan naast de naam moet komen te staan bij het opslaan.

 ActiveWindow.SmallScroll Down:=0
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\MARK\Bureaublad\WB SANITAIR\" & Range("C7") & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

probeerde reeds veel combinaties maar geraak hier niet uit.

Range C7 = gegevens van persoon. vb : jan
Range G4 = datum : 30/09/2007


Dusals ik wil nu bijvoorbeeld wil opslaan als : = jan30092007

Wat moet dit dan worden in bovenstaande code ???

 

[WinteE]

Probeer dit eens :

... SANITAIR\" & Range("C7") & " " & Range("G4") & ".xls"

Erik

 

[Wigi]

Gebruik wel de Format functie rond G4.

Denk eraan dat de / uit datums niet gewenst is in een bestandsnaam

Wigi

 

[grema]

wigi en erik

indien ik de datum toevoeg uit cel G4:

... SANITAIR\" & Range("C7") & " " & Range("G4") & ".xls"

zoals je aangeeft dan komt mijn code in rode letters te staan.

Range ("G4") = ingevuld als: = VANDAAG ()

kan dat daarmee te maken hebben?

grema

 

[Wigi]

Gebruik wel de Format functie rond G4.

Denk eraan dat de / uit datums niet gewenst is in een bestandsnaam

Wigi

 

[grema]

Wigi

[Gebruik wel de Format functie rond G4./CODE]


Je wil daar mee zeggen :     haakjes ???

[CODE]Denk eraan dat de / uit datums niet gewenst is in een bestandsnaam

Ik wil opslaan met datum of gedeelte datum omdat er verschillende bestanden met dezelfde naam kunnen aangemaakt worden , maar toch verschillend later met verschillende data in map mooeten kunnen worden weergegeven en opgevraagd.

Daarom leek het mij logisch om de data bij het bestand te plaatsen.
Een andere oplossing kan voor mij ook; maar weet zo niet direkt welke ??

grema

 

[grema]

even verder nagedacht ( en dat voor een zondag) pff !!!

'k zou misschien m'n bons ergens een nummer kunnen meegeven in een cel.
Maar dan zodanig dat telkens ik een nieuw bestand open met m'n snelkoppeling ik een doornummering ( vervolg) krijg in de nummering .

Denk dat dit mogelijk moet zijn ; maar heb er geen ervaring mee.

Zou dit niet beter zijn dan de datum mee te nemen. ???

grema

 

[grema]

graag uw opmerkingen bij deze aanpassingen.

( ben geen expert; daarom graag julie mening) bij volgende aanpassingen:

vooreerst plaatste ik in cel B4

de volgende code

Range("B4") = "=Left(Now(),2)& Mid(Now(),9, 3)"

daarna paste ik de bewaar code aan volgens instructies van bijzonder slimme helpende collegas.

dit las volgt :

ActiveWindow.SmallScroll Down:=0
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\MARK\Bureaublad\WB SANITAIR\" & Range("C7") & " " & Range("B4") & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Kan het beter of anders ???


grema

 

[Wigi]

Grema

bijvoorbeeld

... SANITAIR\" & Range("C7") & " " & [B]Format(Range("G4"), "ddmmyyyy")[/B] & ".xls"

En doe nu aub eens de moeite om op F1 te drukken in F1. Als je daar zoekt op Format, en je klikt op Format function, wordt dit allemaal uitgelegd.

Wigi

 

[grema]

thx wigi,

grema