Excel bewaren en naam geven

[rcmb]

Ik zoek een manier om een excel workbook met macro te bewaren als xlsx en automatisch een naam te geven te beginnen met jjjjmmdd testnaam en vervolgens in de map ruudB op mijn harde schijf i te bewaren.

 

[Gert Bouwmeeste]

Zoiets

Sub BewaarBestandAlsXlsX()

Datumwaarde = [a1].Value        'in Cel A1 staat de datum
Bestandsnaam = [A2].Value       'In cel A2 staat de Bestandsnaam
Mapnaam = [A3].Value            'In cel A3 staat de Drive en de Mapnaam, afgesloten met "\"

Dagwaarde = Day(Datumwaarde)
    If Dagwaarde < 10 Then
        Dagwaarde = "0" & Dagwaarde
    End If
    
Maandwaarde = Month(Datumwaarde)
    If Maandwaarde < 10 Then
        Maandwaarde = "0" & Maandwaarde
    End If
    
    
Datum = Year(Datumwaarde) & Maandwaarde & Dagwaarde

Bestand = Mapnaam & Datum & " " & Bestandsnaam

ActiveWorkbook.SaveAs Filename:=Bestand, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[rcmb]

Beste Gert,

Hartelijk dank, op zich werkt de instructie wel als ik in macro druk op uitvoeren. Ik denk dat ik hem of op de verkeerde manier of plaats heb gezet. Ik heb de velden iets aangepast omdat ik geen plek heb in veld a1.2.3. en heb hiervoor d.e.f.1 gebruikt, dus hij doet wat ik wilde en bewaard het op de juiste plek. Ik heb niet zoveel verstand van VBA maar zie dat hij in module 1 staat. Als ik op de code klik en F5, krijg ik de melding dat hij wil saven zonder macro die ik dan met ja kan bevestigen om het bestand te saven. dat gaat dus goed

Mijn vraag is dus moet ik de code ergens anders plaatsen om de code uit te voeren of moet dat anders? De aanvullende vraag, kan ik opslaan zonder macros in de code op ja zetten zodat het verder automatisch gaat?
Groet,
Ruud

 

[rcmb]

Ik heb wel een manier gevonden zodat ik de macro met ctr shift combinatie activeer. Hij vraagt dan nog steeds bevestiging of ik het als xls zonder macro's wil bewaren.
Ik heb nog gekeken of ik de code i.pv. in een module in het werkboek kan plaatsen maar dan krijg ik een foutmelding.

Dus kan deze code worden aangepast zodat als ik op het icoontje bewaren toets druk of een button maak waardoor de code gaat werken en tegelijk de vraag bewaren zonder macro wordt geaccepteerd.

Ben er wel al heel blij mee maar de devil is in the details. Ruud