opslaan in dezelfde map

[knarfje]

Hallo.

Ik ben bezig met een macro om een tabblad op te slaan in dezelfde map als waar het "moederbestand" in staat.
Het moet dan ook nog de naam krijgen uit cel A1 + A2.
Is dat mogenlijk mij lukt het niet want met onderstaande code word het op de C schijf opgeslagen!
O ja, en het moederbestand moet openblijven staan om er verder in te kunnen werken.

Sub Bewaar()
  With ActiveWorkbook
    .SaveAs [Blad1!B1;A1]
    .Close
  End With
End Sub

 

[richard1970]

Beste Frank,

Ben geen VBA-guru, maar stoei eens met:
ActiveWorkbook.Path

Richard

 

[Wigi]

Sub Bewaar()
  With ActiveWorkbook
    .SaveAs .Path & "" & [Blad1!B1] & [Blad1!A1]
  End With
End Sub

 

[Wigi]

O ja, en het moederbestand moet openblijven staan om er verder in te kunnen werken.

Sub Bewaar()
  With ActiveWorkbook
    .SaveAs [Blad1!B1;A1]
    .[B]Close[/B]
  End With
End Sub

Ah ja, vandaar de .Close in jouw code

 

[knarfje]

Ik krijg een foutmelding (fout1004) op de regel:
.SaveAs [Blad1!B1;A1]

 

[Wigi]

Ik krijg een foutmelding (fout1004) op de regel:
.SaveAs [Blad1!B1;A1]

Bekijk dan mijn code en niet die van jou.

 

[knarfje]

Bekijk dan mijn code en niet die van jou.

OEPS, had idd ve verkeerde code geplakt.
Nu de Juiste van jou gedaan maar daarmee word het moederbestand in een "hoger" path weggeschreven en na het saven werk je in het gesavede bestand.

Nu maar ff iets duidelijk wat ik graag wil:

Ik werk in bestand A en wil dmv een macro dat tabblad1 word gesaved met de naam uit cel a1 en b1 uit blad1 in hetzelfde path als waar het bestand staat waar ik in werk (bestand A dus).
Daarna wil ik dus in het bestand blijven werken waar ik in zat.

Hopende niet te veel tot last..

 

[Breuk132]

Hoi Knarfje,

Met deze moet het lukken denk ik.

Sub opslaan()

    Dim Locatie
    
    Locatie = ActiveWorkbook.Path & "\" & Range("A1") & Range("B1") & ".xls"
    
    ActiveSheet.Copy
    With ActiveWorkbook
    .SaveAs Locatie
    .Close
    End With
    
End Sub

 

[Warme bakkertje]

Sub opslaan()
    Sheets(1).Copy
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & [B1] & [A1] & ".xls"
        .Close
    End With
End Sub

 

[knarfje]

Hé mannen, helemaal toppie dat werkt mooi maar...
Als ik twee keer achter elkaar de macro gebuik vraagt ie bij de 2e keer dat het bestand al bestaad en of je wilt overschrijven.Als je ja zegt gaat het verder goed en overschrijft ie maar kies je nee dan krijg je foutmelding op regel .SaveAs ThisWorkbook.Path & "\" & [B1] & [A1] & ".xls"

Tevens heb ik een knop op blad1 staan om de macro te starten en die word ook meegekopieerd in het nieuwe bestand. Is dat te voorkomen?

 

[Warme bakkertje]

Als het met deze niet lukt moet je eens kijken bij Shapes

Sub opslaan()
    Sheets(1).Copy
    With ActiveWorkbook
         For j = 1 To .Sheets(1).OLEObjects.count
                    .Sheets(1).OLEObjects(j).Delete
        Next
        .SaveAs ThisWorkbook.Path & "\" & [B1] & [A1] & ".xls"
        .Close
    End With
End Sub

 

[knarfje]

Als het met deze niet lukt moet je eens kijken bij Shapes

Sub opslaan()
    Sheets(1).Copy
    With ActiveWorkbook
         For j = 1 To .Sheets(1).OLEObjects.count
                    .Sheets(1).OLEObjects(j).Delete
        Next
        .SaveAs ThisWorkbook.Path & "\" & [B1] & [A1] & ".xls"
        .Close
    End With
End Sub

Nee,helaas lukt niet met bovenstaande code.
Foutmelding op

Sheets(1).OLEObjects(j).Delete

Ik heb wel eens wat eerder over "Shapes" gehoord en gezocht op google maar kom daar niet uit
Kan je me een stukje op weg helpen?

 

[Warme bakkertje]

Zoek linksbovenaan in het naamvak de naam v/d knop en wijzig deze in de macro

Sub opslaan()
    Sheets(1).Copy
    With ActiveWorkbook
         .Sheets(1).Shapes("Knop 1").Delete
        .SaveAs ThisWorkbook.Path & "\" & [B1] & [A1] & ".xls"
        .Close
    End With
End Sub