VBA code voor openen bestand in dezelfde map

[shalhevet]

Ik snap het niet

Als ik doe wat je hebt gevraagd krijg ik alleen een popup melding met de volledige pad naar de gewenste bestand maar het bestand wordt niet geopend.

Ik dacht dat ik er bijna was met deze code:

Private Sub CommandButton1_Click()
Workbooks.Open (PathToFile("voorbeeld.xlsm"))
End Sub

dat werkt wel maar nu wil ik het dus verwijzen naar een exe en niet naar een xlsm.

Ik moet dus workbooks.open wijzigen maar in wat? ik had al geprobeerd application.open of applications.open maar dat werkt ook niet.

 

[edmoor]

Wat dacht je van de Shell opdracht die Timshel in #7 liet zien

Sub tsh()
    Dim strProgramName As String

    strProgramName = PathToFile("voorbeeld.exe")
    Call Shell(strProgramName, vbNormalFocus)
    ThisWorkbook.Save
    Application.Quit
End Sub

 

[shalhevet]

:-(

Ja daar dacht ik ook al aan maar waar moet ik het neerzetten?

En hoe combineer ik het met de andere code? Ik ben nu de weg helemaal kwijt :-(

 

[edmoor]

Gewoon als vervanger van je eigen Sub Test_File:

Sub Test_File()
    Dim strProgramName As String

    strProgramName = PathToFile("voorbeeld.exe")
    Call Shell(strProgramName, vbNormalFocus)
    ThisWorkbook.Save
    Application.Quit
End Sub

 

[shalhevet]

Ik doe echt iets fout

Het lukt me gewoon niet.

Ik heb nu het volgende:

In Module1:

Public Function PathToFile1(Filename As String)
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
Exit Function
Err:
PathToFile = ""
End Function

In sheet1:

Private Sub CommandButton1_Click()
Dim strProgramName As String

    strProgramName = PathToFile1("voorbeeld1.exe")
    Call Shell(strProgramName, vbNormalFocus)
    ThisWorkbook.Save
    Application.Quit
End Sub

Waar zit mijn fout?

 

[edmoor]

Doe eens dit en laat dan weten wat er dan wel gebeurt:

Private Sub CommandButton1_Click()
    Dim strProgramName As String

    strProgramName = PathToFile1("voorbeeld1.exe")
    MsgBox strProgramName
    'Call Shell(strProgramName, vbNormalFocus)
    'ThisWorkbook.Save
    'Application.Quit
End Sub

Laat dus hier zien wat er in de messagebox staat.


En om welke reden heb je de functie PathToFile hernoemd naar PathToFile1? Haal tevens die On Error opdracht uit de functie weg!

 

[shalhevet]

Het probleem is opgelost

Het is gelukt dankzij jullie hulp en die van de XLS Padlock forum.

De code die ik heb gebruikt uiteindelijk en die voor mij werk

Public Function PathToFile(Filename As String)
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
Exit Function
Err:
PathToFile = ""
End Function

Deze heb ik in module1 gezet

Hartelijk dank voor iedereen die hiermee heeft geholpen

 

[edmoor]

Ok dan :thumb: