bewaar factuur als

[markdewi]

In de Microsoft Verkoopsfactuur5.xls (te downloaden) staat een stukje code om de factuur aan te passen, als volgt:

Public Sub LeesFactuurnummer()
    pad$ = Application.DefaultFilePath
    controle = Dir(pad$ + "\FactuurNummer.txt")
    If controle = "" Then
        FactuurNummer1 = "1000"
        Call Bewaarfactuurnummer
    End If
    Open pad$ + "\Factuurnummer.txt" For Input As #10
    Input #10, FactuurNummer1
    Close #10
End Sub
    
Public Sub Bewaarfactuurnummer()
    Open pad$ + "\FactuurNummer.txt" For Output As #10
    Print #10, FactuurNummer1
    Close #10
End Sub
    
Public Sub NoteerFactuurnummer()
'Noteer nu het opgehaalde factuurnummer in het werkblad
    Application.GoTo Reference:="Factuurnr."
    ActiveCell.FormulaR1C1 = FactuurNummer1
    Application.GoTo Reference:="EersteArtikel"
    DoEvents
End Sub

Standaard plaatst de code dan een bestandje "factuurnummer.txt" in de map "mijn documenten.

Ik wil nu (1) de naam van dit bestandje zelf kunnen kiezen en (2) de plaats waar dat wordt weggeschreven willen kiezen.

Deze plaats staat op een ander werkblad, werkblad noemt "Start", en de
bestanden staan op
cel C18 C:\Dierwinkel
cel C19 beer
cel C24 aap100

Daarmee wil ik het tekstbestandje aap100.txt plaatsen in C:\Dierwinkel\beer

maar de code werkt niet

Public Sub FactuurnummerAanpassen()
    frmFactuurnummerAanpassen.Show
End Sub

    
Public Sub LeesFactuurnummer()
    
Open [Start!C18].Value & "\" & [Start!C19].Value & "\" & [Start!C24].Value & ".txt" For Input As #10
Input #10, FactuurNummer1
Close #10
End Sub

    
Public Sub Bewaarfactuurnummer()
  Open [Start!C18].Value & "\" & [Start!C19].Value & "\" & [Start!C24].Value & ".txt" For Input As #10
      Print #10, FactuurNummer1
    Close #10
End Sub
    
Public Sub NoteerFactuurnummer()
'Noteer nu het opgehaalde factuurnummer in het werkblad
    Application.Goto Reference:="Factuurnr."
    ActiveCell.FormulaR1C1 = FactuurNummer1
    Application.Goto Reference:="EersteArtikel"
    DoEvents
End Sub

Hoe moet dat dan wel ?

 

[Revdutchie]

Ik ben nog VBA noob, maar volgens mij mis ik in je eerste sub "vanaf hier" een End IF en voor de eerste en tweede regel staat een '

 

[markdewi]

typfout gecorrigeerd

bij openen van het xls. bestand geeft VBA een foutmelding op volgende regel

Public Sub LeesFactuurnummer()
 

Open [Start!C18].Value & "\" & [Start!C19].Value & "\" & [Start!C24].Value & ".txt" For Input As #10

 

[ReneDirks]

Wat is de foutmelding?

 

[markdewi]

De Foutmelding is:

Fout 54 tijdens uitvoering: ongeldige bestandsmodus
Ik wordt doorgestuurd naar VBA naar de volgende lijn:

  Print #10, FactuurNummer1

 

[ReneDirks]

Het probleem zit hier:

Open [Start!C18].Value & "\" & [Start!C19].Value & "\" & [Start!C24].Value & ".txt" [B]For Input [/B]As #10

En vervolgens ga je er in schrijven.... Dus in plaats van for input moet je 'm even For Output openen.

 

[markdewi]

perfect !
hartelijk dank