export en csv avec un bouton

Version imprimable

27/08/2011, 12h51
boitenospam

export en csv avec un bouton

bonjour à tous !
j'ai une feuille excel dont j'aimerai sauvegarder une copie en csv en appuyant sur un bouton.
Je trouve plein d'exemple sur google mais très peu fonctionne correctement.
quelqu'un a t-il déjà réussi à le faire ?
Merci pour votre aide
27/08/2011, 18h25
jfontaine

Bonjour,

Citation:

Je trouve plein d'exemple sur google mais très peu fonctionne correctement.

Peux tu développer ce qui ne te convient pas.
Quelle est la méthode utilisée?
27/08/2011, 20h50
kiki29

Salut,tu n'as pas vraiment cherché car les solutions opérationnelles pullulent, utilise l'enregistreur de macros et optimise le code manuellement
Voir également sur ce site http://www.google.fr/#sclient=psy&hl...w=1045&bih=734

bonsoir,
tout d'abord merci beaucoup d'accorder un peu d'attention à mon problème et d'avoir pris le temps d'y répondre
j'ai cherché toute l'après midi et j'ai enfin trouvé le code de mes rêves car il fonctionne et en plus permet du choisir la ligne et colonne de départ (je ferai un bouton ensuite sur la feuille mais j'ai 2 problèmes, voivi déjà le code :
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 25 26 27 28 29 Sub Make_CSV() Dim sFile As String Dim sPath As String Dim sLine As String Dim r As Integer Dim c As Integer r = 1 'Starting row of data sPath = "C:\TEMP\" sFile = "MyText_" & Format(Now, "YYYYMMDD_HHMMSS") & ".CSV" Close #1 Open sPath & sFile For Output As #1 Do Until IsEmpty(Range("D" & r)) 'You can also Do Until r = 17 (get the first 16 cells) sLine = "" c = 4 Do Until IsEmpty(Cells(1, c)) 'Number of Columns - You could use a FOR / NEXT loop instead sLine = sLine & """" & Replace(Cells(r, c), ";", ":") & """" & "," c = c + 1 Loop Print #1, Left(sLine, Len(sLine) - 1) 'Remove the trailing comma r = r + 1 Loop Close #1 End Sub
deux probème :
-j'aimerai que le fichier csv soit enregistrer dans le dossier courant à coté du xlsm ouvert
-supprimer les "" et avoir des ; à la place des ,

je vois bien les lignes à modifier mais je que je modifie ne fonctionne pas bien

28/08/2011, 03h57
kiki29

Salut, à tester

Code:

sPath = ThisWorkbook.Path & "\"

Code:

sLine = sLine & ";" & Cells(r, c)

Code:

Print #1, Right$(sLine, Len(sLine) - 1)

[RESOLU]

Le code est maintenant parfait !
l'export produit un vrai fichier csv et on peut même choisir à partir de quelle ligne et quelle colonne, j'ai ajouté un bouton dans ma feuille qui appele la macro, que du bonheur !
Merci pour votre aide

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
25
26
27
28
29
30
 
Sub Make_CSV()
Dim sFile As String
Dim sPath As String
Dim sLine As String
 
Dim r As Integer
Dim c As Integer
 
    r = 1 'Starting row of data
 
    sPath = ThisWorkbook.Path & "\"
    sFile = "Ucopia_" & Format(Now, "DDMM_HHMMSS") & ".CSV"
 
    Close #1
    Open sPath & sFile For Output As #1
    Do Until IsEmpty(Range("A" & r))
    'You can also Do Until r = 17 (get the first 16 cells)
        sLine = ""
        c = 4
        Do Until IsEmpty(Cells(1, c))
           'Number of Columns - You could use a FOR / NEXT loop instead
            sLine = sLine & ";" & Cells(r, c)
            c = c + 1
        Loop
        Print #1, Right$(sLine, Len(sLine) - 1) 'Remove the trailing comma
        r = r + 1
    Loop
    Close #1
End Sub

28/08/2011, 19h07
kiki29

Salut,non, changer les déclarations Integer en Long