excell print en opslaan

webconnection · 10 okt 2006

Hey kan er iemand mij helpen ?
heb twee excel bestanden
facturen.xls
database.xls

Wanneer ik een factuur invul en klik op mijn macroknop schrijft deze een nieuwe lijn in database.xls. Dit werkt pefect. Maaaaar nu enkele vraagjes.

--Ik moet telkens database.xls ook openen als ik een factuur maak. Kan dit ook in de macro geplaatst worden dat deze excel file geopend wordt ?

--Kan ik ook aan de macroknop meegeven, na invullen factuur, dat deze "database.xls" opslaat en sluit en daarna ook "factuur.xls" opslaat met een waarde uit een cel van factuur.xls ? amai ik hoop dat jullie het begrijpen

reeds bedankt voor jullie moeite.
Tom

jpvs · 10 okt 2006

zie hier staat de nodige uitleg (wel in het Engels) :

Copy a range from a closed Workbook (in dit geval kan het 2de bestand gesloten blijven).

http://www.rondebruin.nl/ado.htm#folder

Pierre

webconnection · 10 okt 2006

jpvs zei:
zie hier staat de nodige uitleg (wel in het Engels) :

http://www.rondebruin.nl/ado.htm#folder

Pierre

bedankt ! :thumb: Moet ik wel even uitzoeken denk ik. Is niet simpel.
Ik dacht dat het eenvoudiger was.

Tom

webconnection · 10 okt 2006

nee

Mensen ik kom er niet uit !

jpvs · 10 okt 2006

Waarom gebruik je de factuur van Excel niet?

zie eens op deze site :

http://www.microsoft.com/netherland...tratie/factureren/factureren_met_excel_1.aspx

Factureren en meer met Excel (1): basis opzet
Factureren en meer met Excel (2): automatisch ophogende factuurnummering
Factureren en meer met Excel (3): BTW-vermeldingen en -uitsplitsing en debiteurenbewaking
Factureren en meer met Excel (4): grafisch duplicaat voor archivering en e-mail :
Factureren met Excel - deel 5

Pierre

koosl · 10 okt 2006

Allez Tom webconnection,

Kun je hier een voorbeeldfactuur in Excel plaatsen waarin de code zit die je tot nu toe hebt?
aub ook aangeven waar de naam staat (welke cel) die gebruikt moet worden voor de bestandsnaam.

(Een duidelijk voorbeeldje in Excel werkt om mee te beginnen al iets gemakkelijker.)

Als dit groter is dan 100kb moet je het eerst zippen.

Koosl

webconnection · 10 okt 2006

ok hier is het

Heb 3 bestanden in het rar file staan
Plaats alle bestanden in een zelfde map en klik op "facturen.xlw"
Hierdoor openen de twee bestanden.
test.xls = daar maak ik mijn factuur in (gele vakken invullen)
database facturen.xls = daar blijf je beter af anders werkt het niet meer.

voila
alvast bedankt voor deze snelle interventie voor deze Belg:thumb:

webconnection · 10 okt 2006

knop !!!

daarna op knop drukken maar dat wist je ook wel zeker

koosl · 10 okt 2006

webconnection,

ik heb je macro een klein beetje aangepast.

Je hebt de facturen.xlw niet meer nodig.
Als je op de knop drukt wordt het database bestand geopend en de velden ingevuld.
Het database bestand wordt vervolgens gesaved en afgesloten.

Als er nog iets meer is dan hoor ik het wel.

Koosl.

webconnection · 10 okt 2006

prachtig maaaaaaaaaaar

Ongelooflijk bedankt makker voor al het werk. Indien je een meisje was kreeg je een kus !!!!
krijg een foutmelding. wanner ik op de knop druk
'subscript valt buiten bereik'

Application.ScreenUpdating = False 'voorkomt flikkeren van het beeld
pad = ThisWorkbook.Path 'definieert het pad van het bestand
Workbooks.Open Filename:=pad & "\" & databasenaam & ".xls"
Windows(databasenaam).Activate
Selection.Copy 'haal het nieuwe factuurnummer op.
Windows(factuurnaam).Activate
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNo

rode lijn zit de fout ?

koosl · 11 okt 2006

Tom,

krijg je die al als je de twee voorbeeldbestanden gebruikt??

Code:

Sub facturen_opslaan()
' facturen_opslaan Macro
' De macro is opgenomen op 10/10/2006 door Tom.

