Macro

[Strikske]

Ik moet een upload maken vanuit een csv bestand. Maar dit bestand wordt elke dag vernieuwd en heeft elke dag een andere naam. Dus 010109.csv dag erop komt 020109.csv erbij te staan. maar dan wil ik dat de macro het nieuwe bestand upload.

Kan iemand mij hiermee helpen?

Strikse

 

[Warme bakkertje]

Met volgende functie krijg je de mogelijkheid om een bestand te selecteren.
Plaats deze in een standaardmodule en vervang in jouw macro het doorgeven v/d bestandsnaam door GetFile()
Dit zet je misschien op weg.

Function GetFile() As String
    Dim file As FileDialog, sItem As String
    Set file = Application.FileDialog(msoFileDialogFilePicker)
    With file
        .Title = "Selecteer een Bestand"
        .AllowMultiSelect = False
        'Pas dit aan naar de juiste directory en extensie
        .InitialFileName = "D:\Mijn documenten\Helpmij\*.xls"
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFile = sItem
    Set file = Nothing
End Function