Rieccomi di nuovo qua
Tramite la macro:
Sub CopiaCalendario()
Dim p As String
Dim Mpath As Variant
Cells.Select
Selection.Copy
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End Sub
Modifico il calendario, ma in realtà questa cartella (Calendario) c’è ne una in DropBox, una in Box Sync ed un’altra in altro archivio sempre in rete. Per cui dovrei ogni volta modificare manualmente il percorso di destinazione.
Ora, con l’istruzione: NewFile = Application.GetOpenFilename
cerco la destinazione del file e lo assegno ad una cella (es. “K6”)
Vorrei dire all’istruzione:
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Di andare a pescare il percorso in “K6” cioè:
Workbooks.Open = Range(“K6”)
Ma non mi ascolta….
Rugantino