Moderatori: Anthony47, Flash30005
Private Sub Workbook_Open()
Perc = ThisWorkbook.Path & "\" '<<<<<<<<<<<< percorso del file con le Pivot
FileP = ThisWorkbook.Name
File1 = "File1.xlsx" '<<<<<<<<<< nome del file con estensione di un file dati
File2 = "File2.xlsx" '<<<<<<<<<< nome del file con estensione di un secondo file dati
Workbooks.Open Perc & File1 '<<<<<<<<<< apre il file1
Workbooks.Open Perc & File2 '<<<<<<<<< apre il file2
Workbooks(FileP).Activate '<<<<<<<<<< attiva il file con le Pivot lasciando in "background" i file dati
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
File1 = "File1.xlsx"
File2 = "File2.xlsx"
Workbooks(File1).Close
Workbooks(File2).Close
End Sub
Torna a Applicazioni Office Windows
Non riesco più a scaricare le tabelle Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 20 |
Creare 2 tabelle in forma di matrici, conoscendo i totali. Autore: nelson1331 |
Forum: Applicazioni Office Windows Risposte: 5 |
Velocizzare Macro Per Riempire Di Numeri 18 Tabelle Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 58 ospiti