Discussion :

[Kartoon67]

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,

[babybell]

Bonjour Kartoon67

Justement je suis en plein dedans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ton bouton n'a qu'à pointer dessus

[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'

[Kartoon67]

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

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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
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

[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.