collegamenti ipertestuali saltati

[giostacchio]

Ciao

Non so per quale motivo ma, nel mio file xls si sono modificati tutti i collegameti da un percorso di rete collegato ad una cartella in rete appunto ad una cartella in C: users

praticamente il mio collegamento era :

File:///\\XenFS01\Gruppi\Qualità\01 SGQ\12 Qualifica ......

mentre ora sono diventati

File:///\\C:\users\AppData\Roaming\12 Qualifica...

sono circa 400 hyperlink nella solo colonna P poi ne ho altri con altre estensioni in altre colonne

si può fare qualcosa ?

[Anthony47]

Potrebbe aiutarti questa macro:

Codice: Seleziona tutto

Sub hypeRest()
Dim Hyp As Hyperlink, I As Long, hypA, olPath As String, nwPath As String
'
olPath= "\\C:\users\AppData\Roaming\"         '<<< L'attuale "percorso" corrotto
nwPath ="\\XenFS01\Gruppi\Qualità\01 SGQ\"    '<<< Il "percorso" da ripristinare
For I = 1 To Worksheets.Count
    For Each Hyp In Sheets(I).Hyperlinks
        hypA = Hyp.Address
        Hyp.Address = Replace(hypA, olPath, nwPath, , , vbTextCompare)
    Next Hyp
Next I
End Sub


Le righe marcate <<< sono da personalizzare come da commenti; i valori citati sono come l'ho capita io.

Ciao

[giostacchio]

Potrebbe aiutarti questa macro:

Codice: Seleziona tutto

Sub hypeRest()
Dim Hyp As Hyperlink, I As Long, hypA, olPath As String, nwPath As String
'
olPath= "\\C:\users\AppData\Roaming\"         '<<< L'attuale "percorso" corrotto
nwPath ="\\XenFS01\Gruppi\Qualità\01 SGQ\"    '<<< Il "percorso" da ripristinare
For I = 1 To Worksheets.Count
    For Each Hyp In Sheets(I).Hyperlinks
        hypA = Hyp.Address
        Hyp.Address = Replace(hypA, olPath, nwPath, , , vbTextCompare)
    Next Hyp
Next I
End Sub


Le righe marcate <<< sono da personalizzare come da commenti; i valori citati sono come l'ho capita io.

Ciao

[giostacchio]

risolto

grazieeeeeeeee