Excel & Acrobat

[Ca.R]

Salve A TUTTI,

sottopongo questo (spero) semplice problema:
Da un foglio excel è facile inserire un collegamento ipertestuale ed aprire (p.es.) un file .PDF
Poi, come noto, cliccando sul collegamento si apre il file.pdf
Il problema è come chiudere in automatico il file .pdf p.es dopo 5 minuti.
Ovviamente ho provato ad utilizzare il registratore vba di excel, ma (altrettanto ovviamente) essendo un operazione da eseguire "fuori" dall'applicativo excel non ho registrato nulla.

La chiusura del file .PDF mi serve per sostituire il file stesso con uno aggiornato (con lo stesso nome file e percorso)
Grazie, saluti
Ca.R (GO)

[PcBase]

Ciao

Provo ad inserire un esempio di codice per chiudere un file Pdf
Ovviamente dovrai sostituire i nomi dei file e i relativi percorsi per renderlo operativo.

segue codice da inserire in un Modulo:

Codice: Seleziona tutto

Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

'-------------------------------------------------------------------------------------------------
Public Function CloseApplication(ByVal sAppCaption As String) As Boolean
Dim lHwnd As Long
Dim lRetVal As Long
lHwnd = FindWindow(vbNullString, sAppCaption)
If lHwnd <> 0 Then
lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
End If
End Function

Sub Apri_File()
'Specificare tutto il percorso di trova l'eseguibile di acrobat:
'nel mio caso...
'"C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.exe"
'Mentre...
'"C:\Novità\test Ishihara.pdf" è la posizione del pdf da visualizzare

    Dim Esegui
    Esegui = Shell("C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.exe" & " " & "C:\Novità\test Ishihara.pdf")
End Sub

Sub Chiudi_Pdf()
    'Qui si assegna all'argomento sAppCaption il nome presente nella label
    sAppCaption = "test Ishihara.pdf - Adobe Reader"
    Run CloseApplication(sAppCaption)
End Sub

[Ca.R]

Ok ci provo
grazie molte per il prezioso, puntuale e radipo suporto.
Saluti
CaR