XLtoCSV secondaire privé ()
Placer le shtData = l'ActiveSheet
Placer wbkDest = Workbooks.Add
shtData.Range (« $A$48 ») .CurrentRegion.Copy
Application.ScreenUpdating = faux
Pâte de 'ActiveSheet.Range (« a1 ») .PasteSpecial : =xlPasteValuesAndNumberFormats
wbkDest.Sheet1.Select
pâte de wbkDest.Sheet1.Range (« A1 ») .PasteSpecial : =xlPasteValuesAndNumberFormats, opération : = _
xlNone, SkipBlanks : Le =False, transposent : =False
Application.DisplayAlerts = faux
nom de fichier de wbkDest.SaveAs : = " C:\nv\MPGAllocation.csv ", FileFormat : =xlCSV
wbkDest.Close vrai
Application.DisplayAlerts = rectifient
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|