Macro's koppelen aan variabele bestandnaam

[Daan Geven]

Wij hebben een read only bestand (prijsopgaaf blanco) gemaakt waar we ook de benodigde macro's hebben gezet. Vanuit dit 'bronbestand' maken we een prijsopgaaf waarna het bestand wordt opgeslagen als "prijsopgaaf +NAAM KLANT".

Wanneer we "prijsopgaaf+NAAM KLANT" weer openen werken de macro's niet meer omdat er nog steeds het volgende staat:

Windows("prijsopgaaf blanco.xlsm").Activate

Het bestand heet echter geen "prijsopgaaf blanco" meer maar "prijsopgaaf + NAAM KLANT" Er zou dus het volgende moeten komen staan:

Windows("prijsopgaaf + NAAM KLANT.xlsm").Activate

Met macro's ben ik nog helemaal nieuw, dus ik hoop dat iemand mij kan helpen.. Ik kan het betreffende bestand ook mailen (als bijlage toezenden lukt niet omdat het bestand te groot is)

 

[Wigi]

Gebruik dan ThisWorkbook als verwijzing naar de file.

En over het algemeen zijn Select's en Activate's niet nodig in VBA.

Wigi

 

[Daan Geven]

Zou je je misschien nader willen specificeren? Hoe zou de code er dan uit moeten zien?

Bij voorbaat dank voor reactie.

 

[snb]

Om cel A1 uit het eerste werkblad van het bestand uit te lezen bijv:

with activeworkbook
   c0=.sheets(1).Range("A1")
end with

of

with ThisWorkbook
   c0=.sheets(1).Range("A1")
end with