knop voor opslaan op vaste lokatie in een map maken

[waterman36]

Goedeavond,

ik heb mijn exel bestand zo goed als af met jullie hulp !!!
alleen er is nog een ding......

ik heb een knop gemaakt voor opslaan alleen die werkt niet...
Ik wil het exen bestand dus het blad op laten slaan met de naam van c2 in een bepaalde map in documenten

de naam van de map is AWZI en staat in de map documenten.
Mijn vraag is is dit mogelijk,de knop heb ik al gemaakt

een detail is dat het exel bestand straks op 9 computers laptops moet komen,kan dat ? en is dat mogelijk als je het bestand opslaat ?
de gedachten hierachter is dat je bij terugkomst de opgeslagen bestanden kan mailen naar een bepaald persoon

ik sluit het bestand even bij
je ziet ook een knop voor printen alleen die werkt ook niet ik weet ook niet of dit mogelijk is

mvg

jan heemskerk

 

[HSV]

Als het bestand al in de map staat.

Sub opslaan()
On Error Resume Next
 ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("formulier").Range("c2")
 On Error GoTo 0
End Sub

 

[waterman36]

het bestand staat in de map awzi op het bureaublad
alleen de opgeslagen bestanden komen nu op mn bureaublad te staan
hoe verander ik dat ?

gr jan

 

[HSV]

Dan zouden ze nu met de code in de map awzi terrecht moeten komen, of ik begrijp je vraag niet, en dat ze op nu op je bureaublad komen.

 

[waterman36]

volgens mij gaat er wat fout,,......

ik heb het bestand zelf in de map awzi gezet vanuit die map geopend dan op de knop opslaan gedrukt en dat staat het opgeslagen bestand op het bureaublad

of ik doe wat fout .....

jan


ps kan je zo ook doen met de print knop maar dan printen .....

het is dus de bedoeling dat mijn opgeslagen bestand ook in de map awzi komt

 

[HSV]

Ik heb het nagebootst en werkt perfect bij mij.
Ik het C2 even veranderd van waarde, en de code laten lopen.
Het bestand met naam van C2 staat in de map awzi.
Ik heb even geen idee waarom het bij jou fout gaat Jan.

Heb je het scheidingteken ("\") er misschien uit gelaten?

 

[waterman36]

Sub opslaan()
On Error Resume Next
 ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("formulier").Range("c2")
 On Error GoTo 0
End Sub

zo staat hij er bij mij in of ligt het er aan dat ik een mac heb ??

 

[waterman36]

heb gewoon knippen plakken gedaan of gaat er dan wat fout ?

 

[HSV]

Het zou best kunnen dat het aan Mac ligt.
Verander het eens in (het bestandenpad even aanpassen aan de jouwe):

Sub opslaan()
On Error Resume Next
     ThisWorkbook.SaveAs "c:\users\hsv\desktop\awzi\" & Sheets("formulier").Range("c2")
 On Error GoTo 0
End Sub

 

[waterman36]

hij deed met de onderste code helemaal niets ik heb alles weer teruggezet naar de oude het is niet erg als het oo het bureaublad staat er zijn er maar 5 per dag
deze lijsten moet ik dan mailen
maar alles zitten de codes er nog aan vast kunnen die losgekoppeld worden dat je alleen een bestand heb ?

en kan je het zo ook doen met de knop printen dat hij het formulier print ?

of is dat te veel gevraagd ? is ook niet erg hoor als dat zo is
ik kom er anders niet uit vindt exen heel leuk alleen zit nog in het begin stadium

ik hoor het wel

alvast bedankt voor de moeite

gr jan

 

[HSV]

Excel Vba voor Windows werkt ook niet goed op een Mac.

We kunnen nog één ding proberen.
Als je in de map Awzi met de rechtermuis op een bestand klikt en op eigenschappen klikt, wat is dan het bestandenpad?
Bv. C:\gebruikers\Jan\buroblad\awzi.

 

[waterman36]

deze is /Users/Waterman/Desktop
ik zal morgen ff kijken wat hij op mn laptop met windows doet daar is het ook voor

in iedergeval bedankt

ik heb trouwens speciaal windows office voor mac gekocht,...........

jan

ps zal hem als opgelost neerzetten bedankt !!

 

[HSV]

De Mac heeft dus als scheidingsteken een slash i.p.v. backslash.

Zet het nog maar niet op opgelost.
Je wilde nog code voor het printen toch?

 

[waterman36]

ja zal morgen ff kijken lig nl al op bed nu maar bedankt spreek je morgen denk ik nog wel

 

[waterman36]

ah klopt ja van die backslash zal morgen ff gaan hobbieen ermee
je hoort het wel

groeten en welterusten voor straks
ik ben naar bed nu

mvg

jan

 

[HSV]

Ook een goede nachtrust gewenst.

 

[Warme bakkertje]

Probeer deze eens

Public Function DocumentsAddress() As String
    DocumentsAddress = CreateObject("WScript.Shell").specialfolders("mydocuments") & "/awzi/" & Sheets("formulier").Range("c2")
    MsgBox DocumentsAddress
End Function

Wat krijg je dan te zien in de MsgBox ?
Is dit dan het correcte pad ?

 

[waterman36]

goedemorgen

allemaal bedankt voor de hulp
hsv het lag dus aan mijn mac..
code geprobeerd op mn labtop met windows en liep gelijk als een trein slaat het op in dezelfde map
nu alleen de code voor te printen nog en dan kan ik gaan testen.....

dus ik hoor het wel als je tijd heb voor de code
iedereen en bijvoorbaat HSV bedankt voor de hulp
echt een top site... en natuurlijk de mensen

groet

jan

 

[Warme bakkertje]

Sub Print1()
'
' Print1 Macro
'
' Sneltoets: Ctrl+p
'
    With Sheets("Formulier")
        .PageSetup.PrintArea = .Range("A1:K36").Address
        .PrintOut '.PrintPreview
    End With

End Sub

 

[waterman36]

hallo,

ok het werkt perfect +
bedankt voor de moeite en de tijd
super gedaan !!!!

mvg

Jan

ps vraag zet ik op öpgelost"