[XL-2007] export en csv avec un bouton [Résolu]

[boitenospam]

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

[jfontaine]

Bonjour,

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?

[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

[boitenospam]

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

[kiki29]

Salut, à tester

Code :

sPath = ThisWorkbook.Path & "\"

Code :

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

Code :

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

[boitenospam]

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

[kiki29]

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