opslaan in huidige map

[Sjaakz]

Heren dames,

Mijn collega heeft een standaard documenten mapje dat hij steeds kopieert naar een nieuwe map.

- Welke code moet ik gebruiken om het document in de huidige map op te slaan?

- Kan ik dmv een formule de huidige map in de cel weergeven?


Alvast bedankt voor de snelle antwoorden.
Groet SjaakZ

 

[snb]

Heb je de macrorecorder al gebruikt ?

 

[Sjaakz]

Ja die heb ik al gebruikt maar....... die is niet "variabel".
Het standaard documenten mapje staat op bijv P:\dossiers (waar de code prima werkt)

Mijn collega kopieert dit mapje vervolgens naar P:\dossiers\Jansen.
Wanneer daar de code gestart wordt komt het bestand weer in p:\dossiers te staan.

Groet Sjaakz

 

[edmoor]

Om welk Office product gaat het?

Excel: ThisWorkbook.Path
Word: ActiveDocument.Path

 

[Sjaakz]

Het gaat om excel

Goedemorgen Edmoor,

Bedankt voor je antwoord.:thumb: Het gaat over Excel. Kan je misschien een klein voorbeeldje geven hoe ik deze formule kan gaan gebruiken.

Alvast bedankt weer voor je medewerking.:thumb::thumb:.....
Groet Sjaakz

 

[OctaFish]

- Kan ik dmv een formule de huidige map in de cel weergeven?

=CEL("Bestandsnaam")

 

[OctaFish]

En opslaan, bijvoorbeeld zo:

    ChDir ThisWorkbook.Path
    ActiveWorkbook.Save

of zo:

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Kolommen selektie.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[Sjaakz]

heren Bedankt.......maar.....

Iedereen bedankt weer voor de medewerking :thumb::thumb::thumb::thumb:

Ik heb gekozen voor de

ChDir ThisWorkbook.Path
    ActiveWorkbook.Save

Dit werkt prima voor mij.......

Ik heb wel nog een vraag bij de =cel("bestandsnaam")

Krijg ik maar een deel van de bestandsnaam te zien klopt dat?
Zo'n 18 posities.(excl. mappen structuur):shocked:

Groet SjaakZ

 

[OctaFish]

Je zou het hele pad moeten kunnen zien; misschien wordt de tekst afgekapt vanwege de naastgelegen cel. Je kunt, als je het hele pad wilt, met deze formule misschien nog wat doen:

=LINKS(CEL("Bestandsnaam");VIND.SPEC("#";SUBSTITUEREN(CEL("Bestandsnaam");"\";"#";LENGTE(CEL("Bestandsnaam"))-LENGTE(SUBSTITUEREN(CEL("Bestandsnaam");"\";"")))))

En wil je de bestandsnaam eruit vissen, dan kan dat zo:

=DEEL(CEL("Bestandsnaam");VIND.SPEC("#";SUBSTITUEREN(CEL("Bestandsnaam");"\";"#";LENGTE(CEL("Bestandsnaam"))-LENGTE(SUBSTITUEREN(CEL("Bestandsnaam");"\";""))))+1;99)

 

[Sjaakz]

heren Bedankt

en octofish nog extra bedankt voor de toelichting.
:thumb::thumb::thumb::thumb:

Groet
SjaakZ