ho un problema con il salvataggio automatico di un file word tramite un codice VBA di Excel.
In un altro post avevo chiesto aiuto per salvare un foglio excel in un percorso rilevato da codice stesso.
Ora, utilizzando come base questo codice, devo salvare invece un file word. Purtroppo mi trovo in difficoltà perchè il file viene salvato in una posizione che non è quella desiderata:
La struttura della mia cartella è così:
00-CONTATTI
01-MAIL
02-DISEGNI
03-CALCOLO
-02-XLS
04-OFFERTE_CONTRATTO
Ora la seguente macro trova in automatico la posizione del file xls nel quale si trova il codice (cartella 02-XLS), mi torna "indietro" di 2 cartelle e mi salva il file.
Quello che non riesco a fare e dirgli ancora di entrare nella cartella 04-OFFERTE_CONTRATTO
- Codice: Seleziona tutto
Perc1 = ThisWorkbook.Path
Slash1 = InStrRev(Perc1, "\")
PercF = Left(Perc1, Slash1 - 1)
Slash2 = InStrRev(PercF, "\")
PercFinale = Left(PercF, Slash2) & "04-OFFERTE_CONTRATTO"
sSalvataggio = "Offerta_n_" & ThisWorkbook.Worksheets("QGL10.03b").Range("H3").Value & "_" _
& ThisWorkbook.Worksheets("QGL10.03b").Range("I3").Value & "_" _
& ThisWorkbook.Worksheets("Riepilogo").Range("D1").Value & "_" _
& ThisWorkbook.Worksheets("Riepilogo").Range("K3").Value _
& "_del_" & Format(Now, "dd.mm.yyyy") & ".doc"
objWord.Visible = True
objDoc.SaveAs (PercFinale & sSalvataggio)
objDoc.Close
Set objDoc = Nothing
Qualcuno può darmi una mano per risolvere il problema?
Grazie mille
