Word macro bestand opzoeken

[Peter B]

Ik krijg snb's code niet zo snel aan de praat. Wel slim om mbv dir te checken of het bestand bestaat. Scheelt het inbouwen van een error handler. Ik kom dan tot de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$A$1" Then
        If Dir("C:\Temp\Peter\" & Target.Value & ".docx") <> "" Then
            Range("B1").Value = "... EVEN GEDULD A.U.B. HET BESTAND WORDT GEOPEND ..."
            Dim objWord As Object
    
            On Error Resume Next
            Set objWord = GetObject("Word.Application")
            If objWord Is Nothing Then
                Set objWord = CreateObject("Word.Application")
            End If
            On Error GoTo 0
    
            objWord.Documents.Open "C:\Temp\Peter\" & Target.Value & ".docx"
            objWord.Visible = True
            
            Range("B1").ClearContents
        End If
    End If
End Sub

Mogelijk kan ook de controle op het open zijn van Word er uit worden gehaald, nu jouw issue alleen op de Mac bleek te spelen. Zie post #4.

 

[NicoH1967]

code

Mijn macro kennis is nog niet zo groot.
Ik heb de code als macro ingezet, maar weet niet goed wat hij doet.
Of vanuit welke cel of werkblad ik hem kan aansturen of dat er nog een verwijzing bij moet
naar de schijf waar mijn bestanden inzitten die ik wil kunnen benaderen.

Als ik hem als macro uitvoer in VBa, krijg ik foutmelding 424 "object vereist"

Het zou wel mooi zijn zo'n korte code, dus ik ben benieuwd.:thumb:

 

[snb]

plaats je bestand hier.