Save as...

[graaf404]

Wie weet de code van het openen van het scherm
"opslaan als"?

 

[jean42]

Wat bedoel je eigenlijk.
geef meer uitleg aub?

 

[Rimsic]

Geplaatst door jean42
Wat bedoel je eigenlijk.
geef meer uitleg aub?

De snelcode om ipv. CTRL + S, opslaan als te kiezen in excel.

@graaf404: probeer ALT+F2 is, en Hier staan ook nog genoeg shortcuts

 

[graaf404]

Ik wil de code onder een knop Zetten, samen met een printcomando.

Dus ipv Bestand / opslaan als na het printen.

 

[Rimsic]

Geplaatst door graaf404
Ik wil de code onder een knop Zetten, samen met een printcomando.

Dus ipv Bestand / opslaan als na het printen.

ooooooooooh....dat was niet duidelijk uit je vraag. Maar dan heb ik geen oplossing ik weet niet eens of dat wel kan...(ben ook geen excel expert)

 

[RB_online]

Sub opslaan()
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyFile = MyPath + "\" + "bestandsnaam.xls"

ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
end sub

Deze sub koppelen aan een knop en hij slaat het bestand op in dezelfde map waar het origineel instaat

René

 

[graaf404]

Dit werkt prima,
Maar ik wil eigenlijk dat de gebruiker zelf kan bepalen waar hij het opslaat en hoe hij het noemt.

Dus door de "opslaan als" te openen.


Raymond...

 

[richard1970]

Hoi Raymond,

Ik denk dat je onderstaande code in VBA wilt gebruiken:
Application.GetSaveAsFilename
Je krijgt dan het venster te zien dat je via Bestand - Opslaan als kunt opvragen.

Succes,

Richard

 

[graaf404]

yess!!!!

Die bedoelde ik...
TNX...:thumb: :thumb: