Lokatie opslaan

[mjdejoode]

Goededag,

Maybe is dit een simpele vraag, maar ik kom er niet uit. Ik heb onderstaande code die het bestand moet opslaan onder een bepaalde naam en daarna het eerste bestand moet openen. Hij moet hem opslaan in dezelfde map als het bronbestand. Alleen slaat hij hem onder de map "mijn documenten" op terwijl het bronbestand daar niet staat :S Gisteren deed hij het wel goed. Hoe komt dit? Hij kan nu ook niet meer het bronbestand openen, omdat hij denkt dat hij in de map "mijn documenten staat".

Sub archiveren()

Dim MyInput As String
    MyInput = InputBox("Onder welke naam wilt u het bestand opslaan", _
    "Bestand archiveren", "")

If MyInput = "" Then
MsgBox ("Ongeldige naam")
Exit Sub

End If

ThisWorkbook.SaveAs Filename:=MyInput

    Range("H2").Select
    ActiveCell.FormulaR1C1 = "Archiefbestand: " & MyInput

    Application.Goto Reference:="Alles"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

ThisWorkbook.Save

Workbooks.Open Filename:="totaal.xls"


MsgBox "Het bestand is gearchiveerd als " & MyInput & ".xls"

ThisWorkbook.Close

End Sub

Bij voorbaat dank,

Michael

 

[Finch]

De directory van het huidige (opgeslagen) bestand kan je achterhalen via deze code

ThisWorkbook.Path

Probeer dat eens te verwerken in uw code (bij saveas en bij open).
Ook niet vergeten bij beide handelingen op de extensie mee te nemen.

 

[mjdejoode]

Het is gelukt. Dank u wel