xls en csv par macro

Version imprimable

03/12/2007, 18h07
jnmab

xls en csv par macro

Bonjour,

Lorsque je transforme manuellement un fichier Excel en csv, il conserve le même aspect (colonnes) qu'en excel, et il s'importe sans problème dans Access.
Lorsque j'effectue la même opération par une macro

Code:

ActiveWorkbook.SaveAs Filename:= "fichier.csv" , FileFormat:=xlCSV, CreateBackup:=False

le format du fichier csv n'est plus le même (séparation par des virgules), et je ne parviens plus à l'importer dans Access.

Quelqu'un aurait-il une solution ?
03/12/2007, 18h17
ouskel'n'or

Depuis Access, tu peux directement importer une feuille de calculs Excel en tant que table. Pourquoi ne pas plutôt utiliser cette méthode ?
03/12/2007, 18h24
jnmab

Ca me convient moins bien

Lorque j'importe un fichier Excel, je ne peux pas définir de spécificités d'importation
03/12/2007, 18h52
ouskel'n'or

Ça m'étonne beaucoup, il me semble pourtant l'avoir fait souvent... Il semble me souvenir qu'il peut y avoir un pb de format de dates mais je l'avais réglé... donc c'est possible... Mais je ne pratique plus depuis plus d'un an et je ne me souviens pas de problème :roll:
Je te laisse avec les "espécialistes" d'Access, mais tu devrais peut-être poser la question sur le forum Access.
Bonne chance
03/12/2007, 20h44
jnmab

merci

En tout cas, c'est très sympa d'avoir cherché..

Je vais suivre ton conseil, je vais aller voir du côté d'ACCESS

Tu peux toujours te faire un fichier text pour chaque feuille en VBA dans lequel tu inclues tes spécificités comme tu l'entends.

Quelque chose dans le genre de :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim fnum As Integer
Dim rng As Range
Dim r As Range
Dim c As Range
Dim ffichier As String
 
ffichier = "C:\..."
Set rng = Sheets(mafeuille).UsedRange
fnum = FreeFile()
Open ffichier For Output As #fnum
For Each r In rng
    For Each c In r.Resize(1,rng.Columns.Count)
        Print #fnum c.Value & ","
    Next c
    Print #fnum vbCrLf
Next r
Close fnum

Soir Bon
Pour jnmab

Code:

1
2
ActiveWorkbook.SaveAs Filename:= "fichier.csv" ......,Local:=True

03/12/2007, 23h53
jnmab

Ce qui m'intéresse dans les spécifités d'importation, c'est d'attribuer les noms et types des champs, et de pouvoir directement transposer les données dans ma table.

tu as un exemple ?
04/12/2007, 00h53
ouskel'n'or

As-tu posé la question sur le forum Access ? C'est un sujet qui a déjà eu être traité de nombreuses fois. Une fois que tu as le code, tu nous reviens pour l'adapter à VBA-Excel.
Juste une idée.
04/12/2007, 04h24
Invité

Bonjour

Citation:

Envoyé par jnmab

Bonjour,

le format du fichier csv n'est plus le même (séparation par des virgules), et je ne parviens plus à l'importer dans Access.

Quel est le séparateur de liste dans les options régionales du panneau de configuration de Windows ?

Citation:

Envoyé par jnmab

Lorque j'importe un fichier Excel, je ne peux pas définir de spécificités d'importation

Exact
04/12/2007, 07h19
jnmab

Bonjour,

Ouskel'nor : oui, je suis allé voir côté Access, mais je n'ai pas eu de réponse. Si c'est le cas, je ne manquerai pas de vous en faire profiter.

Je vais essayer le code de Kiki29, et regarder aussi mes paramètres régionaux, on ne sait jamais...
04/12/2007, 09h12
jnmab

gagné !

merci à tous !

Me voilà avec une épine de moins dans le pied..

La suggestion de kiki29 s'est avérée payante : il suffisait d'ajouter "Local=true", et ça fonctionne !!

merci encore !