Mettere in primo piano un file excel rispetto ad un altro

[systemcrack]

Ciao ragazzi, ben ritrovati a tutti.. dopo mesi (forse anni) di assenza dal web, sono nuovamente tornato in ufficio, ritornando ad avere bisogno dei vostri preziosissimi insegnamenti.

Ho due file excel collegati tra loro con delle formule per un interscambio di dati.
Un file che chiameremo PRATICHE.xslx invia dati (in alcune celle) al secondo che chiameremo LOCALIZZATORE.xlsm e viceversa (per quanto riguarda altri campi).

Il primo file viene aperto dall'ufficio, il secondo dal magazzino per questo i due file non sono mai aperti sullo stesso pc.
Ciò genera un problema di comunicazione tra i due files che ho risolto facendo aprire una copia in sola lettura quando si apre uno dei due (reciclando quest'altro vostro aiuto passato).

Ora lanciando il file PRATICHE si apre una copia in sola lettura anche del file LOCALIZZATORE, ma quest'ultimo essendo lanciato dal primo comparirà/visualizzerà sopra a PRATICHE. C'è un modo per fare si che LOCALIZZATORE dopo essere stato aperto da PRATICHE vada in secondo piano o addirittura ridotto a icona?

Grazie in anticipo e buon week end!

[Anthony47]

Bentornato...

Qualcosa del tipo:

Codice: Seleziona tutto

'
Workbooks.Open "LOCALIZZATORE.xlsm" + opzioni
ThisWorkbook.Activate       'Se la macro e' contenuta in PRATICHE.xslx
'..
'..
End Sub

Fai sapere...

[systemcrack]

Ciao Anthony47 è davvero un piacere rileggerti! Mi sono accorto che venerdì ho scritto una castronata in quanto è esattamente l'inverso . Il file LOCALIZZATORE richiama il file PRATICHE quindi pratiche viene aperto in sola lettura.

Ora per fare un pò di ordine elenco la composizione dei due files:

LOCALIZZATORE (ThisWorkBook)

Codice: Seleziona tutto

Private Sub Workbook_Open()
Dim Ckwb As Workbook
'
FFName = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE SIDERURGICO.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
Call CloseOpen
End Sub

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call Macro2

FFName = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE SIDERURGICO.xlsx"                 '<<< Percorso e nome del file da aprire
mySplit = Split(FFName, "\", , vbTextCompare)
On Error Resume Next
    Workbooks(mySplit(UBound(mySplit))).Close False
    If myNext > Now Then Application.OnTime myNext, "CloseOpen", , False
On Error Resume Next

End Sub

LOCALIZZATORE (modulo)

Codice: Seleziona tutto

Sub Macro2()

nomecopia = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\copia sicurezza\salvataggi estremis\" & Hour(Now()) & "." & Minute(Now()) & " " & "-" & " " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & ThisWorkbook.Name

ThisWorkbook.SaveCopyAs nomecopia

End Sub

Codice: Seleziona tutto

Sub CloseOpen()
'Stop
Dim Ckwb As Workbook, mySplit, FFName As String
FFName = "Q:\SCANNERTRASPORTI\DOC UFF TRASPORTI\PRATICHE SIDERURGICO.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 Exit Sub
Workbooks(mySplit(UBound(mySplit))).Close False
DoEvents
Workbooks.Open Filename:=FFName, ReadOnly:=True
myNext = Now + TimeSerial(0, 30, 0)
Application.OnTime myNext, "CloseOpen"
End Sub


Mentre PRATICHE
Non ha nulla perchè viene solo richiamato.

Ora suppongo di dover apportare la modifica da te suggerita al file LOCALIZZATORE in ThisWorkBook, ma non riesco a farlo funzionare.. sicuramente sto sbagliando qualche cosa

[Anthony47]

Io avevo detto:

Codice: Seleziona tutto

'
Workbooks.Open "LOCALIZZATORE.xlsm" + opzioni
ThisWorkbook.Activate       'Se la macro e' contenuta in PRATICHE.xslx
'..

Visto che il file ausiliario lo apri all'apertura del file principale, modificherai la attuale Sub Workbook_Open:

Codice: Seleziona tutto

'..
End If
Call CloseOpen
ThisWorkbook.Activate          '<<<
End Sub


Non ho capito cosa fai con la CloseOpen, che riesegui periodicamente; a me pare che in sequenza chiudi il file PRATICHE SIDERURGICO.xlsx e immediatamente lo riapri. Non so lo scopo di questo apri e chiudi, ma aggiungi anche qui l'attivazione del file principale:

Codice: Seleziona tutto

'..
Workbooks.Open Filename:=FFName, ReadOnly:=True
myNext = Now + TimeSerial(0, 30, 0)
Application.OnTime myNext, "CloseOpen"
ThisWorkbook.Activate          '<<<
End Sub

Ciao

[systemcrack]

Grande Anthony47 sei veramente il migliore!!! Così funziona!

Non ho capito cosa fai con la CloseOpen, che riesegui periodicamente; a me pare che in sequenza chiudi il file PRATICHE SIDERURGICO.xlsx e immediatamente lo riapri. Non so lo scopo di questo apri e chiudi, ma aggiungi anche qui l'attivazione del file principale:

Codice: Seleziona tutto

'..
Workbooks.Open Filename:=FFName, ReadOnly:=True
myNext = Now + TimeSerial(0, 30, 0)
Application.OnTime myNext, "CloseOpen"
ThisWorkbook.Activate          '<<<
End Sub

Ciao

Eh perchè io non so esattamente ogni stringa cosa fa. Sono andato a rileggermi i vecchi post e ho cercato di aggiustare quello script al mio caso. Quella parte lì se non ricordo male era perchè l'altro file doveva autoaggiornarsi ogni minuto, io ho aumentato il tempo a 30 min.

Ed ora ho imparato una cosa nuova

[Anthony47]

Quella parte lì se non ricordo male era perchè l'altro file doveva autoaggiornarsi ogni minuto, io ho aumentato il tempo a 30 min.

Si, ha senso: se il file viene aggiornato (da altri) allora chiuderlo e riaprirlo periodicamente ti dà l'ultima versione...