Exelwerkblad met een VBA project in Dropbox

[jojajupa]

Hallo,
Ik heb een twee mans bedrijf waarbij wij een factuur gemaakt hebben.
In deze factuur zit een macro waarbij bij elke volgend factuur het factuurnummer met (1) opgehoogd wordt.
Ook de datum gaat automatisch mee.
Voorbeeld:

Private Sub Workbook_Open()
Dim x, cl
x = -1
cl = Dir("C:\Users\Janet\Dropbox\Corpoli\*")
Do Until cl = ""
x = x + 1
cl = Dir
Loop
With [Blad1!B5]
.Value = IIf(x > 0, x + 1, 1)
.NumberFormat = "2015-000"
End With
[Blad1!B6] = Date
End Sub

Nu heb ik deze factuur in de dropbox gezet zodat mijn compagnon ook bij deze factuur kan.
Alleen het factuurnummer wordt nu niet opgehoogd omdat de 'Dir' naar een andere locatie verwijst.
Weet iemand hier een oplossing voor?

 

[VenA]

Plaats svp code tussen codetags.

Misschien dat zoiets werkt.

naam = environ("username")
if naam ="jouw naam" then cl = Dir("C:\Users\Janet\Dropbox\Corpoli\*") else cl = dir(..............)

 

[edmoor]

Maak er eens dit van :

Private Sub Workbook_Open()
    Dim x As Integer
    Dim cl As String
    
    x = -1
    cl = Dir(Environ("userprofile") & "\Dropbox\Corpoli\*")
    Do Until cl = ""
        x = x + 1
        cl = Dir
    Loop
    
    With [Blad1!B5]
        .Value = IIf(x > 0, x + 1, 1)
        .NumberFormat = "2015-000"
    End With
    [Blad1!B6] = Date
End Sub

 

[jojajupa]

VenA en edmoor, bedankt.
De code van edmoor werkt perfect.
Nogmaals dank.

 

[edmoor]

Graag gedaan en welkom bij Helpmij

 

[VenA]

@Edmoor,

jojajupa
Junior Member
Geregistreerd
21 januari 2011
Ben je niet wat laat met welkom heten?:d

Environ("userprofile") kende ik niet. Dus kan ik weer aan mijn grijze massa toevoegen.:thumb:

 

[edmoor]

Beetje in de bonen. Zat verkeerd te lezen. Maar is goed bedoeld