Ik heb momenteel volgende code

Private Sub CommandButton1_Click()
'Factuur Retie

Application.ScreenUpdating = False  'Schermbijwerking uitschakelen

Set shtinvoer = Workbooks("factuurretievabcib v1_210304.xls").Sheets("Invoerscherm")
Set shtRetie = Workbooks("factuurretievabcib v1_210304.xls").Sheets("factuur retie")

shtinvoer.Range("B14").Value = ""   'Maak het factuurnummer leeg

Workbooks.Open ActiveWorkbook.Path & "\facturen.xls"    'Openen van workbook 'Facturen'

Set shtFacturenR = Workbooks("Facturen.xls").Sheets("Facturen_Retie")
shtFacturenR.Visible = True
...
...

deze gaat nog verder, maar is verder niet meer van belang.



De naam van de workbook moet veranderd kunnen worden, dus is het mijn bedoeling om de naam van het bestand automatisch te declareren, maar ik weet niet hoe. Iemand een ideetje?

een tweede vraagje ivm declareren.

Is het mogelijk om een workbook (alweer met die lange namen ) te declareren, en vervolgens de aparte werkbladen ook nog een verkorte naam te geven om jezelf een berg typewerk te besparen?

bvb
set wkb1 = Workbooks("factuurretievabcib v1_210304.xls")
set wkb2 = Workbooks("factuurretie v1_200506.xls")
Set sht1 = wkb1.Sheets("Invoerscherm")
Set sht2 = wkb1.Sheets("factuur")
Set sht3 = wkb2.Sheets("rommel")

groetjes

Hoi Wim,

Bedankt! Het werkt.

groetjes

Maarre,...................  

Kan ik het voor mij nog simpeler maken?

Met voorgaande oplossing blijft alles picobello in orde, maar veronderstel dat ik de fysieke naam van het excel bestand "factuurretievabcib v1_210304.xls"
hernoem naar bvb "Facturen.xls".
Dan moet ik de naam in de code aanpassen bij de SET functie, iets wat wellicht voor problemen zou kunnen zorgen in de toekomst (vergeten door de ouderdom of weinig gebruik ).
Kan ik de nieuwe naam van het bestand veranderen in de VBA code zonder dit manueel te moeten gaan aanpassen, of  bestaat er een manier om de naam van het bestand mee te geven met die SET functie?

groetjes