• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Save As maar zonder het effectief opslaan

Status
Niet open voor verdere reacties.
A

Arnese

Gebruiker
Lid geworden
3 feb 2011
Berichten
47
Hoe kan via een druk op de knop "save excel" het scherm Save As oproepen waarbij de documentnaam = voetnoot, zonder dat hij effectief opslaat.
M.a.w. zonder path, de gebruiker kiest zelf waar hij opslaat.

Ik kom dit onderwerp overal tegen maar telkens wordt het meteen opgeslaan.

File weggehaald op verzoek van TS
 
Laatst bewerkt door een moderator:
Dat moet zo wel kunnen:
Code: 
Sub excelmaken()
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ActiveSheet.PageSetup.RightFooter
        .Show
    End With
End Sub
 
Werkt perfect.

Kan je hem bijvoorbeeld ook al het path laten klaarzetten zonder daar op te slaan?

N:\FS_MECHA
 
Euh? De code van octa was een correct antwoord op uw eerste vraag.
M.a.w. zonder path, de gebruiker kiest zelf waar hij opslaat.
Klik om te vergroten...
en ?
Kan je hem bijvoorbeeld ook al het path laten klaarzetten
Klik om te vergroten...
Je moet wel weten wat je wilt, een boterham met choko of een boterham met kaas.;)
zoiets misschien?
Code: 
Sub excelmaken()
 With Application.FileDialog(msoFileDialogSaveAs)
   .AllowMultiSelect = False
   .InitialFileName = "N:\FS_MECHA \" & ActiveSheet.PageSetup.RightFooter
    If .Show = -1 Then .Execute
   End With
End sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan