- 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.