Condividi:        

Concatenamento apertura files che non funziona

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Concatenamento apertura files che non funziona

Postdi systemcrack » 11/06/24 09:04

Buongiorno a tutti, ho un file chiamato "generatore schema entrate" (composto dal seguente codice) Foglio1
Codice: Seleziona tutto
Sub Duplica_Pulsante3_Click()

mEseguiSuono ("Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\[[[ [[[ SHEMA ENTRATE ]]] ]]]\sound-effects\SuperMarioBros.Coin.wav")

Dim oFSO As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Call oFSO.Copyfile("Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\[[[ [[[ SHEMA ENTRATE ]]] ]]]\schema entrate da duplicare.xlsm", "N:\schema entrate OGGI.xlsm")

strPath = "N:\schema entrate OGGI.xlsm"
ThisWorkbook.FollowHyperlink strPath

ThisWorkbook.Close SaveChanges:=False

End Sub

che tramite macro collegata ad un bottone copia il file "schema entrate da duplicare" e lo incolla in un'altra cartella rinominato in "schema entrate OGGI".
Lo schema entrate OGGI a sua volta, quando si apre dovrebbe lanciare anche il file MAPPA.MAG.ESTERNI..
codice in schema entrate OGGI / questa cartella di lavoro
Codice: Seleziona tutto
Private Sub Workbook_Open()
Dim Ckwb As Workbook
'
FFName = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\[[[ [[[ SHEMA ENTRATE ]]] ]]]\MAPPA.MAG.ESTERNI.xlsx"                 '<<< Percorso e nome del file da aprire
mySplit = Split(FFName, "\", , vbTextCompare)
On Error Resume Next
    Set Ckwb = Workbooks(mySplit(UBound(mySplit)))
On Error GoTo 0
If Ckwb Is Nothing Then
    Workbooks.Open Filename:=FFName, ReadOnly:=True
End If
Application.Iteration = True
ThisWorkbook.Activate
End Sub

uso il condizionale perchè se apro il file manualmente dopo che è stato creato, il concatenamento funziona, ma se si apre dopo che è stato generato, il file MAPPA non si apre, sebbene il collegamento tra i due files funzioni (quindi funziona anche la stampa con il doppio click da schema entrate).

Allego di seguito i 3 files per poter dissipare eventuali dubbi.
Avatar utente
systemcrack
Utente Senior
 
Post: 315
Iscritto il: 27/07/17 09:40

Sponsor
 

Re: Concatenamento apertura files che non funziona

Postdi Anthony47 » 11/06/24 10:46

In prima battuta prova, all'interno della Sub Duplica_Pulsante3_Click, ad aprire "schema entrate OGGI.xlsm" col comando Workbooks.Open invece che FollowHyperlink; cioe'
Codice: Seleziona tutto
strPath = "N:\schema entrate OGGI.xlsm"
''ThisWorkbook.FollowHyperlink strPath
Workbooks.Open strPath


Altrimenti questi sono problemi dovuti alle impostazioni di sicurezza di Excel; prova a dichiarare N:\ come "Posizione attendibile":
Menu /File /Opzioni /Centro protezione, Impostazioni Centro protezione /Posizioni attendibili; Aggiungi nuova posizione, inserisci N:\; chiudi le impostazioni
Avatar utente
Anthony47
Moderatore
 
Post: 19261
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Concatenamento apertura files che non funziona

Postdi systemcrack » 11/06/24 11:40

Sta sera prima di chiudere la baracca faccio il test e ti dico. Per il momento come sempre, grazie Anthony e buon pranzo, vista l'ora ;)
Avatar utente
systemcrack
Utente Senior
 
Post: 315
Iscritto il: 27/07/17 09:40

Re: Concatenamento apertura files che non funziona

Postdi systemcrack » 11/06/24 12:31

Sono riuscito a fare la prova ora e funziona sostituendo:
Codice: Seleziona tutto
strPath = "N:\schema entrate OGGI.xlsm"
ThisWorkbook.FollowHyperlink strPath

con
Codice: Seleziona tutto
strPath = "N:\schema entrate OGGI.xlsm"
Workbooks.Open strPath

Grande Anthony!!!
Avatar utente
systemcrack
Utente Senior
 
Post: 315
Iscritto il: 27/07/17 09:40


Torna a Applicazioni Office Windows


Topic correlati a "Concatenamento apertura files che non funziona":


Chi c’è in linea

Visitano il forum: Nessuno e 44 ospiti