Beste,
Ik loop tegen het volgende probleem aan:
Ik wil via een macro gegevens uit een andere werkboek halen. Het probleem zit erin dat het basis bestand elke dag van naam veranderd waardoor een verwijzing naar 1 bestand niet mogelijk is.
Dit hen ik proberen om te lossen met een pad in de code te zetten met daarin een verwijzing het samenvoegen van locatie en naam. Toch krijg ik iedere keer de foutmelding dat het bestand niet te vinden is.
Wat zie ik over het hoofd?
Ik loop tegen het volgende probleem aan:
Ik wil via een macro gegevens uit een andere werkboek halen. Het probleem zit erin dat het basis bestand elke dag van naam veranderd waardoor een verwijzing naar 1 bestand niet mogelijk is.
Dit hen ik proberen om te lossen met een pad in de code te zetten met daarin een verwijzing het samenvoegen van locatie en naam. Toch krijg ik iedere keer de foutmelding dat het bestand niet te vinden is.
Wat zie ik over het hoofd?
Code:
Dim pad As String
Dim WB1 As Workbook
Dim Bestandsnaam1 As String
Sub Importeren()
'Locatie bestand, veranderen als de mappen wijzigen
pad = "G:\HUP " & Vloer & " \Logboek\" & Jaar & "\" & Maand & "\" & "HUPHUP " & Vloer & " "
'lokatie en volledige naam worden samengevoegd.
Bestandsnaam1 = pad & Dag & "-" & Maand1 & "-" & Jaar & ".xlsm"
Application.ScreenUpdating = False
Set WB1 = Workbooks.Open(Bestandsnaam1)
'hier worden de selecties gekopieerd, bestemming = bron
ThisWorkbook.Sheets("Hup 0A").Range("C15:AP78") = WB1.Sheets("Hup " & Vloer & "A").Range("C15:AP78").Value
WB1.Close SaveChanges:=False
Application.ScreenUpdating = True
MsgBox "Alles is geïmporteerd.", , "Klaar"
End Sub