collegamento Link celle

Hai un problema con Excel?

Nuova discussione

collegamento Link celle
di Enzo (utente non iscritto) data: 19/04/2016 09:17:47
Ciao A tutti,
volevo un vostro aiuto.
In un foglio excel ho nelle celle della colonna a collegamenti a cartelle
C'e' la possibilita all'apertura del file con un comando posto in workbook.open che nelle celle adiacenti al collegamento di controllare ed inserire se il collegamento non esiste.
Mi spiego meglio
se in a1 ho un link di collegamento a c:pippo e la cartella la rinomino in seguito in pluto all'apertura del file dovrebbe segnalarmi in b1 che il collegamento non c'e' piu o errore
Grazie del vostro prezioso aiuto

di cromagno data: 19/04/2016 17:05:10
Ciao Enzo,

potresti usare la funzione Dir(percorso,vbDirectory).

Guarda sotto... il codice per l'apertura del file e di seguito quello per la "verifica".

Ti allego un file d'esempio...

Private Sub Workbook_Open()
Call Verifica
End Sub

Sub Verifica()
Dim uRiga As Long, i As Long, percorso As String

With Worksheets("Foglio1")
    If .Range("A2").Value <> "" Then
        uRiga = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("B2:B" & uRiga).ClearContents
        For i = 2 To uRiga
            percorso = .Range("A" & i).Value
            If Dir(percorso, vbDirectory) = "" Then
                .Range("B" & i).Value = "Il percorso non esiste"
            Else
                .Range("B" & i).Value = "OK"
            End If
        Next i
    End If
End With
End Sub

di cromagno data: 19/04/2016 17:16:48
Ciao di nuovo...

se nella cella non ci fosse direttamente il percorso del collegamento ma un altro testo, per ottenere il percorso del collegamento, modica la riga :

percorso = .Range("A" & i).Value

in questo modo:

percorso = .Range("A" & i).Hyperlinks.Item(1).Name

Vuoi Approfondire?