Verkenner openen

[SUVERMO]

beste forumleden,

Onderstaande macro maakt een PDF en opent de verkenner

Sub Stamboom_opslaan_als_PDF()
Range("Stamboom!$C$6:$N$38").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\DierenMakkelijk\PDF\" & Range("Stamboom!$F$5").Value
Call Shell("explorer.exe C:\DierenMakkelijk\PDF\", vbNormalFocus)
End Sub

Kan iemand deze uitbreiden met volgende
1° als het te maken bestand reeds geopend is, deze dan eerst sluiten.
2° als de map C:\DierenMakkelijk\PDF\ reeds geopend is, deze dan eerst sluiten.
3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm

[cow18]

oei, dat wordt een harde dobber

2° als de map C:\DierenMakkelijk\PDF\ reeds geopend is, deze dan eerst sluiten.

[SUVERMO]

of als reeds geopend dan niet meer openen

[edmoor]

In het geval van #3 kan het met dit: (Start de Sub Routinenaam)

Sub OpenFolder(Naam As String)
    Dim oShell As Object
    Dim Wnd As Object
    
    Set oShell = CreateObject("Shell.Application")
    For Each Wnd In oShell.Windows
        If Wnd.Name = "Verkenner" Then
           If Wnd.Document.Folder.Self.Path = Naam Then Exit Sub
        End If
    Next Wnd
    
    CreateObject("Wscript.Shell").RegWrite _
        "HKCU\Software\Microsoft\Office\" & Application.Version & _
        "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
    
    Application.ThisWorkbook.FollowHyperlink Address:=Naam, NewWindow:=True

    CreateObject("Wscript.Shell").RegWrite _
        "HKCU\Software\Microsoft\Office\" & Application.Version & _
        "\Common\Security\DisableHyperlinkWarning", 0, "REG_DWORD"

End Sub

Sub Routinenaam()
    OpenFolder "C:\DierenMakkelijk\PDF"
End Sub

[SUVERMO]

bedankt edmoor

zo werkt het blijkbaar ook

Sub Stamboom_opslaan_als_PDF()
Range("Stamboom!$C$6:$N$38").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\DierenMakkelijk\PDF\" & Range("Stamboom!$F$5").Value
OpenFolder "C:\DierenMakkelijk\PDF"
End Sub


Sub OpenFolder(Naam As String)
'voorkomt dat verkenner nogmaals C:\DierenMakkelijk\PDF opent

    Dim oShell As Object
    Dim Wnd As Object
    
    Set oShell = CreateObject("Shell.Application")
    For Each Wnd In oShell.Windows
        If Wnd.Name = "Verkenner" Then
           If Wnd.Document.Folder.Self.Path = Naam Then Exit Sub
        End If
    Next Wnd
    
    CreateObject("Wscript.Shell").RegWrite _
        "HKCU\Software\Microsoft\Office\" & Application.Version & _
        "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
    
    Application.ThisWorkbook.FollowHyperlink Address:=Naam, NewWindow:=True

    CreateObject("Wscript.Shell").RegWrite _
        "HKCU\Software\Microsoft\Office\" & Application.Version & _
        "\Common\Security\DisableHyperlinkWarning", 0, "REG_DWORD"

End Sub

Kan iemand deze uitbreiden met volgende
1° als het te maken bestand reeds geopend is, deze dan eerst sluiten.
3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm

[snb]

Gebruik application.filedialogs.

Gebruik de lock down produktief: volg een cursus VBA voor absolute beginners: leer eerst het alfabet voordat je aan de taal begint.

[cow18]

even verstand op nul na vorige reactie, de aanpassingen van Edmoor hebben het probleem 2 opgelost en dus resten enkel nog problemen 1 en 3 ???
Zie mijn reactie #2, openen en sluiten van een map, vind ik dat nogal dubieus.

[SUVERMO]

1 en 3 zijn nog niet opgelost.

1° als het te maken PDF bestand reeds bestaat en het is geopend dan dit eerst sluiten omdat het anders fout gaat bij het opnieuw maken.

3° de afmeting die explorer.exe gebruikt beperken tot ¼ van het scherm