Exel

[pscheppers]

Bakerman

Het pad dat ik u doorgegeven heb daar staat de map 'afgewerkte diensten' en de werkbladen. N u heb ik deze gekopieerd naar usb stick, omdat ik ni direct op de originele werkbladen wil uitproberen. Ik heb een copie genomen van de code en aangepast naar f:\ afgewerkte map. Misschien heeft dit ermee te maken dat uw pscheppers,xlms niet werkt bij. Wanneer ik de macro start wordt het werkblad weggeschreven naar f:\ afgewerkte diensten, de juiste map,dus het werkt wel.

Patrick

[bakerman]

Als je het op je USB-stick kan laten werken moet het op je harddrive ook werken.

 

Om uit te testen of het pad ook werkelijk bestaat kan je onderstaande eens gebruiken.

Wijzig het pad maar eens naar een bestaand en een onbestaand pad.

 

Sub test()
    MsgBox PathExists("g:\December\30-12-2016\")
End Sub
Private Function PathExists(pname) As Boolean
'   Returns TRUE if the path exists
    Dim x As String
    On Error Resume Next
    x = GetAttr(pname) And 0
    If Err = 0 Then PathExists = True _
      Else PathExists = False
End Function

 

30 december 2016 aangepast door bakerman

[pscheppers]

Bakerman

Heb het pad verandert in d:\afgewerkte diensten. Dit pad bestaat

Patrick

 

[bakerman]

Heb jij Option Explicit bovenaan je module staan ?

 

Elke code die ik hier al gepost is getest door mij en werkend bevonden. Bij jou werkt er niks.

Ik vraag mij echt af waarom!!!!

[pscheppers]

Bakerman

sorry voor de last maar van vba ken ik niks. Ik kan wel begrijpen dat het voor jou ook niet plezant is dat jij oplossingen post en het niet werkt bij mij. Misschien doe ik wel iets verkeerd zonder dat ik het weet. Het is altijd veel makkelijker als jezelf achter de pc zit om een probleem op te lossen dan hulp op afstand.

Patrick

 

[pscheppers]

Bakerman

Ik heb een voorstel. Als u ni te ver van Mechelen woont wil ik wel langskomen zodat u kunt zien wat eigenlijk de bedoeling is als u dat ziet zitten.

Patrick