Bestandsnaam controleren voor openen

[Mitchdev]

Hoi,

Totaal nieuw voor mij, dit forum, maar eens moet de eerste keer zijn
Ik wil met een macro een bestand openen, maar er zeker van zijn dat alleen het bestand met de naam "ABC" wordt geopend en niets anders.
Tot nu toe heb ik het volgende:

Dim fn As Variant
    fn = Application.GetOpenFilename("ABC.xls", _
       1, "Select One File To Open", , False)
    
    If TypeName(fn) = "Boolean" Then Exit Sub
    
    Debug.Print "Selected file: " & fn
    Workbooks.Open fn

Openen lukt nu wel, maar als ik toch een andere file kies, wil ik voorkomen dat deze geopend wordt.
Ik weet maar héél weinig van VBA. Wie kan mij helpen? Thanks!

Gr Michel

 

[Warme bakkertje]

Als er toch maar 1 bepaalde file geopend mag worden waarom ga je dan de keuze bieden om een file te selecteren.

 

[Mitchdev]

Ik stuur de gebruikers twee files toe. Eentje waarin de macro staat waarmee hij de andere toegestuurde file moet openen.
De gebruiker zal de files opslaan op een voor mij vooraf onbekende plek. Het leek mij handig de gebruiker middels een venster dan de file te laten opzoeken en openen. Lijkt wellicht onlogisch, maar dit is een onderdeel van een groter geheel.

 

[Warme bakkertje]

Als je twee files toegestuurd krijgt ga je die meer dan waarschijnlijk in dezelfde directory opslaan. Je kan dan in de eerste file gebruik maken van ThisWorkbook.path om het pad aan te geven naar het 2de bestand.

 

[Mitchdev]

Bedankt voor de TIP!
Ik ga er mee aan de slag