Dim databasenaam As String
Dim factuurnaam As String
Dim pad As String
databasenaam = "[B][COLOR="Red"]database facturen[/COLOR][/B]" 'dit is de naam van het database bestand
factuurnaam = "[COLOR="red"][B]test[/B][/COLOR]"  'naam van het bestand om de facturen te maken

Kijk ook eens of de naam van het hetzelfde is en of ze allebei in dezelfde map zitten.

Ik heb nu geen tijd meer. Kan pas vanavond weer reageren.

Koosl

webconnection · 11 okt 2006

koosl zei:
Tom,

krijg je die al als je de twee voorbeeldbestanden gebruikt??

Code:

Sub facturen_opslaan() ' facturen_opslaan Macro ' De macro is opgenomen op 10/10/2006 door Tom. Dim databasenaam As String Dim factuurnaam As String Dim pad As String databasenaam = "[B][COLOR="Red"]database facturen[/COLOR][/B]" 'dit is de naam van het database bestand factuurnaam = "[COLOR="red"][B]test[/B][/COLOR]" 'naam van het bestand om de facturen te maken

Kijk ook eens of de naam van het hetzelfde is en of ze allebei in dezelfde map zitten.

Ik heb nu geen tijd meer. Kan pas vanavond weer reageren.

Koosl

Ja Koos krijg die foutmelding als ik die twee bestanden gebruik die jij mij terug stuurde.
rar bestand uitgepakt in dezelfde map. Bestanden zitten in dezelfde map.
De namen kloppen ook hoor. Had ik reeds nagegkeken.

Ik open enkel test.xls en klik op de knop.
databse facturen.xls is wel opengegaan als ik die foutmelding wegdoe ??
"fout 9 tijdens uitvoering :
hetsubscript valt buiten het bereik"

Koos ben er deze avond niet. Ben enkel in de voormiddag bereikbaar.
Alvast bedankt om me te helpen !
Ik zoek nu nog even verder.

Tom

koosl · 11 okt 2006

Webconnection,

Ik heb het nog vlug op mijn werk getest (in de pauze), maar hier doet hij het ook goed.
Niks geen foutmelding.

Je gebruikt het .xlw bestandje toch niet meer?

Welke Excel versie heb je?

Ik heb thuis 2002 en op het werk 2000

Koosl

webconnection · 12 okt 2006

koosl zei:
Webconnection,

Ik heb het nog vlug op mijn werk getest (in de pauze), maar hier doet hij het ook goed.
Niks geen foutmelding.

Je gebruikt het .xlw bestandje toch niet meer?

Welke Excel versie heb je?

Ik heb thuis 2002 en op het werk 2000

Koosl

Neen het .xlw bestandje is verwijderd. Dat gebruik ik niet meer.
Ik gebruik excel 2003
Ligt het daaraan ?

jpvs · 12 okt 2006

Ik gebruik ook Excel 2003 en krijg ook dezelfde fout melding?

Pierre

koosl · 16 okt 2006

Tom en Pierre,

een vraag:

hebben jullie misschien allebei deze addin aan staan?

zie:
http://groups.google.nl/group/microsoft.public.vb.bugs/browse_thread/thread/8c37eea6a6de99ec/7b2da599063d66e8%237b2da599063d66e8

(bij Extra-Invoegtoepassingen)

Het is zo wel lastig. Ik krijg op 3 PC's geen foutmelding.
Ik heb alleen geen Office 2003. Dus ik krijg misschien daarom de foutmelding niet.

Koosl

jpvs · 17 okt 2006

Koosl,

Heb alle add-inns uit gezet en krijg nog altijd de fout melding?

Na op de knop gedrukt te hebben krijg ik de fout melding :
Fout 9 tijdens uitvoering:
Het subscript valt buiten het bereik.

Foutopsporing : op deze zin :
Windows(databasenaam).Activate

Pierre

webconnection · 17 okt 2006

nog steeds

Inderdaad jpvs
Heb ook nog steeds dat probleem.
Eigenaardig

koosl · 18 okt 2006

Tom,

probeer het eens als je alle regels met de 2 bestandsnamen wijzigt:

Workbooks.Open Filename:=pad & "\" & databasenaam & ".xls"

Windows(factuurnaam & ".xls").Activate

Aleen ik weet dus niet ofdat het helpt.

Koosl

excell print en opslaan

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Bijlagen

Gebruiker

Gebruiker

Bijlagen

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Wij waarderen jouw privacy