Werkmap opslaan vanuit een andere werkmap

[Atwist]

Hallo forumleden,

Ik moet een werkmap opslaan vanuit een andere werkmap.
heb een werkmap waar ik mijn berekeningen in maak een andere werkmap leest deze gegevens weer en dit wordt door AutoCad gebruikt.
Maar ik kan alleen de gegevens in AutoCad gebruiken als die werkmap is opgeslagen maar deze map draai op de achtergrond.
Nu wil ik graag dat ik vanuit het werkblad met berekeningen de AutoCad map kan opslaan
Zelf had ik onderstaande geprobeerd (onder een knop)

 Workbook("Cadtable.xls").Save

Maar dit werkt niet, hoe kan ik zoiets aanpakken?

 

[HSV]

Misschien met:

Workbooks("Cadtable.xls").SaveAs "D:\" & "Cadtable" & ".xls"

 

[Atwist]

Hallo HSV,

Helaas werkt het niet
Dit heb ik ervan gemaakt.

Private Sub CommandButton1_Click()
   ActiveWorkbook.Save
   Workbooks("Cadtable.xls").SaveAs "T:\excel bestanden\" & "Cadtable" & ".xls"

 

[HSV]

Zo dan.

Sub tst()
[COLOR="red"]Workbooks("Cadtable.xls").Activate[/COLOR]
Workbooks("Cadtable.xls").SaveAs "T:\excel bestanden\Cadtable.xls"
End Sub

Of:

Workbooks("Cadtable.xls").Activate
ActiveWorkbook.Save

 

[Atwist]

HSV,

Kan dit onder een knop??

Wand als ik dat doe krijg ik een fout melding

 

[HSV]

Zou toch niets uit moeten maken.

 

[Atwist]

Dit is de melding die ik krijg

 

[HSV]

Je moet de code in de bladmodule plaatsen waar de commandbutton staat.
En haal 'Sub tst()' weg.

 

[Atwist]

Dat wordt lastig ik werk namelijk met userforms.

 

[HSV]

Als daar de commandbutton staat, zet je de code in de userform.

 

[Atwist]

Dat heb ik dus gedaan, maar krijg die fout melding

 

[HSV]

Je moet de code in de bladmodule plaatsen waar de commandbutton staat.
En haal 'Sub tst()' weg.

En heb je #8 helemaal uitgevoerd?

 

[Atwist]

        Label231.Caption = Range("Data!E140").Value
        Label237.Caption = Range("Data!E145").Value
        Label242.Caption = Range("Data!E151").Value
End Sub

Private Sub CommandButton1_Click()
Workbooks("Cadtable.xls").Activate
Workbooks("Cadtable.xls").SaveAs "T:\excel bestanden\Cadtable.xls"
   End Sub

 

[HSV]

In je eerste post staat dat Cadtable op de achtergrond mee draait.
Staat die nu wel open?

 

[Atwist]

Nee

Cadtable is niet actief.

ik krijg het idee dat ik iets verkeerd doe of dat ik iets over het hoofd zie.

 

[HSV]

Dan zul je het in de code actief moeten maken, daarna saven, en weer sluiten.

 

[Atwist]

HSV,

Heb het een en ander aangepast en het draait nu goed.:thumb:

Mijn dank is groot.