VBA code voor opslaan excel kopie in dezelfde map

Halloo ,

Mijn bedoeling is om facturen automatisch op te slaan als excel kopie en als pdf met een knop.
Daarbij moeten ze opslaan met de inhoud van C15 (fact nummer) ; F8 (naam van klant) en B13 ( fact datum)
als bestandsnaam.
De doelmap zou steeds de map van het geopende start formulier moeten zijn.
Het adres van de doelmap wisselt omdat deze in dropbox staat en door verschillende computers benadert wordt.

In bijlage een word document met de vba code zoals ze nu is.
Nadeel is dat deze code vewijst naar een specifieke doelmap en dat er ook geen datum op het einde van de bestandsnaam voorkomt. Voor de bestandsnaam is er nu een verwijzing naar 1 cel (N8) die op haar beurt C15 en F8 samenvoegt.

Ik heb zelf weinig kennis en ervaring met VBA , vandaar mijn vraag voor hulp.

Bekijk bijlage Toegepaste MACRO - 22222 .docxBekijk bijlage Toegepaste MACRO - 22222 .docx

Mvg, Gunarke

Hoi,

Weinig reacties hier. Dat komt denk ik omdat je geen voorbeeld document hebt geplaatst.
Je kan beter je Excel document hier plaatsen dan een Word document met de gebruikte VBA routines.

Hoi,

Ik heb ondertussen de meeste problemen kunnen oplossen behalve hoe dat de
VBA code moet aangepast worden zodat bij klikken op de knop "opslaan als"
de doelmap steeds de map is waarin het geopende excel bestand zich bevindt.

Heeft er iemand een oplossing ?
Klik HIER voor een voorbeeld factuur.

Alvast bedankt voor de hulp.

Mvg,

De map waar het document staat kan je opvragen met Thisworbook.Path

Ik heb het aangepast maar waarschijnlijk niet op de goede manier
want krijg een foutmelding.
Zie afbeelding :

Wat is de juiste formulering ?

Mvg,

Het geeft geen object maar een string terug:
Bestandsnaam = ThisWorkbook.Path & "\" & CStr(Range("N8").Value) & ".xlsm"

Waarom heb je eigenlijk 7 spaties achter elkaar in de naam van je bestand in #3 staan?

Het is gelukt. :thumb:
Heel erg bedankt voor de hulp.
Ik ben superblij met de oplossing van dit probleem
Nog een aangename avond.

Mvg,