Excel bestand kopieëren naar andere locatie.

[danny147]

Beste,

Graag wil ik een excel bestandje dat op locatie: G:\PLANNING\De Schepper Danny\Weekplanning.xls
willen verplaatsen naar volgende locatie: T:\Publiek\intranet\Planningsgegevens OLM\Weekplanning.xls

Zou dan in het bestandje een knopje aanmaken met daarin de code.

Groetjes Danny.

 

[Cobbe]

Zal wel een verklaring voor zijn maar waarom doe je dat niet gewoon handmatig?

 

[danny147]

Beste Cobbe,

Mijn collega en ik doen de planning op ons werk en constant wordt deze aangepast.
Daarom is het handiger om dit via een knop uit te voeren.

Waarom moeilijk maken als het simpel kan of was het andersom ?

Groetjes Danny :thumb:

 

[Cobbe]

Ik heb deze niet getest, misschien dat de extentie er nog achter hoort maar je kan dat eens testen:

Sub verplaatsen()
Application.DisplayAlerts = False
Opgeslagen_Naam = ThisWorkbook.Filename
If Dir("T:\Publiek\intranet\Planningsgegevens OLM\", vbDirectory) = "" Then
        MkDir "T:\Publiek\intranet\Planningsgegevens OLM\"
End If
ThisWorkbook.SaveAs Filename:="T:\Publiek\intranet\Planningsgegevens OLM\" & Opgeslagen_Naam
End Sub

 

[danny147]

Beste Cobbe,

Ik zal dit morgen bekijken.

Alvast bedankt

Groetjes Danny. :thumb: