Padnamen in macro

[fotofons]

Ik heb in een Ecel-macro op mijn Usb-stick (drive D) bv. staan: ChangeFileOpenDirectory "D:\opslag\formulieren\"

Stop ik de Usb-stick in een andere PC dan krijgt deze een andere drijfletter en loopt het macro dus niet meer. Op internet heb ik gezocht en uitgetest om de driveletter vast te zetten voor deze Usb-stick. Tot nog toe tevergeefs. Is er een manier om dit binnen de macro te regelen?

 

[namliam]

Je kan het misschien omdraaien?
activeworkbook.Path
Haalt de folder op vanwaar het huidge workbook geopent is.

 

[fotofons]

ChangeFileOpenDirectory "D:\opslag\formulieren\"
    ActiveDocument.SaveAs2 FileName:= _
        "D:\opslag\formulieren\" & bestandsnaam & "-word1.docx" _

zou dan worden:

activeworkbook.Path
    ActiveDocument.SaveAs2 FileName:= _
        bestandsnaam & "-word1.docx" _

of

activeworkbook.Path
    ActiveDocument.SaveAs2 FileName:= _
       path & bestandsnaam & "-word1.docx" _

 

[namliam]

Meer iets van:

 ActiveDocument.SaveAs2 FileName:= _
activeworkbook.Path & "\" &  bestandsnaam & "-word1.docx" _

 

[Ralbers]

Hier staat misschien iets nuttigs?
iets met fso.getfolder ofzo
Maar hier houd mijn kennis ook een beetje op

http://www.exceltrick.com/formulas_macros/filesystemobject-in-vba/

 

[namliam]

fso (file scripting object) kan het ook mee, maar in excel werkt de activeworkbook prima

 

[fotofons]

Meer iets van:
ActiveDocument.SaveAs2 FileName:= _
activeworkbook.Path & "\" & bestandsnaam & "-word1.docx" _

Ik heb nu staan (na enige aanpassing, ik had en stukje uit een worddocument ipv uit een excel )

    ActiveWorkbook.SaveAs2 FileName:= _
    ActiveWorkbook.Path & "\naam.xlsm" _
         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

En krijg een compileerfout.

 

[fotofons]

Engels en boven mijn pet. Sorry.

 

[edmoor]

Er staat ActiveWorkbook.SaveAs2 in plaats van ActiveWorkbook.SaveAs
Vandaar de compilermelding.

 

[fotofons]

weghalen van de 2 geeft dezelfde melding.

 

[edmoor]

Als je nou ook eens verteld welke melding...

 

[fotofons]

Compileerfout Syntaxisfout

 

[edmoor]

Vervolgens wordt er in de code ook een regel rood gemaakt als het goed is.

 

[namliam]

Ik heb nu staan (na enige aanpassing, ik had en stukje uit een worddocument ipv uit een excel )
ActiveWorkbook.SaveAs2 FileName:= _
ActiveWorkbook.Path & "\naam.xlsm" _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

En krijg een compileerfout.

Is ergens in het kopieren of opdelen van de opdracht een komma weggevallen... Elke parameter moet gescheiden worden door een komma

Zo dus:

  ActiveWorkbook.SaveAs2 FileName:= _
    ActiveWorkbook.Path & "\naam.xlsm" _
         ,FileFormat:=xlOpenXMLWorkbookMacroEnabled _
, CreateBackup:=False

De komma voor FileFormat was weg.

 

[fotofons]

alle 3 regels werden rood gemaakt. Probleem is nu helemaal opgelost. Met dank aan alle bijdragen. Nogmaals DANK.

 

[huijb]

@namliam en fotofons Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar voor de helpers. Zie ook hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn