Aprire file pdf cliccando su una cella di Excel

Question

Nelle celle di una determinata colonna excel ho riportato un "codice numerico" a 4 cifre tipo "2056" che puo cambiare da riga a riga.

In una cartella nel PC ci sono tanti file in formato .pdf che si chiamano "codice numerico_CERT" come per esempio "2056_CERT" .....

Cliccando su una determinata cella della colonna avrei bisogno che si aprisse il file in formato pdf che si chiama come il "codice numerico" con la descrizione "_CERT"....... quindi se nella cella c'e scritto 2056 si deve aprire il file 2056_CERT..... se ci fosse scritto 1598 si deve aprire il file 1598_CERT....

spero di essere stato chiaro e ringrazio chi mi aiuterà

Francesco

[ridotto il maiuscolo nel titolo]

Answer 1

segue e chiedo

Se la soluzione di casanmaner (ciao) è stata utile, ti invito intanto a contrassegnarla come soluzione valida.

è possibile spostandosi sulla colonna A01 per ogni singola cella vedere l'anteprima del relativo file pdf ?

Non è possibile l'anteprima, come ti è stato già spiegato (A01 non è una colonna però🤔).

Un'alternativa al VBA potrebbe essere quella di utilizzare la funzione COLLEG.IPERTESTUALE, ma ti occorrerebbe una colonna di appoggio dove scrivere:
=COLLEG.IPERTESTUALE("C:\Temp"&U64&"_cert.pdf";U64)

richiamando i codici presenti in U.

Ciao.

Answer 2

Cosa intendi "vedere l'anteprima".

Che venga aperto, similmente a quanto fatto con il doppio click, il pdf associato al numero?

In questo caso dovresti utilizzare l'evento Worksheet_SelectionChange

Ma così ad ogni spostamento si aprirebbe il pdf

Answer 3

Buongiorno , segue e chiedo è possibile spostandosi sulla colonna A01 per ogni singola cella vedere l'anteprima del relativo file pdf ??

Grazie.

Answer 4

Metto qui un esempio di apertura di pdf tramite il doppio click: File esempio

Nel modulo VBA del foglio1 è presente il seguente codice vba:

Option Explicit 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

   Const sPercorsoPDF As String = "C:\Test\" '<=== modificare il perorso dove si trovano i pdf 

   Const sColNumCert As String = "U" '<=== colonna in cui si trovano i codici dei nomi dei pdf 

   Const iRigaIniziale As Long = 5 '<=== riga a partire dalla quale si trovano i codici dei nomi dei pdf 

   If Not Intersect(Target, Columns(sColNumCert)) Is Nothing Then 

      If IsNumeric(Target.Value) And Target.Value <> "" And Target.Row >= iRigaIniziale Then 

         Cancel = True 

         Shell "rundll32.exe url.dll,FileProtocolHandler " & sPercorsoPDF & Target.Value & "_CERT.pdf", vbMaximizedFocus 

      End If 

   End If 

End Sub

Per accedere al codice VBA del foglio fai click destro sulla scheda del foglio:

e a quel punto inserire il percorso esatto dove si trovano i pdf e in colonna U provare ad inserire alcuni numeri dei certificati per fare delle prove.

Se è quanto desiderato riportare il codice nella propria cartella di lavoro in corrispondenza del foglio dove è presente quell'archivio per fare ulteriori test.

Il file dovrà essere salvato in formato "xlsm".

Answer 5

Le possibilità possono essere diverse.

Una procedura una tantum che crei un collegamento ipertestuale ai file per gestire i dati già inseriti.

Poi creare una procedura legata all'inserimento dei dati successivi in modo che quando viene inserito un nuovo rigo venga inserito il collegamento iper testuale in quella cella di quella riga.

Una alternativa è una procedura che con un doppio click nella cella apra il pdf ma senza che vi sia un collegamento iper testuale.

Ora io non ho idea di come venga "popolata" quella tabella e, forse, la soluzione 2 potrebbe essere meno complicata.

Tenendo anche conto che la struttura della "tabella" è piuttosto singolare.