Excel apertura codici pdf

[salatony]

Ciao,
Torno a chiedere aiuto,
Avrei bisogno di una macro, che attraverso alcuni codici alfanumerici
presenti nel file Excel (codici/foglio1/colonna a), mi cerchi ed apra dei disegni in pdf presenti nella cartella "disegni".

Nel forum, ho trovato: macro per visualizzare e stampare file pdf (non serve stampare ma solo aprire), moderatore Anthony47,Flash30005.

Il problema sta nel nome dei file, ad es.
nel file excel "codici" ci sono:
111122233333
k1234567
b12345
Ecc.

Nella cartella disegni ci sono i file da aprire:
111122233333descrizione
K123456descrizione
B12345descrizione
Ecc.

Quindi con la "descrizione" non li apre, se li rinomino e tolgo la descrizione li apre (Sono centinaia di file disegno), quindi bisognerebbe "tarare" la ricerca solo in riferimento al n° di digital presenti nel file Excel codici.
Come si potrebbe fare?
Ringrazio
Saluti

[Anthony47]

L'analisi non e' abbastanza circostanziata, quindi propongo "una cosa" che apre, per ogni codice presente in colonna A del foglio corrente, da riga 2 verso il basso, il primo file CODICE*.pdf che trova nella directory indicata:

Codice: Seleziona tutto

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


Sub Autopdf()
Dim I As Long, myFile As String, cFile As String, lngX As Long
Dim dPath As String
'
dPath = "C:\PROVA\"         '<<< La directory con i Pdf, con \ finale
'
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    cFile = Cells(I, "A").Value
        If cFile <> "" Then
            myFile = Dir(dPath & cFile & "*.pdf*")
            If Len(myFile) > 3 Then
                lngX = ShellExecute(vbNull, "Open", dPath & myFile, "", "", vbNormalFocus)
            End If
        End If
Next I
End Sub


Tutto va messo in un modulo standard del vba inizialmente vuoto. La riga marcata <<< va personalizzata come da commento.
All'occorrenza va eseguita la Sub Autopdf

La macro non segnala se qualche codice potrebbe corrispondere a piu' di un file, ne' se a qualche codice non corrisponde nessun file.
Queste segnalazioni possono essere inserite sul foglio di partenza, conoscendo il suo layout.

Ciao

[salatony]

Ancora grazie,
Perfetto.
Saluti