Hoe bestand dat geopend is activeren voor verwerking data?

[frankie111]

Ik open een willekeurig bestand in de map "datameters" maar ik heb een probleem indien het bestand dat ik wil openen, reeds geopend is. Dan vraagt hij steeds of ik dit terug wil openen, maar ik zou dan willen dat hij niets vraagt maar het geselecteerde bestand selecteerd en de rest van de macro uitvoerd.
Ik dacht dat het met onderstaande code zou lukken maar dat is niet zo. Wie weet raad?

Sub Weekdata()

Dim myfile As String
Application.FileDialog(msoFileDialogOpen _
    ).InitialFileName = "C:\Users\workstation\Desktop\datameters"
myfile = Application.GetOpenFilename()
If myfile = "" Then
   Windows(myfile).Activate
   Else
   End If
 On Error GoTo goend
   Workbooks.Open Filename:=myfile
    Windows.Application.Range("A3:N18").Select
    Selection.Copy
    Windows("Ingave meters.xls").Activate
    Range("A13").Select
    ActiveSheet.Paste
    Range("A14").Select
goend:
End Sub

 

[gast0660]

Sub Weekdata()

Dim myfile As String
[COLOR="#FF0000"]Application.DisplayAlerts = False[/COLOR]
Application.FileDialog(msoFileDialogOpen _
    ).InitialFileName = "C:\Users\workstation\Desktop\datameters"
myfile = Application.GetOpenFilename()
If myfile = "" Then
   Windows(myfile).Activate
   Else
   End If
 On Error GoTo goend
   Workbooks.Open Filename:=myfile
    Windows.Application.Range("A3:N18").Select
    Selection.Copy
    Windows("Ingave meters.xls").Activate
    Range("A13").Select
    ActiveSheet.Paste
    Range("A14").Select
goend:
[COLOR="#FF0000"]Application.DisplayAlerts = True
[/COLOR]
End Sub

 

[frankie111]

Sub Weekdata()

[COLOR="#FF0000"]Application.DisplayAlerts = False[/COLOR]
.
.
.
[COLOR="#FF0000"]Application.DisplayAlerts = True
[/COLOR]
End Sub

zou een mogelijkheid kunnen zijn maar nu duikt het probleem op dat de wijzigingen in het te openen (of open) bestand verloren gaan en dat is net wat ik zeker niet wil.

 

[snb]

Verwijder iedere 'Select' en 'Activate'.

 

[frankie111]

Verwijder iedere 'Select' en 'Activate'.

hoe bedoel je concreet met mijn code? Ben nog maar een beginner want hier schijnt dat niet echt te lukken.
Zou je de aanpassing zoals jij dat ziet willen posten aub.

 

[frankie111]

Ik heb het gevonden :d
Eerst uit het willekeurig geopende bestand de naam halen, dan opslaan om vervolgens terug te openen met de volgende formule.

Dim fileName As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fileName = fso.GetFilename(wb)
Dim wbout As Workbook
Set wbout = Workbooks(fileName)
wbout.Save
workbooks.open (wb)