Exporter un tableau excel en CSV

Version imprimable

26/05/2009, 23h45
Dan_pa

Exporter un tableau excel en CSV

Bonjour,

j'aimerais creer une macro qui selectionnerait une partie de ma feuille excel et l'exporterait en format csv.

Elle doit dont creer un nouveau fichier en format csv sans modifier le fichier excel et l'utilisateur doit rester dans le fichier excel.

des idees de codes?!
27/05/2009, 07h14
Krovax

Bonjour
Mieu qu'un code, voila la méthode pour apprendre en t'amusant :aie:
Tu peux essayer l'enregistreur de macro pour avoir la base. Ensuite un petit coup de F1 sur les mots clefs pour mieux comprendre le code. Et enfin si tu as de souci pour adapter tout ca. Montre nous ton code et on t'aidera :ccool:

Code:

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