[RISOLTA] Aprire un file pdf ad una specifica pagina

nTdQ231201

00 11/04/2024 14:26

Ho un libro in formato pdf salvato nella cartella "Manuale" su desktop.

Su userform vorrei inserire un bottone dove mettere una macro per aprire il file pdf ad una specifica pagina X.

Un aiuto se possibile.

Grazie

rex88

OFFLINE

dodo47

Post: 3.777

Registrato il: 06/04/2013

Utente Master

2010

00 11/04/2024 17:05

ciao
poichè non hai allegato un esempio della tua UserForm, ti trascrivo un codice che apre un pdf alla pagina che inserisci nella cella A1 di un foglio.

NB: le parti evidenziate dovrai cambiarle secondo i tuoi percorsi:
- Const cAdobeReaderExe contiene il percorso del tuo exe di acrobat

- PDFfile contiene il percorso del tuo file "Manuale.pdf"

In A1 metti il numero di pagina ed esegui la macro.

Ovviamente se il numero pagina è in una TextBox, al posto di:
.....& ActiveSheet.Range("A1").Value.......
ci andrà :
& TextBox.Value

saluti

Const cAdobeReaderExe As String = "C:\Program Files (x86)\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" ' MODIFICA SECONDO TUO PERCORSO

Public Sub OpenPagePdf()
    Dim PDFfile As String
    Dim AdobeCommand As String
    PDFfile = "C:\Users\Utente\Desktop\Manuale.pdf" ' MODIFICA SECONDO TUO FILE MANUALE.PDF
    AdobeCommand = " /a ""page=" & ActiveSheet.Range("A1").Value & "=Open Actions"" " ' Modificare
    Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFfile & Chr(34), vbNormal
End Sub

Domenico
Win 10 - Excel 2016

nTdQ231201

00 11/04/2024 17:47

Ciao Domenico,

non ho allegato il file perchè ritenevo la spiegazione sufficientemente chiara.

Ti ringrazio per il codice.

Foirse nella spiegazione del post di apertura non è stata chiara.

Ho messo appositamente la X a significare che l'apertura del file non era per una determinata pagina ad es. 10 ma per rendere la scelta libera, cioè lasciare a me la seleziona della pagina e aprirla.

Spero di essere stato chiaro.

OFFLINE

dodo47

Post: 3.778

Registrato il: 06/04/2013

Utente Master

2010

00 11/04/2024 17:58

mi sembra chiaro che la pagina X la scegli tu....nell'esempio che ti ho fornito, scrivi la pagina che vuoi in A1 ed esegui la macro

saluti

Domenico
Win 10 - Excel 2016

nTdQ231201

00 11/04/2024 18:02

Non ho messo in dubbio la macro.

Ma il pulsante lo voglio mettere su una userform e sulla stessa userform avere la possibilità di selezionare una pagina e aprirla e non attraverso il foglio.

OFFLINE

dodo47

Post: 3.779

Registrato il: 06/04/2013

Utente Master

2010

10 11/04/2024 18:04

io ti ho fornito il modo in cui farlo.....ora sta a te adattarlo alle tue esigenze.

Ti crei la tua bella UserForm, con textBox e quant'altro e adatti il codice.

Non pretenderai che ti faccia la UserForm con annessi e connessi vero?

saluti

Domenico
Win 10 - Excel 2016

nTdQ231201

00 11/04/2024 18:17

Aprire un file pdf ad una specifica pagina

Non ho chiesto di farmi la userform e mi dispiace che tu lo abbia solo pensato.

Avevo già fatto la userform e trovato su questo forum una risposta

https://www.excelvba.it/Forum/story/Excel_e_gli_applicativi_Office/Macro_apertura_file_pdf.html

che non coglieva in pieno quanto da me cercato.

Comunque ti ringrazio.

Saluti

rex88

OFFLINE

dodo47

Post: 3.780

Registrato il: 06/04/2013

Utente Master

2010

10 11/04/2024 18:40

certo che sei proprio strano Rex.....

Che la pagina da aprire sia su un foglio oppure in un oggetto all'interno di una UserForm, io ti ho fornito una soluzione, basta che la adatti al tua user form che ti ricordo io non posso sapere come è strutturata

saluti

Domenico
Win 10 - Excel 2016

nTdQ231201

00 11/04/2024 19:42

Ok

Di nuovo grazie.

Per me potete anche aggiungere [RISOLTA].

Saluti.

rex88

Excel Forum Per condividere esperienze su Microsoft Excel

[RISOLTA] Aprire un file pdf ad una specifica pagina

Anteprima