1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| 'déclaration du nom du fichier csv
nom_fichier = "tempo.csv"
'déplacement vers le dossier temporaire
ChDir Environ("TEMP")
'copie des cellules contiguës à A1
Worksheets("ok").Range("A1").CurrentRegion.Copy
'ouverture d'un nouveau document Excel
Workbooks.Add
'"collage" des données
ActiveSheet.Paste
'désactivation de la copie
Application.CutCopyMode = False
'désactivation des questions posées à l'utilisateur par Excel
Application.DisplayAlerts = False
'suppression des feuilles inutiles
For i = 2 To Worksheets.Count
Worksheets(Worksheets.Count).Delete
Next i
'sauvegarde du nouveau document au format CSV
ActiveWorkbook.SaveAs Filename:=nom_fichier, FileFormat:=xlCSV, CreateBackup:=False
'fermeture du document sauvegardé
ActiveWindow.Close |
Partager