ciao a tutti sono nuovo e capisco poco di VBA ...ho copiato i codici di cui sopra e li ho adattati alle mie necessita',pero' non riesco a fare in modo che :
il foglio attivo sia copiato avendo la possibilita' di dargli un altro nome file
fare in modo che non mantenga i collegamenti delle formule presenti nei fogli e neanche le macro ...
E' Possibile ????
Grazie a chiunque voglia darmi una dritta
Questo e' il codice che ho rappezzato dal vs. forum (FUNZIONA ma copia tutto compreso collegamenti )
Dim VBC As Object
Dim p As String
Sub CopiaFoglio()
' (1)...
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = DDir '<<< Filtro per nome
.Title = "Scegli la directory per il foglio " & ActiveSheet.Name
.Show
If .SelectedItems.Count = 0 Then 'directory non scelta
MsgBox ("Scelta non effettuata, procedura abortita"): Exit Sub
End If
DDir = .SelectedItems(1) & "\"
End With
' (2)...
NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewFName
ActiveWorkbook.Close
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End If
Next VBC
End With
End Sub
