Sauvegarde de données au format .csv

Version imprimable

04/06/2009, 11h07
Kartoon67

3 pièce(s) jointe(s)

Sauvegarde de données au format .csv

Bonjour,

J'ai crée une base de donnée sous excel et je souhaite qu'elle enregistre une copie au format .csv lors d'un appui sur un bouton.

En créant une macro et en faisant la manipulation manuellement, cela me crée un fichier .csv mais avec des erreurs.

Je vous met ci-joint des photos avec des explications pour mieux comprendre le problème.

Merci d'avance,
04/06/2009, 13h26
babybell

Bonjour Kartoon67

Justement je suis en plein dedans

Code:

ActiveWorkbook.SaveAs Filename:="C:\Facturation\" & année & ".csv" , FileFormat:=xlCSV, CreateBackup:=False

Ton bouton n'a qu'à pointer dessus
04/06/2009, 13h38
ouskel'n'or

En 97 je crois me souvenir que la procédure manuelle d'enregistrement d'un csv ne fonctionnait pas par macro... Mais peut-être me trompe-je... A tout hasard, donc, regarde ici. Il s'agit d'un txt mais pour les csv c'est tout pareil ;)
Bon aprem'

J'ai essayer ton bout de code mais j'observe une erreur.

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub FichierTxt()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
    DerniereLigne = f.Range("A1").SpecialCells("C8").Row
    DerniereColonne = f.Range("A1").SpecialCells("C8").Column
    Open "\\FRU1FIC1\rid$\Nouveau dossier\Base_de_donnee.xls" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula + ";";
            'pour séparateur ";" tu remplaces si ton séparateur est une virgule
        Next j
        Print #1, f.Cells(i, j + 1).Formula
    Next i
    Close #1
End Sub

04/06/2009, 19h32
ouskel'n'or

Quand on "observe une erreur", il est bien de préciser où (sur quelle ligne et quel message reçois-tu ?) sinon, nous, d'où on est, on a plus de mal à jouer aux devinettes :mrgreen:
Quoi que... le fichier que tu veux créer est un csv, non un xls et si tu ouvres un xls for output, m'étonnerait que vba apprécie beaucoup ;)
08/06/2009, 08h53
Kartoon67

Bonjour,

Je tenais à préciser que j'étais totalement novice en macro donc j'esaye de comprendre au fur et à mesure.

J'ai pas fait attention au output.

J'ai réessayer et cela fonctionne parfaitement.

Merci à toi.