In un foglio Excel ho una lista utenti, tramite una form popolo questa lista a cui per ogni utente vorrei caricare la sua rispettiva foto. Per poter scegliere la foto dell'utente utilizzo il codice che leggete sotto abbinato ad un pulsante:
- Codice: Seleziona tutto
Private Sub CommandButton12_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim FileSelezionato As Variant
With fd
If .Show = -1 Then
For Each FileSelezionato In .SelectedItems
Dim iRow, icol As Integer
iRow = 2
icol = 1
While Cells(iRow, icol).Value <> ""
iRow = iRow + 1
Wend
TextBox15 = FileSelezionato
Next FileSelezionato
Else
End If
End With
Set fd = Nothing
End Sub
Eseguo la ricerca del file, trovato il file mi riporta la stringa del link nella casella di testo TextBox11.
Non interessandomi di salvare il link, vorrei invece salvare il file selezionato in una specfica cartella con l'istruzione "ThisWorkbook.Path", per memorizzarla in una sottocartella dalla path da cui sto lavorando, atribuendogli il nome prelevandola dalla casella di testo "idtext" che mi viene popolata tramite un'altra istruzione.
Il codice funziona molto bene, ma mi areno quando cerco di sfruttare la variabile "FileSelezionato".
Nell'attesa di ricevere aiuto dalla comunity vi ringrazio tuttim, aticimpandovi i miei agurui di Buone Feste.