All'inizio sembrava funzionasse ora ma occorre perfezionarlo in quanto ci sono 2 errori che mi sembra di aver individuato.
Intanto metto la macro creata
- Codice: Seleziona tutto
Sub STAMPO_FILE_EXCEL()
'
' STAMPO_FILE_EXCEL Macro
'
'
Range("AS1:CI211").Select
Range("CI1").Activate
Workbooks.Add
Windows("Analisi 4.2n.xlsm").Activate
Windows("Cartel1").Activate
Windows("Analisi 4.2n.xlsm").Activate
Selection.Copy
Windows("Cartel1").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Analisi 4.2n.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Cartel1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1:AQ1").Select
Selection.ColumnWidth = 1.2
Range("A1").Select
Windows("Analisi 4.2n.xlsm").Activate
ActiveSheet.Shapes.Range(Array("Picture 55")).Select
Selection.Copy
Windows("Cartel1").Activate
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 10.5
Selection.ShapeRange.IncrementTop 75.5
Windows("Analisi 4.2n.xlsm").Activate
ActiveSheet.Shapes.Range(Array("Group 56")).Select
Selection.Copy
Windows("Cartel1").Activate
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 5
Selection.ShapeRange.IncrementTop -58
Range("R13").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\PERCORSO\PERCORSO1\PERCORSO2\NOME FILE.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Range("AV14:BP14").Select
End Sub
La prima problematica riguarda la "Cartel1".
Difatti, quando salva il 1° file funziona tutto bene, ma nell'elaborazione della macro dovrebbe essere indicato "Cartel2" etc etc
La seconda problematica è il nome da dare al FILE che vorrei fosse preso dalla cartella di origine nella cella D14
Mi date un aiutino?
Grazie