Hallo,
Met behulp van dit topic heb ik de onderstaande code in elkaar geknutseld:
Mijn code werkt zoals het hoort, wanneer de file op een lokale schijf (C) staat.
Zodra ik de file verplaats naar een netwerkdrive (I) werkt de macro niet.
Nieuwe facturen worden niet meer opeenvolgend opgeslagen als (Factuur 2013001, Factuur 2013002, Factuur 2013003,..) maar Factuur2013001 wordt overgeschreven.
Wie weet waar de probleem ligt?
Is het een instelling in windows of excel? Of moet de code veranderen?
Met behulp van dit topic heb ik de onderstaande code in elkaar geknutseld:
Code:
Sub tst()
Dim Nr As Integer, Pad As String, c1 As String, x As String, Naam As String, i As Integer, Omschr As String, MijnPad As String
Omschr = "Factuur 2013" 'tekst waarmee factuurnummer begint
MijnPad = ActiveWorkbook.Path 'directory waar de facturen staan
Pad = MijnPad & IIf(Right(MijnPad, 1) <> "\", "\", "")
c1 = Dir(Pad & Omschr & "*.pdf*") 'zoek xls-files (en xlsm,xlsx, ...) die beginnen met bovenstaande omschrijving
Do Until c1 = "" 'zoeken tot je alle files langsgelopen hebt
x = Replace(c1, Omschr, "") 'verwijder omschrijving
i = InStr(1, x, ".pdf") 'nu nog de file-extensie
If i > 0 Then x = Left(x, i - 1)
If IsNumeric(x) Then 'is wat overblijft nog numeric
Nr = WorksheetFunction.Max(Nr, CInt(x)) 'zoek hoogste nummer tot nogtoe
End If
c1 = Dir
Loop
Naam = Omschr & Format(Nr + 1, "000") 'naam van de factuur (voor het geval je max. 999 facturen per jaar maakt
[Factuurnummer!A1].Value = Naam
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & Naam & ".pdf"
Workbooks.Open (Pad & "Origineel_factuur.xlsm")
ThisWorkbook.Close
End Sub
Mijn code werkt zoals het hoort, wanneer de file op een lokale schijf (C) staat.
Zodra ik de file verplaats naar een netwerkdrive (I) werkt de macro niet.
Nieuwe facturen worden niet meer opeenvolgend opgeslagen als (Factuur 2013001, Factuur 2013002, Factuur 2013003,..) maar Factuur2013001 wordt overgeschreven.
Wie weet waar de probleem ligt?
Is het een instelling in windows of excel? Of moet de code veranderen?