percorso file desktop

Question

Buongiorno a tutti e grazie in anticipo.

tramite VBA devo allegare un file pdf , il file viene esportato sul mio desktop, visto che il programma viene utilzzatato da svariati utenti è possbile inserire una stringa che non tiene conto del nome utente, vi faccio un esempio per praticità

quando salvo il mio file il percorso è il seguente C:\Users\tessaril\Desktop\Report.pdf

se invece lo salva l'utente Bianchi il suo percorso sarà C:\Users\bianchic\Desktop\Report.pdf

Private Sub Invia_Click()

Dim OutApp As Object

Dim OutMail As Object

Dim Percorso As String

Dim Filename As String

ActiveWorkbook.Save

Foglio3.Activate

Percorso = "C:\Users\tessaril\Desktop"

Filename = "Report.pdf"

Application.DisplayAlerts = False

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

With OutMail

.To = "" 

.CC = 

.BCC = "" 

.Subject = "Report cliente" 

.Attachments.Add Percorso & Filename 

.Display 

End With

Application.DisplayAlerts = True

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

Answer 1

Dovresti "costruire" il percorso in questo modo

Percorso = Environ("USERPROFILE") & "\Desktop"

ciao

Answer 2

Prego :-)

Answer 3

Dovresti "costruire" il percorso in questo modo

Percorso = Environ("USERPROFILE") & "\Desktop"

ciao

Grazie 1000 funziona perfettamente