Bestand activeren.

[schilderehbo]

Hallo kenners,

Ik sla een excelbestand op met een bepaalde naam die vooraf niet bekend is. Naderhand wil ik dat bestand nogmaals openen en dan gegevens daar uit kopieren naar een ander bestand,
Dit bestand openen lukt wel maar het kopieren er naar niet i.v.m. het bestand dat ik wil activeren in mijn macro is niet bekend is omdat het steeds een andere naam heeft. Ik bepaal de naam van het bestand door een stringnaam. Dus mijn vraag is hoe activeer ik in mijn macro dat bepaalde bestand.

 

[edmoor]

Met de opdracht Workbooks.Open:
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbooks-open-method-excel

Kan je het bestand openen en dan de boel kopiëren van het ene werkboek naar het andere.
WorkbookB.Sheets("Blad1").Range("A1") = WorkbookA.Sheets("Blad1").Range("A1")

 

[schilderehbo]

Hallo

Probleem is dat ik het bestand bijvoorbeeld opslaat als test1.
Ik open dus test1 en kopieer gegevens naar een excel bestand genaamd test2.
Het punt van probleem is dat bestand test2 altijd het zelfde is maar bestand test1 kan ook bijv. test3 of test4 enzovoort enzovoort.
Ik weet dus niet hoe ik dat bestand test1 kan activeren i.v.m. verandering van naam.

 

[edmoor]

Zoiets:

    Dim WBE As String
    WBE = "C:\Diversen\1234\Map1.xlsx"
    
    Application.ScreenUpdating = False
    Workbooks.Open WBE
    With ActiveWorkbook
        .Sheets("Blad1").Range("A1") = ThisWorkbook.Sheets("Blad1").Range("A1")
        .Save
        .Close
    End With
    Application.ScreenUpdating = True

 

[schilderehbo]

Komen in de buurt maar ik zie maar 1 bestand hoe voeg ik dat andere bestand erin. Heb namelijk 2 bestanden: *.xlsm en test2.xlsm
* is onbekend en open test2.xlsm

 

[edmoor]

Als je dat tweede bestand opent kan het niet anders dan dat je het eerste bestand al open hebt.
In dat stukje wordt toch echt met 2 bestanden gewerkt.

 

[schilderehbo]

In jou stukje wat is dan het reeds geopende bestand ? is dat Map1 ?

 

[edmoor]

Nee, het bestand dat je hebt geopend om die code te kunnen starten uiteraard.

 

[schilderehbo]

Dit gaat buiten mijn boekje snap er niets van maar bedankt voor de moeite.

 

[schilderehbo]

Nee, het bestand dat je hebt geopend om die code te kunnen starten uiteraard.

Ben er achter of tenminste een heel stuk al maar ik wil dat het ene bestand gesloten wordt (bestand wat al open was) en nieuw geopend bestand moet open blijven.

 

[edmoor]

Dat kan met ActiveWorkbook.Close.

 

[schilderehbo]

Dat kan met ActiveWorkbook.Close.

waar komt dat dan te staan want hij sluit nu beide in jou stukje tekst (tenminste bij mij)

 

[edmoor]

Als laatste en dan moet je die andere .Close uiteraard weg laten.

 

[schilderehbo]

Als laatste en dan moet je die andere .Close uiteraard weg laten.

Kan je dat stukje misschien plaatsen ik kom er niet uit.
geen idee waar hij moet komen
ik doe het zo:

Dim WBE As String
WBE = "C:\Diversen\1234\Map1.xlsx"

Application.ScreenUpdating = False
Workbooks.Open WBE
With ActiveWorkbook
.Sheets("Blad1").Range("A1") = ThisWorkbook.Sheets("Blad1").Range("A1")
.Save
ActiveWorkbook.close
End With
Application.ScreenUpdating = True

 

[edmoor]

Dim WBE As String
WBE = "C:\Diversen\1234\Map1.xlsx"

