Ciao a tutti,
ho un problema enorme con i collegamenti ipertestuali di excel e spero nel vostro aiuto.

File di excel con 8 fogli di lavoro
ogni foglio contiene un elenco di documenti
nella colonna C è riportato l'elenco numerico dei documenti (da 1 a 1000)
ad ogni cella numero corrisponde un collegamento ipertestuale al file PDF corrispondente al documento elencato
i file pdf sono contenuti in diverse cartelle a seconda della numerazione (1-99;100-199; ecc)
le cartelle sono contenute in una cartella "docPdf" salvata sul server

Il problema è che non posso più aprire i pdf collegati in quanto senza alcuna ragione apparente excel ha modificato il percorso di collegamento da: \\Server\docpdf\1-99\nomefile.pdf
a: \\C:\Documents and Settings\Users\Dati applicazioni\Microsoft\Excel\docpdf\1-99\nomefile.pdf

DOMANDA:
1) qual'è l'origine del problema? così che possa evitare si ripeti
2) come posso attribuire nuovamente il giusto percorso senza doverlo fare manualmente per tutti i 7000 docuementi?
3) potete suggerirmi un altro sistema per gestire l'elenco dei documenti?

grazie infinite e buona giornata a tutti.

salve
ti rimando alla lettura di un vecchio post che proponeva la stessa problematica:
http://forum.aiutamici.com/yaf_postst67025_Excel-2007--Collegamenti-ipertestuali--Modificare.aspx

nel tuo caso dovrai modificare la macro come segue:

Sub CambiaLink()
Dim Hyl As Hyperlink
newname = "\\Server\docpdf\1-99\"
For Each Hyl In Sheets("Foglio1").Hyperlinks
x = Split(Hyl.Address, "\")
nomefile = x(UBound(x))
Hyl.Address = newname & nomefile
Next Hyl
End Sub


PS. Provare sempre su un file provvisiorio
saluti
Giap

---

salve
prova a modificare così:

Sub CambiaLink()
Dim Hyl As Hyperlink
newname = "\\Server\docpdf\"
For Each Hyl In Sheets("Foglio1").Hyperlinks
x = Split(Hyl.Address, "\")
nomefile = x(UBound(x) - 1) & "\" & x(UBound(x))
Hyl.Address = newname & nomefile
Next Hyl
End Sub

saluti
Giap

---

salve
qual'è la riga che ti dà l'errore?
la puoi individuare cliccando sul pulsante "Debug" quando compare il messaggio di errore.
La riga incriminata è quella evidenziata in giallo.
saluti
Giap

---

salve
Nel tuo foglio ci sono forse altri collegamenti ipertestuali? del tipo riferimenti a nomi o celle del documento?
se si, l'errore che segnali è normale poichè l'array che viene creato dall'istruzione split avrà un unico elemento e l'istruzione x(UBound(x) - 1) manda tutto nel pallone.
prova a modificare così:

Sub CambiaLink()
Dim Hyl As Hyperlink
newname = "\\Server\docpdf\"
For Each Hyl In Sheets("Foglio1").Hyperlinks
x = Split(Hyl.Address, "\")
If UBound(x) > 1 Then
NOMEFILE = x(UBound(x) - 1) & "\" & x(UBound(x))
Hyl.Address = newname & NOMEFILE
End If
Next Hyl
End Sub

saluti
Giap

---

scusa, dimenticavo di dirti che in tutti i fogli genera i collegamenti alle cartelle giuste (1-99, 100-199, ecc)
mentre sul "2010" genera i collegamenti alle cartelle 1-100, 101-200, ecc.
ciao

quello degli apici è stato un errore di trascrizione, ma in effetti la stringa da sostituire è \\C:\Documents and Settings\Users\Dati applicazioni\Microsoft\Excel\docpdf\1-100\nomefile.pdf benchè la cartella 1-100 non esista e non sia mai esistita. Tanto più che prima del pasticcio i collegamenti alla cartella 1-99 funzionavano.
ciao

Ciao,
con le tue istruzioni sono riuscita a sistemare tutti i fogli tranne l'ultimo creato. Grazie, grazie, grazie!!!!

Ma posso abusare ancora della tua pazienza?
Per risolvere la questione sull'ultimo foglio dovrei rifare tutti i collegamenti manualmente, ma se cancello la colonna con i collegamenti che non funzionano e ne ricreo una nuova, c'è un modo per attribuire automaticamente gli indirizzi dei collegamenti ipertestuali?