Macro crea file word rinominato come dato in specifica cella

[systemcrack]

Buongiorno,
sono sul finire dello sviluppo delle idee riguardo il file su cui sto lavorando per protocollare le pratiche dell'ufficio.
Il file protocollo.xlms è composto da più fogli: SCHEDA, REGISTRO,CHIUSE, SCHEDA TECNICA.

Nel foglio SCHEDA sto aggiungendo un pulsante collegato ad una macro che crea e apre un file word da compilare.
Di seguito riporto la macro:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
 Set WordApp = CreateObject("Word.application")
 Set WordDoc = WordApp.documents.Add
 WordApp.Visible = True
 WordApp.Application.Activate
End Sub

Ora vorrei che il file word che si va a creare fosse rinominato come il dato contenuto nella cella D5 del foglio SCHEDA, (che è il nr di pratica) e che quando lo si salva/chiude, finisse direttamente in una cartella prescelta.

[Anthony47]

Salva il file appena creato nel percorso giusto e col nome giusto.
Questo non impedirebbe all'utente di salvare successivamente il file con nome o in percorso diverso, ma se il personale e' istruito l'errore si riduce. Del tipo:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
Dim WordApp As Object, mioPath As String
'
mioPath = "\\Server\Percorso\Percorso\"
'
 Set WordApp = CreateObject("Word.application")
 Set WordDoc = WordApp.documents.Add
 WordApp.Visible = True
 WordApp.documents.Save (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "#", , , vbTextCompare) & ".docx")
 WordApp.Application.Activate
End Sub


Poiche' ho visto che talvolta il "numero di pratica" contiene caratteri non compatibili con il formato del nome file (esempio: I4S0297/03/04/05/06/07/08/09/10) il codice rimuove il carattere "/" dal numero pratica sostituendolo con "#"; se ci sono potenzialmente altri caratteri illegali devi eliminare anche quelli

[systemcrack]

Salva il file appena creato nel percorso giusto e col nome giusto.
Questo non impedirebbe all'utente di salvare successivamente il file con nome o in percorso diverso, ma se il personale e' istruito l'errore si riduce. Del tipo:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
Dim WordApp As Object, mioPath As String
'
mioPath = "\\Server\Percorso\Percorso\"
'
 Set WordApp = CreateObject("Word.application")
 Set WordDoc = WordApp.documents.Add
 WordApp.Visible = True
 WordApp.documents.Save (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "#", , , vbTextCompare) & ".docx")
 WordApp.Application.Activate
End Sub


Poiche' ho visto che talvolta il "numero di pratica" contiene caratteri non compatibili con il formato del nome file (esempio: I4S0297/03/04/05/06/07/08/09/10) il codice rimuove il carattere "/" dal numero pratica sostituendolo con "#"; se ci sono potenzialmente altri caratteri illegali devi eliminare anche quelli

Ho dato un occhiata e fatto un esperimento con i tuoi codici che ho adattato al mio caso così:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
 Dim WordApp As Object, mioPath As String
'
mioPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI\"
'
 Set WordApp = CreateObject("Word.application")
 Set WordDoc = WordApp.documents.Add
 WordApp.Visible = True
 WordApp.documents.Save (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "-", , , vbTextCompare) & ".docx")
 WordApp.Application.Activate
End Sub


ora quando provo a generare il file word si apre, ma poi come lo chiudo?

Se chiudo e rispondo Si alla domanda se salvare il file word, mi apre la finestrella del salvataggio, ma come prima, se invece rispondo No, ricevo un errore Run-time13 ed il debug mi indica la seguente riga:

Codice: Seleziona tutto

WordApp.documents.Save (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "-", , , vbTextCompare) & ".docx")

Ho provato a inserire il link alla cartella anche nell'altro modo che dicevi in un altro post,

Codice: Seleziona tutto

mioPath = "\\FILESERVER\cartella\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI\"

pensando fosse quello il problema, ma no. In teoria cliccando sul dischetto dovrebbe salvarsi sul file "già creato", ma guardando in cartella il file non viene salvato.. che stia sbagliando qualche cosa io

Di seguito uno screen del file word aperto tramite macro


Come da immagine l'intestazione del file riporta Documento2, ma in teoria già a questo punto dovrebbe chiamarsi con il dato di D5.. o sto dimenticando qualche cosa?

[systemcrack]

Ti allego il file modificato dopo tutti i tuoi consigli e l'aggiunta del nuovo codice per il file word.

[FRIEDRICH]

Ciao a tutti, prova così:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
'https://www.pc-facile.com/forum/viewtopic.php?f=26&t=113413
   
Dim WordApp As Object, WordDoc As Object, mioPath As String
   
mioPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI\"  '<<=== da adattare

Set WordApp = CreateObject("word.Application")

WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add

WordDoc.SaveAs (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "-", , , vbTextCompare) & ".docx")
WordApp.Application.Activate

End Sub

[systemcrack]

Ciao a tutti, prova così:

Codice: Seleziona tutto

Sub IstruzioniDiCarico()
'https://www.pc-facile.com/forum/viewtopic.php?f=26&t=113413
   
