Salvare File nella cartella corrente

[Al_adin]

Help me please

Premetto che sono un novello del VBA.

Ho creato in Word un file .docm che ho chiamato “Valuta2.docm”, ma ho un problema con il salvataggio che mi sta facendo impazzire.
Il file con la macro è contenuto in una cartella che ho chiamato “Valuta Word” e che posso spostare su qualsiasi computer. Dopo aver modificato il file “Valuta2” il file viene rinominato con il nome preso da una textbox, cliccando su un pulsante. Il file viene salvato con quel nome e contemporaneamente mi si apre un nuovo file “Valuta2.docm” contenuto sempre nella cartella “Valuta Word”.

Purtroppo i file rinominati vengono sempre salvati nella Cartella C:\Users\NomeUsers\Documents. Io vorrei invece che venissero salvati nella stessa cartella in cui è contenuto il file “Valuta2.docm” che è poi la stessa cartella che posso spostare su qualsiasi computer.

Succede una cosa strana. Quando apro il file "Valuta2.docm" per la prima volta, da File - Apri il nuovo file creato con la macro, ma solo questo, mi viene salvato nella cartella giusta, cioè in "Valuta Word". Il successivo che viene aperto automaticamente, quando salvato va a finire nella cartella C:\Users\NomeUser\Documents. Perchè ?????
Ho provato in mille modi, ma c’è qualcosa che mi sfugge e non riesco a capire dove sbaglio.

Ecco il codice

Private Sub CMDSalva_Click()
Dim Nome, PercFile  As String
Nome = TxtNome.Text
PercFile = ActiveDocument.Path    
ActiveDocument.SaveAs FileName:=Nome & ".docm"      
ListBox1.Clear
TextBox1.Text = ""
Unload UserForm1
Set wApp = New Word.
 Set wDoc = wApp.Documents.Open(PercFile & "\Valuta2.docm")
    wDoc.Activate
    wApp.Visible = True
End Sub

grazie ciao

 

[Vins]

Ciao, mi sembra che in FileName:=Nome & ".docm" manchi il percorso iniziale (PercFile).

 

[Al_adin]

Ciao, mi sembra che in FileName:=Nome & ".docm" manchi il percorso iniziale (PercFile).

Fatto, funziona grazie mille :fonzie:

ciao