Automische invullen van factuur

[popipipo]

Daar was ik niet mee bekend.

 

[jverkerk]

Eentje met vba.
Ben geen vba deskundige maar dit een beetje aangepast uit een ander bestand.

 

[Warme bakkertje]

We kunnen hier nog veel oplossingen aanbieden maar allereerst moeten we weten hoe de facturen opgeslagen worden (pdf, xlsx), hoe de bestandsnaam wordt gevormd, hoe het factuurnummer opgebouwd wordt.
Eens we hierop een antwoord krijgen kunnen we méér gerichte oplossingen geven.
Is VBA inderdaad een optie? (alhoewel ik betwijfel of het anders kan, ik laat graag mijn ongelijk bewijzen )

 

[HansFRAP]

Ik werk daarom met een los INI-bestand. (snel te openen en te bekijken)
De functies: GetPrivateProfileString en WritePrivateProfileString gebruik ik om per klant laatste nummer op te halen, met 1 te verhogen en weer weg te schrijven.
Je kunt dit natuurlijk met/in diverse bestanden doen.
Basis is om je factuur vanuit een sjabloon te starten.
In je sjabloon heb je wat variabelen, zoals de naam van je stuurbestand, opslagplaatsen etc., gedefinieerd.
Dus ja, werken met VBA.

 

[RogerS]

Daar was ik niet mee bekend.

Zie -> https://www.belastingdienst.nl/wps/...tratie_bijhouden/facturen_maken/factuureisen/

 

[Warme bakkertje]

In België evengoed zo.

 

[EVE87]

We kunnen hier nog veel oplossingen aanbieden maar allereerst moeten we weten hoe de facturen opgeslagen worden (pdf, xlsx), hoe de bestandsnaam wordt gevormd, hoe het factuurnummer opgebouwd wordt.
Eens we hierop een antwoord krijgen kunnen we méér gerichte oplossingen geven.
Is VBA inderdaad een optie? (alhoewel ik betwijfel of het anders kan, ik laat graag mijn ongelijk bewijzen )

Ik sla mijn facturen op in PDF onder één en dezelfde map. de facturen hebben de naam van het boekjaar_factuurnummer (bv: 2025_001)
Kan je me hiermee veder helpen?

 

[peter59]

@EVE87
Tip:
Laat eens je voorbeeld zien zoals je het nu hebt. Dus geen plaatje/foto.
Ik garandeer je dat je dan al heel vlug geholpen wordt.
Nu is het helaas alweer, gissen.

 

[jverkerk]

Je maakt wat en vervolgens hoor je weken niets meer, dan ben je er even mee bezig en vervolgens weken later moet je weer opnieuw beginnen.

 

[Warme bakkertje]

Zoiets zou kunnen werken. Wijzig nog wel de bladnaam indien nodig, alsook het pad.

Sub SaveAsPdf()
    Dim fPath As String
    fPath = "D:\"
    fName = fPath & FacNumber(fPath)
    Sheets("Factuur").UsedRange.ExportAsFixedFormat 0, fName
End Sub

Public Function FacNumber(Path As String) As String
    Dim x
    On Error Resume Next
    With CreateObject("Scripting.FileSystemObject")
        For Each fl In .getfolder(Path).Files
            fName = .getbasename(fl)
            x = Application.Max(x, Split(fName, "_")(1))
        Next
    End With
    If IsError(x) Then x = 1 Else x = x + 1
    FacNumber = Year(Now()) & "_" & Format(x, "000")
End Function

 

[emields]

Wat moet een mens anders doen op een stormachtige nieuwjaarsavond.

 

[loek010]

Probeer deze facturatietool eens je kan je factuur mailen printen kortom het doet van alles wat je wilt.
Tevens worden je facturen per kwartaal opgeslagen