Dim WordApp As Object, WordDoc As Object, mioPath As String
   
mioPath = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE\ISTRUZIONI\"  '<<=== da adattare

Set WordApp = CreateObject("word.Application")

WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add

WordDoc.SaveAs (mioPath & Replace(ThisWorkbook.Sheets("SCHEDA").Range("D5").Value, "/", "-", , , vbTextCompare) & ".docx")
WordApp.Application.Activate

End Sub

SIII FUNZIONA!!! Grande FRIEDRICH!!!
Grazie tantissimo.. il migliore dei rientri al lavoro sebbene piova a dirotto.

[FRIEDRICH]

Un saluto a tutti,
grazie per il riscontro, sono contento di esserti stato di aiuto.

[systemcrack]

Un saluto a tutti,
grazie per il riscontro, sono contento di esserti stato di aiuto.

Non sai quanto..!
Era l'ultimo tassello che mancava per decretare lo sviluppo terminato (per il momento).
Ora posso iniziare ad usare e testare il file davvero.

Nei prossimi giorni, studierò meglio il "tuo codice" per vedere e capire in cosa differisce da quello passatomi da Anthony.

[Anthony47]

Allora...
Ho visto che hai trovato la soluzione alla tua domanda con il l'intuizione di FRIEDRICH.

Però...
Premetto (A) che il mio Office 365 (la versione che usi anche tu, vero?) a 64 bit (non so se e' la tua versione) funziona regolarmente (e se tutto regolare, la directory esiste, il nome file e' corretto, salva il documento col nome iniziale, SE WORD NON E' GIA' APERTO; altrimenti (se word e' gia' aperto) va in run-time error.
Ma questo non sarebbe un problema, perche' e' abbastanza facile lavorare con una sessione Word gia' aperta, evitando crearne una nuova.

Quello che temo pero' e' che sarà difficile lavorare in modo pulito e senza interferenze se la tua automazione e' in uso a piu' persone. Per gestire tutto in modo pulito bisognerebbe eliminare completamente l'interfaccia utente su Word (B) e costringere l'utente a lavorare solo con macro di Excel; ma eseguire B col rischio (vedi A) che quel Word sia in uso per altre cose mi sembra un attentato alla salute del PC.

Per questo il mio suggerimento e' di non aprire word, ma di creare un documento pdf partendo da Excel. Cioe':
-ti prepari un foglio excel, che magari tieni normalmente nascosto, con le intestazioni delle informazioni che vanno poi compilate
-all'occorrenza scopri e selezioni il foglio; cancelli il contenuto da riga 2 in avanti (nell'ipotesi che Riga 1 siano le intestazioni) e lasci all'utente compilare le informazioni
-un pulsante gia' presente sul foglio avvia la macro che salva il contenuto del foglio in formato pdf, usando il percorso e il nome file che ti servono. Il codice della macro:

Codice: Seleziona tutto

Sub SalvaENascondi()
Dim myPath, FFName As String
'
myPath = "D:\DDownloads\"                  '<<<<< Il tuo Percorso
FFName = myPath & Replace(Sheets("SCHEDA").Range("D5").Value, "/", "-", , , vbTextCompare)
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FFName, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
ActiveSheet.Visible = 0         '0=Nascosto; -1=Visibile
'Sheets("NomeSheet").Range("IndirizzoCella").Hyperlinks.Delete
'Sheets("NomeSheet").Hyperlinks.Add Anchor:=Range("IndirizzoCella"), Address:=FFName
End Sub


Se devi inserire questo file come hyperlink in qualche cella puoi ispirarti alle due righe in fondo che ora sono disabilitate.
Valuta con calma quanto detto, nell'ipotesi che l'uso del pdf sia compatibile col tuo processo...

[systemcrack]

Allora.. Anthony.. ho letto questo tuo commento in mezzo alla confusione dell'ufficio, ma credo dovrò rileggerlo un'altra volta.
Ad ogni modo per quel che ho capito è necessario che vi sia la possibilità che i miei colleghi (dello stesso ufficio) possano variare il file word per aggiornare le istruzioni. Una volta che la pratica viene registrata, chi registra non la apre più e diventa di sola consultazione (a meno che non si debbano appunto aggiungere istruzioni). Per il momento sembra funzionare bene, ma sto monitorando il comportamento del file per vedere che non s'imbizzarrisca.

[Anthony47]

Se il file che crei deve essere compilato e salvato, poi magari aperto e modificato successivamente, allora il formato pdf non va bene per voi; puoi quindi risparmiarti di capire cosa avevo suggerito.
Controlla solo che se Word fosse gia' aperto allora il codice Set WordApp = CreateObject("word.Application") non vada in errore

[systemcrack]

Se il file che crei deve essere compilato e salvato, poi magari aperto e modificato successivamente, allora il formato pdf non va bene per voi; puoi quindi risparmiarti di capire cosa avevo suggerito.
Controlla solo che se Word fosse gia' aperto allora il codice Set WordApp = CreateObject("word.Application") non vada in errore

D'accordo.. domani farò un test.
Grazie del suggerimento.. come sempre.