Application.ScreenUpdating = False
Workbooks.Open WBE
With ActiveWorkbook
    .Sheets("Blad1").Range("A1") = ThisWorkbook.Sheets("Blad1").Range("A1")
    .Save
End With
Application.ScreenUpdating = True 
ThisWorkbook.close

 

[schilderehbo]

Dim WBE As String
WBE = "C:\Diversen\1234\Map1.xlsx"

Application.ScreenUpdating = False
Workbooks.Open WBE
With ActiveWorkbook
    .Sheets("Blad1").Range("A1") = ThisWorkbook.Sheets("Blad1").Range("A1")
    .Save
End With
Application.ScreenUpdating = True 
ThisWorkbook.close

Ik heb hem helemaal werkend mijn dank maar 1 ding nog hij vraagt of ik wil opslaan (het bestand wat al geopend was vanaf begin ik heb save geprobeerd maar dat lukt niet helemaal.
wat geopend is door macro blijft netjes open staan.

ik heb dit nu staan:

Sub offertenaarfactuur()

Dim WBE As String
WBE = "D:\De schilders\Facturen jaar 2018\Factuur De schilders.xlsm"

Application.ScreenUpdating = False
Workbooks.Open WBE
With ActiveWorkbook
Sheets("Factuur").Unprotect Password:="01"
.Sheets("Factuur").Range("C14") = ThisWorkbook.Sheets("Voorblad offerte").Range("D17")
.Sheets("Factuur").Range("C16") = ThisWorkbook.Sheets("Voorblad offerte").Range("D18")
.Sheets("Factuur").Range("C17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D19")
.Sheets("Factuur").Range("E17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D20")
Sheets("Factuur").Protect Password:="01"
Application.ScreenUpdating = True
ThisWorkbook.Close

End With

End Sub

 

[edmoor]

In die code sluit je alleen het initiëel geopende werkboek, niet de WBE.
Je wilt het gewijzigde bestand opslaan en dan Excel sluiten?

Sub offertenaarfactuur()
    Dim WBE As String
    WBE = "D:\De schilders\Facturen jaar 2018\Factuur De schilders.xlsm"
    Application.ScreenUpdating = False
    Workbooks.Open WBE
    With ActiveWorkbook.Sheets("Factuur")
        .Unprotect Password:="01"
        .Range("C14") = ThisWorkbook.Sheets("Voorblad offerte").Range("D17")
        .Range("C16") = ThisWorkbook.Sheets("Voorblad offerte").Range("D18")
        .Range("C17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D19")
        .Range("E17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D20")
        .Protect Password:="01"
    End With
    
    With ActiveWorkbook
        .Save
        .Close
    End With
    
    Application.Quit
End Sub

Wees dus duidelijk in wat je precies met welk werkboek wilt doen.

 

[schilderehbo]

In die code sluit je alleen het initiëel geopende werkboek, niet de WBE.
Je wilt het gewijzigde bestand opslaan en dan Excel sluiten?

Sub offertenaarfactuur()
    Dim WBE As String
    WBE = "D:\De schilders\Facturen jaar 2018\Factuur De schilders.xlsm"
    Application.ScreenUpdating = False
    Workbooks.Open WBE
    With ActiveWorkbook.Sheets("Factuur")
        .Unprotect Password:="01"
        .Range("C14") = ThisWorkbook.Sheets("Voorblad offerte").Range("D17")
        .Range("C16") = ThisWorkbook.Sheets("Voorblad offerte").Range("D18")
        .Range("C17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D19")
        .Range("E17") = ThisWorkbook.Sheets("Voorblad offerte").Range("D20")
        .Protect Password:="01"
    End With
    
    With ActiveWorkbook
        .Save
        .Close
    End With
    
    Application.Quit
End Sub

Wees dus duidelijk in wat je precies met welk werkboek wilt doen.

Thanks ik had hem al werkend bedankt voor je vele hulp.