Marco ha pensato forte :
Salve a tutti,

sto modificando un file (modello) excel che mi hanno passato, per gestire
degli inserimenti di dati.
All'interno del primo foglio è già presente un tasto per salvare la scheda
compilata in un file a parte.

Sul tasto è attivo il seguente codice VBA:

"Sub Salva()
'
' Salva Macro
'
Dim Forli As String
Dim Sav As String
'questa variabile assimila il dato che hai in una cella, per prendere il
nome,
'con cui salvare il solo foglio, io ho messo la A1, tu metterai la tua cella,
vedi sotto
Forli = Range("F2").Value
Sav = Range("H2").Value

'queste sotto sono le istruzioni in cui devi fornire il percorso, io ho messo
C:\Temp, tu metti la tua cartella
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\<username\Documenti\Schede\" & Forli & "_" & Sav & ".xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWindow.Close

'

End Sub"

Alla voce ActiveWorkbook.SaveAs Filename:="......" io vorrei sostituire
l'attuale percorso e mettere la path di windows generale (tipo %userprofile%)
in modo che se sposto il file su un altro computer non mi dia errore nel
salvataggio perchè il nome utente è diverso.

Nel tentare questa cosa ho provato ad inserire
%userprofile%\Documenti\Schede
ma mi da errore e nel messaggio mi mostra il percorso ripetuto.
Se metto solo %userprofile% invece mi salva il file nella cartella Documenti.

Dove sbaglio ad inserire il path generale?

P.s. il file viene usato rpincipalmente su 3 computer con Windows 2000, Xp
Pro e Seven.

Grazie per l'attenzione.


Ho risolto,

ho utilizzato questo codice:

---
ActiveWorkbook.SaveAs _
Filename:=Environ("USERPROFILE") & "\Desktop\" & filename, _
FileFormat:=xlNormal
---

--
M@rco.