opslaan als Macor: van verschillende bestanden in dezlfde folder

[Humadgen]

Hoi

Ik zit met de volgnende situatie:

Ik open een bestand ergens uit een folder en wil dat dit bestand (middels een Macro) op een andere (voorgedefinieerd folder) kan worden opgeslagen

Deze macro wil ik echter voor verschillende bestanden kunnen gebruiken die allemaal door de macro in dezelfde folder worden gesaved

Dus:
Ik heb excel bestanden staan in
C:\Folder A
C:\Folder B

De namen in Folder A zijn:
1.xls
2.xls
3.xls

De namen in Folder Bzijn:
4.xls
5.xls
6.xls

Ongeacht welk bestand ik bewerk wil ik dat
1. Het bestand gesaved wordt;

    ActiveWorkbook.Save

Dat is dus niet het probleem.

Het probleem zit in stap 2
2. Het bestand wordt gesaved op
C:\Alle bestanden
Wat dus uiteindelijk altijd 6 sheets zal bevatten
1.xls
2.xls
3.xls
4.xls
5.xls
6.xls

Als ik gewoon de code opneem middels "opslaan als" dan krijg ik dat de naam van het bestand in de Macro verschijnt:

    ChDir "C:\Alle bestanden"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Alle bestanden\[B][COLOR="Red"]1.xls[/COLOR][/B]", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Hierdoor kan ik die ene macro niet voor ieder bestand gebruiken.

Daarna heb ik geprobeerd:

    ChDir "C:\Alle bestanden"
    ActiveWorkbook.Save

Maar dat lukt ook niet.

Heeft iemand de oplossing.

Thanks
Humadgen

 

[snb]

Je moet gebruik maken van een variabele, die, de naam zegt het al, verschillende namen kan bevatten.

 

[Humadgen]

Hoi SNB

Ik snap wat je zeg, maar weet niet hoe dit te vertalen naar dit probleem.
Is het teveel gevraagd of je het stuk code als voorbeeld voo rme kunt maken.

Thanks:thumb:

 

[Warme bakkertje]

ActiveWorkbook.SaveAs "C:\Alle bestanden\" & ThisWorkbook.Name & ".xls"