Aanroepen Makro binnen Makro

[Theknurt]

Hallo mede VBA-ers,

Met onderstaande makro roep ik een bestand op, waarin een andere makro is verwerkt.

Nu maakt deze makro een bestand, die ik op een bepaalde directorie geplaatst wil hebben.

Sub K_Schijf_Click()

Workbooks.Open Filename:="H:\Management\Staf\Logistiek\Dienstindeling\Proplan\K-schijf.xls"

End Sub

Sub Gegevens_Ophalen()
Dim BewaarNaam1 As String
Dim weeknum As Integer
Dim Dir As String

Application.ScreenUpdating = False
Application.DisplayStatusBar = True

Application.StatusBar = "Gegevens Ophalen"

BewaarNaam1 = Worksheets("Bestand_Maken").Range("A1")
weeknum = Worksheets("Bestand_Maken").Range("D3")
Dir = "H:\Management\Staf\Logistiek\Dienstindeling\Proplan\"

ChDir Dir
'Cells(10, 10).Value = bewaarnaam1
'Cells(11, 11).Value = weeknum
Application.DisplayAlerts = False
ChDir "H:\Management\Staf\Logistiek\Dienstindeling\Proplan"
If Not fileExists(Dir & "Week_" & weeknum & ".csv") Then
    MsgBox "De file " & Dir & "Week_" & weeknum & ".csv bestaat niet. Makro word beindigd"
Else
'Met NAME word het bestand hernoemd.

Application.StatusBar = "Bestand hernoemen"

    Name Dir & "Week_" & weeknum & ".csv" As Dir & "Week_" & weeknum & ".txt"
    Workbooks.OpenText Filename:=Dir & "Week_" & weeknum & ".txt", Origin:=932, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
        Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
        Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
        Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array( _
        18, 1), Array(19, 1), Array(20, 1), Array(21, 1)), TrailingMinusNumbers:=True
  


Application.StatusBar = "Gegevens verwerken"
    Workbooks.OpenText Filename:=Dir & "Basis_Prod_Uren.xls"
    Windows("Week_" & weeknum & ".txt").Activate
    Sheets("Week_" & weeknum).Select
    Cells.Select
    Selection.Copy
    Windows("Basis_Prod_Uren.xls").Activate
    Sheets("Week").Select
    Cells(1, 1).Select
    ActiveSheet.Paste
    Windows("Week_" & weeknum & ".txt").Activate
    ActiveWorkbook.Close
    Windows("Basis_Prod_Uren.xls").Activate
    Sheets("Draaitabel").Select
    ActiveSheet.PivotTables("Draaitabel2").PivotCache.Refresh
    BewaarNaam$ = BewaarNaam1
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        BewaarNaam$, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
    
    Application.StatusBar = "Opslaan Test SB_RZ.xls"
    
    Workbooks.OpenText Filename:="H:\Management\Prestatie Indicatoren\Operations control\Test SB RZ.xls"
    
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.StatusBar = "Gegevens bijwerken op K-schijf"
    
    Workbooks.Open Filename:="K:\Speciale Toegang\OC_kosten man uur\2007 Q1\S\SB RZ"
    
    
    With ActiveWorkbook
            .Save
            .Close
    End With
    
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .StatusBar = False
    End With

    
    MsgBox "Bestand Week_" & weeknum & ".xls gemaakt. Bestand op de K-schijf ook bijgewerkt."
        End If

Alleen zet hij het gemaakte bestand, als iemand anders van ons personeel het opend, op zijn eigen schijf en niet op een netwerk schijf.

Wat en waar gaat het fout ??

Thanks for the hulp.

Burt

 

[Relleboer]

MyPath = "C:"
            Myname = Range("H6").Value
            MyFile = MyPath & "\" & Myname & ".xls"
            wb.SaveAs Filename:=MyFile

misschien als je voor het opslaan zoiets gebruikt dan kun je meteen aangeven waar het moet worden opgeslagen. anders kiest excell voor mijndokumenten waarsschijnlijk.