Catalogazione pratiche collegate a pdf con doppio click

[Anthony47]

La GetOpenFilename non ha l'opzione di impostare il percorso di partenza, devi gestirlo con ChDir; ma ChDir non modifica il drive, quindi va preceduto da ChDrive. Poi completato il lavoro sarebbe opportuno ripristinare il percorso iniziale (così eventuali comandi di Save rimangono nel percorso giusto e non finiscono qua o là.

Integrando le cose, il codice della Worksheet_BeforeDoubleClick dovrebbe essere:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String, curPath As String
'
Cancel = True
'
If Target.Address = "$D$5" Then
    myPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\"
ElseIf Target.Address = "$D$13" Then
    myPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI\P.LIST\"
ElseIf Target.Address = "$D$17" Then
    myPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI"
End If
'Fase di cambio destinazione:
Debug.Print "A", CurDir
curPath = CurDir
ChDrive Left(myPath, 2)
ChDir myPath
'Fase di ricerca file:
myFile = Application.GetOpenFilename(filefilter:="Word and Adobe Acrobat Reader Files (*.doc;*.docx;*.pdf),*.doc;*.docx;*.pdf")
If myFile = "Falso" Then Exit Sub
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Target, _
        Address:=myFile, _
        TextToDisplay:="" & Target.Value & ""
'Ripristino percorso:
Debug.Print "B", CurDir
ChDrive Left(curPath, 2)
ChDir curPath
Debug.Print "C", CurDir
End Sub


Dopo aver fatto qualche prova, apri la finestra "Immediata" del vba e controlla che le ultime registrazioni siano del tipo

Codice: Seleziona tutto

A   DriveEPercorsoIniziale
B   DriveEPercorsoModificato
C   DriveEPercorsoIniziale


[systemcrack]

Buongiorno Anthony, purtroppo oggi è un'altra pessima giornata e non so se riuscirò a lavorare sul progetto.. se non mi risenti è per questo. Appena ho un'ora libera mi cimenterò nei tuoi consigli e ti farò sapere. Grazie e buona giornata.

[systemcrack]

Mi accorgo ora di non aver più detto nulla riguardo l'argomento.. dopo tutte le cose che sono accadute tra lavoro e vita privata ho perso il filo, ma quando uso il file non rilevo anomalie quindi credo sia tutto risolto. Grazie Anthony sebbene in ritardo.