tabblad kopieren naar een anderbestand

[vrouw]

Is het mogelijk ommet VBA een tabblad uit een openstaand bestand te kopieren als een nieuwe tabblad naar een ander bestand wat niet een vaste naam heeft.
Het eerste gedeelte van de bestandsnaam is wel altijd hetzelfde tot het weeknummer en jaar.

Bestand waarheen gekopieerd moet worden heet prognoses_week&datum.xls

 

[HSV]

Met zoiets.

Sub hsv()
With Application.FileDialog(1)
.InitialFileName = "c:\users\gebruiker\documents\prognose_*.xls" 
  If .Show Then Workbooks.Open (.SelectedItems(1))
   With ActiveWorkbook
     ThisWorkbook.ActiveSheet.Copy , .Sheets(Sheets.Count)
     .Close -1
   End With
End With
End Sub

 

[vrouw]

Bedankt alvast voor het meedenken maar er gebeurt weinig bij mij.

Moeten alle twee de bestanden open staan als ik de macro draai en wat moet er dan gaan gebeuren?

 

[HSV]

Als je de code laat lopen, wijst zich dat vanzelf.

 

[vrouw]

Hij opent dan namelijk met een popup scherm om een bestand te openen

 

[VenA]

Hoe moet Excel weten naar welk bestand het tabblad gekopieerd moet worden? De vraag is dermate vaag dat er alleen algemene code zoals in #2 gemaakt kan worden en waar je dus zelf even mee aan de slag zal moeten.

Of de vraag verhelderen natuurlijk.

Of rechter muisknop en het tabblad kopiëren naar het andere bestand als deze open staat. (heb je helemaal geen code nodig)

 

[HSV]

Je kan toch kiezen uit die pop-up (filedialog).
Even dit stukje aanpassen.

"c:\users\gebruiker\documents\prognose_*.xls"

Alle bestanden met de naam die beginnen met 'prognose_" komen tevoorschijn en kiez daar eentje uit.
De rest gaat zoals omschreven.