bestand openen waarvan naam iedere keer anders is.

[vrouw]

Is het mogelijk om een tabblad uit een bronbestand te kopiëren waarvan de bestandsnaam steeds anders is?

Bronbestand zijn alleen de laatste 2 tot 6 cijfers veranderen ivm het weeknummer zoals MultistartRMS201615
Bestandsnaam word door een ander opgeslagen dus daar heb ik geen invloed op.
Ik zet dus (desnoods) handmatig bestand MultistartRMS201615 open en het doelbestand moet dan met een macro het tabblad Multistart kopieren naar het doelbestand

Doelbestand is wel altijd hetzelfde.

Ik hoop dat ik eea zo duidelijk heb uitgelegd.

 

[HSV]

Test het maar eens.

Sub hsv()
Dim naam As String
With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = Environ("Userprofile") & "\documents\"
  .FilterIndex = 2
  .Show
  .Execute
  naam = .SelectedItems(1)
 End With
 ActiveWorkbook.Sheets("multistart").Copy , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 Workbooks(Mid(naam, InStrRev(naam, "\") + 1)).Close 0
End Sub

 

[snb]

Suggestie:

Sub M_snb()
  with application.filedialog(1)
   MsgBox CreateObject("wscript.shell").specialfolders(16)
   .initialfilename= CreateObject("wscript.shell").specialfolders(16)& "\MultistartRMS*.xls*"
   if .show then ....
  end with
End Sub

 

[vrouw]

Oké, mijn reactie duurde ff omdat ik trachtte beide macro`s (van snb & HSV) te doorgronden.
Ik heb er toch wat moeite mee vrees ik en heb een paar vraagjes

@snb:
De regel if . show then .... word rood in de editor, moet ik daar nog iets mee?

@HSV:
Er word met het starten van de macro een venster naar het pad geopend om het excel bestand te openen.
Je moet dus het bestand eerst kiezen/aanklikken om verder te gaan?

 

[snb]

Ja, afmaken met wat jij wil.

 

[vrouw]

TOP, allemaal weer bedankt voor het meedenken:thumb: