Discussion :

[mawlf]

Bonjour à tous,

J'ai pour projet de migrer une base FileMaker vers une base Access.
Le tout est quasi fini, mon seul hic est lorsque j'essaie d'importer des colonnes d'Excel vers Access, mon import est tronqué lorsqu'il s'agit d'information importante.

Mon champs est sous forme "Mémo" donc je suppose qu'il ne s'agit pas d'une limite de caractère.

Voici un exemple de test plus clair peut être :

Le résultat propre sur Excel



Le résultat "tronqué" sur Access lors de l'import.



Sur les fiches avec moins d'information, ça passe très bien. Mais pour les longues fiches, ça coupe et je dois repasser manuellement dessus.
Je précise que ce résultat se produit uniquement lorsque j'importe le fichier excel vers acess, ou bien quand je copie/colle la colonne en entier (avec plus de 1500 lignes). Par contre quand je copie/colle fiche par fiche, ça passe. J'utilise la suite Office 2010.

Y aurait-il une solution à ce problème ?

Merci,
MawlF.

[marot_r]

Bonjour.

Vérifie que le texte et tronqué à 255 caractères.
C'est l'ancienne limite pour la taille des textes en Excel et il arrive parfois qu'elle se manifeste.

Si c'est cela, essaye d'exporter ton fichier Excel en fichier CSV et d'importer à partir du fichier.

Sinon tu peux aussi écrire du code VBA pour transférer "à la main" tes données des cellules de Excel dans les champs de Access.
Ce n'est pas très compliqué mais c'est généralement plus lent.

A+

[mawlf]

Merci beaucoup pour ta réponse marot_r

Je pense bien qu'au final, c'est bel et bien tronqué à 255 caractères.

Je ne pense pas que je pourrais passer par le .csv étant donné qu'il ne garde pas ma mise en page (saut de ligne, accent...), j'ai tenté l'import, le rendu est pas génial.

Ensuite pour le VBA, j'ai essayé de faire quelque recherche, mais ça me semble compliqué à mettre en place sachant qu'il ne me reste plus énormément de temps.

MawlF

[marot_r]

C'est une chose que tu vas faire régulièrement ou c'est juste une fois ?

A+

[marot_r]

Regarde aussi un export XML import XML.

A+

[mawlf]

C'est un import qui est à faire une seule fois, il faut juste que je migre la base FileMaker vers Access.

C'est la même chose qu'avec le .csv au niveau du fichier XML, pas de prise en compte des accents. :/

MawlF

[marot_r]

Vérifie aussi si tu peux :

• Importer les données directement de FileMaker
• Exporter les données de FileMaker vers un BD Access
• Exporter tes données de FileMaker vers un autre format que Excel.

Sinon ici du code pour copier de Excel à Access, une cellule à la fois.
Suppose que l'entête de la colonne et le nom du champ dans ta table.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
    ' Initialiser les variables
    dim AppExcel as Obejct 'Excel.Application
    Set AppExcel = CreateObject("Excel.Application")
    AppExcel.Visible=true
    dim classeur as OBject 'Excel.WorkBoo
    Set classeur = AppExcel.Workbooks.Open("X:\TonChemin\TonClasseur.xlsx")
    dim feullle as Object 'Excel.Wortsheet
    set feuille = calsseur.worksheets("NomTaFeuille")
    cont LIGNE_ENTETE as long=1
 
    dim db as dao.database: set db=currentdb
    dim r as dao.recordset: set r=db.openrecordset("NomTaTable", dbOpenRecordset)
    dim f as dao.field
 
    dim iLigne as long
    dim iCol as long
 
    for iLigne=LIGNE_ENTETE+1 to IciNombreLigneMax
        r.addnew
 
        for iCol=1 to iciNombreCololonneMax
            set f=r.fields(feuille.cells(LIGNE_ENTETE, ICol).Value)
            f=feuille.cells(iLigne, iCol).value
 
            if instr(f,vbLf)<>0 then
                f=replace(f, vbLF, vbNwLine) 'Remplace les sauts de ligne Excel par des sauts de ligne Access.
            end if
 
        next iCol
 
        r.update
    next iIligne
 
    r.close: set r=nothing
    db.close: set db=nothing
 
    set feuille=nothing
    call classeur.close: set classeur=nothing
    call AppExcel.quit: set AppExcel=nothhing

A+

[mawlf]

Encore merci Marot_r pour ton aide.

J'ai essayé d'appliquer ton code, pour l'instant sans succès.

Au niveau de la ligne

Code :

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

Dim r As DAO.Recordset: Set r = db.OpenRecordset("NomTaTable", dbOpenRecordset)

, que dois-je mettre à la place de NomTaTable ?

Quoi que je puisse mettre, Access me met

Run-time error '3001' : Invalid Argument

Merci

[marot_r]

Bonjour.

C'est le nom de la table de destination dans Access. Là où tu veux copier les données.

A+

[mawlf]

Merci, un peu trop hâtif comme message envoyé peut être, je m'en suis rendu compte quelques minutes après l'avoir envoyé.

Je bloque maintenant sur

Code :

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

Set f = r.Fields(feuille.cells(LIGNE_ENTETE, iCol).Value)

, je ne sais pas si je dois modifier certaines valeurs et par quoi. :/

Merci,

[marot_r]

As-tu un message d'erreur ?
Autre chose ?

A+

[mawlf]

Syntax error au niveau de "cont LIGNE_ENTETE as long=1"
Run-Time error '1004': Application-defined or object-defined error pour "Set f = r.Fields(feuille.cells(LIGNE_ENTETE, iCol).Valu"

Merci,
MawlF

[marot_r]

Désolé, faute de frappe.

C'est const à la place de cont.

A+