VBA: Verwijzen naar een bestandsnaam

[RoCompy87]

Hallo allemaal,

Ik ben sinds heel kort een beetje in VBA aan het knutselen bij het maken van macro's, maar ik kom ergens niet uit... Ik heb een macro die de waarden van een bepaald bereik moet kopiëren naar een nieuw werkblad. Daarna moet er worden teruggekeerd naar de originele werkmap (waarin dus het werkblad staat met het bereik dat werd gekopieerd naar het nieuwe bestand). Nu zou ik dit kunnen opgeven:

Windows("bestandsnaam.xls").Activate

Maar als iemand er voor kiest om de bestandsnaam te wijzigen, dan werkt de macro niet meer. Ik zat zelf al te zoeken in het declareren van variabelen. Dit heb ik onder andere geprobeerd:

Sheets("analyse").Select
    Dim invbestand
    invbestand = Range("H8").Value = ThisWorkbook.Name
'hier staat wat code die voor het kopiëren zorgt
Windows(invbestand).Activate
'en wat afsluitende code zoals het terug beveiligen van het werkblad

Kan iemand mij helpen? Misschien slaat bovenstaande wel helemaal nergens op

 

[Finch]

In onderstaande thread heb ik een andere gebruiker met soortgelijk probleem geholpen.
Neem die misschien even door, en moesten er nog vragen zijn of kom je er niet uit, dan helpen we je graag verder.

http://www.helpmij.nl/forum/showthread.php?t=328622

 

[RoCompy87]

Ik heb nu dit:

Sub KopieerAnalyse()
    Sheets("analyse").Select
    Dim wbTarget
    wbTarget = ActiveWorkbook.Name
'
'instructies voor het kopiëren
'
    Windows(wbTarget).Activate
    Sheets("analyse").Select
'
'afsluitende instructies
'
    End Sub

En het werkt zonder foutmelding, dus waarschijnlijk zit het zo wel goed :thumb: Thanks!

 

[Wigi]

Zoiets is het geraamte van de code:

Sub KopieerAnalyse()

    Dim wbSource [B]As Workbook[/B]
    Dim wbTarget [B]As Workbook[/B]
    
Set wbSource = Workbooks("naamvanhetbronbestand.xls")
Set wbTarget = ActiveWorkbook

'instructies voor het kopiëren
' bvb.

wbSource.Sheets("naamvandebronsheet").Range("A1").Copy wbTarget.Sheets("naamvandedoelsheet").Range("A1")

'afsluitende instructies

    End Sub

Geen .Select's en .Activate's nodig.

Wigi