åben anden fil og gem den som ny med Excel makro

Excel fil med filnavne = x
Excel fil der kopieres = y

Kan man overføre værdier fra regneark x til regneark y uden at åbne det så det popper op i x?

Hvis du også har stien med i begge celler, så:

Public Sub KopierFil()
Dim SourceFile, DestinationFile
SourceFile = Range("A1").Value    ' Define source file name.
DestinationFile = Range("A2").Value      ' Define target file name.
FileCopy SourceFile, DestinationFile    ' Copy source to target.
End Sub

jeg har en værdi i A3. Kan jeg få den over i den nye fil?

Public Sub KopierFil()
Dim SourceFile, DestinationFile
SourceFile = Range("A1").Value    ' Define source file name.
DestinationFile = Range("A2").Value      ' Define target file name.
FileCopy SourceFile, DestinationFile    ' Copy source to target.

Workbooks.Open Filename:=DestinationFile
Sheets("ark1").Range("A3") = ThisWorkbook.Sheets("ark1").Range("A3")
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Jeg kunne se at dette lige skulle på i stedet:
ActiveWorkbook.Sheets("ark1").Range("A3") = ThisWorkbook.Sheets("ark1").Range("A3")

Jeg kan se der bliver åbnet et nyt dokument og det bliver lukket hurtigt igen. Er det muligt at skjule dette?

Kan man ikke blot åbne det "binært" så man ikke kan se der bliver arbejdet med en anden fil?

Public Sub KopierFil()
Dim SourceFile, DestinationFile
SourceFile = Range("A1").Value    ' Define source file name.
DestinationFile = Range("A2").Value      ' Define target file name.
FileCopy SourceFile, DestinationFile    ' Copy source to target.
Application.ScreenUpdating = False
Workbooks.Open Filename:=DestinationFile
Sheets("ark1").Range("A3") = ThisWorkbook.Sheets("ark1").Range("A3")
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Der kommer stadig et lille ikon frem i bundlinien men det kan man nok ikke gøre noget ved.
Ellers virker det bare helt perfekt. Mange tak for hjælpen, det var sku fedt.

Vil du svare :)

et svar ;-))