samenvoegen 2 vba codes

[sjonnie1974]

Hallo,

Ik zoek een oplossing voor:

Als ik een bepaalde .xls open dan wil ik dat deze zoekt naar het nieuwste bestand k:\id_8101_*.xls

In bestand openlaatste8101 werkt dit prima, geeft ie ook aan als het bestand er niet is. Top!

Nu wil ik vervolgens dat dezelfde vba code in een cel weergeeft wat de modifieddatum is, zoals deze doet in bestand showdatum.xls (deze code werkt ook goed, maar dan alleen voor een specifieke bestandsnaam)

Eigenlijk moeten dus van beide bestanden de vba codes worden samengevoegd.

LETOP! het betand waarnaar gezocht wordt kan telkens veranderen van naam, vandaar de * in openlaatste8101.xls De * werkt helaas niet in showdatum.xls

Ik zou het erg op prijs stellen dat je wanneer je een nieuwe vba code voor me schrijft er uitleg bijzet wat er gebeurt in de code (dmv de welbekende 'tekst)

Hopelijk is mijn vraag duidelijk?Bekijk bijlage openlaatste8101.xlsBekijk bijlage showdatum.xls

 

[plukkies]

bedoel je dit

Private Sub Workbook_Open()

'zoek naar datelastmodified van laatste printer90
Sheets("uitleg").Select
Dim oFS As Object
    Dim strFilename1 As String

    'Put your filename here
    strFilename1 = "ActiveWorkbook.FullName"
    voortekst = "Laatste = "

    'This creates an instance of the MS Scripting Runtime FileSystemObject class
    Set oFS = CreateObject("Scripting.FileSystemObject")

    'MsgBox strFilename & " was created on " & oFS.GetFile(strFilename).Datecreated
    Range("d10") = voortekst & oFS.GetFile(strFilename1).Datelastmodified

    Set oFS = Nothing


End Sub

 

[sjonnie1974]

Hoi Plukkie,

Nee dit bedoel ik niet, want nu moet ik alsnog de volledige bestandsnaam opgeven, terwijl ik dit niet kan.
Het bestand wat gezocht moet worden kan zijn: ID_8101_01.xls of ID_8101_02.xls of ID_8101_03.xls enz.
De vba moet hiervan de nieuwste versie uitzoeken, wat niet perse het hoogste nummer hoeft te zijn.

 

[sjonnie1974]

Kan echt niemand me hiermee helpen?

 

[Roncancio]

In bijgevoegd bestand zit code en de bijbehorende uitleg over het zoeken van de laatst geopende bestand van een bepaald ID nummer.

Met vriendelijke groet,


Roncancio

 

[sjonnie1974]

thnx, ik ga hem eens bekijken, zo op eerste oog ziet er goed uit, maar zo goed kan ik ze ook niet lezen.
Ik zet de status even op opgelost, kom erop terug indien niet is wat ik zoek

thnx!