[VBA] Salvare file nella cartella corrente di Word

[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"
Set wApp = New Word.  
 Set wDoc = wApp.Documents.Open(PercFile & "\Valuta2.docm")
     wDoc.Activate 
       wApp.Visible = True
 End Sub

grazie ciao

[gibra]

Tu scrivi:

Nome = TxtNome.Text

Ora, Nome contiene anche il percorso?
perchè se non lo contiene.... mica lo può indovinare.

Fai il DEBUG del tuo codice e scoprirai il problema...

[Al_adin]

NOME non contiene il percorso, ma se glielo assegno insieme al contenuto di TXT il nome del file diventa.

PercorsoNome es. CartellaSimona e non solo Simona.

Ho provato anche così

ActiveDocument.SaveAs FileName:=PercFile & Nome & ".docm"

ma non funziona.

[gibra]

PercorsoNome es. CartellaSimona e non solo Simona

Che roba è???
CartellaSimona non è un percorso, è una stringa!

Davvero non riesco a capire cosa scrivi...

Ma l'hai fatto il DEBUG?

[oregon]

Forse il problema è solo

ActiveDocument.SaveAs FileName:=PercFile & "\" & Nome & ".docm"

[Al_adin]

Grazie Oregon, esatto !

anche questa volta ho risolto grazie a te. A volte mi perdo in un bicchiere d'acqua.

Ciao grazie ancora

[gibra]

Originariamente inviato da Al_adin
Grazie Oregon, esatto !

anche questa volta ho risolto grazie a te. A volte mi perdo in un bicchiere d'acqua.

Ciao grazie ancora

Però se tu facessi il DEBUG del codice, non avresti nemmeno bisogno di chiedere (e aspettare) l'aiuto di un forum, almeno per questi problemi davvero... da perdersi in un bicchier d'acqua.

[Al_adin]

Caro Gibra,

il debug l’ho fatto più volte, ma non risultano errori nel codice, pertanto non mi è servito assolutamente a niente farlo. Ma poi i forum sono stati inventati per condividere conoscenze e, per chi ne avesse voglia, fornire aiuto a chi è meno esperto pertanto, se per te è così fastidioso rispondere, mi chiedo per quale motivo tu sia qui.

Le critiche costruttive sono utili, ma quelle inutili, come le tue non servono a niente e a nessuno. Ho dichiarato di essere un pivello alle prime armi con il VBA quindi se tu pensi di essere un “espertone” e le domande per te banali, offendono il tuo ruolo di “Signore degli anelli” beh, non rispondere, non sei indispensabile, diversamente se vuoi fare un commento fanne uno costruttivo.

Non so chi tu sia, ma da ciò che scrivi sembra che oltre a non aver capito il banale problema, per chi sa, tu non sia neanche in grado di risolverlo.

Tanti saluti