Discussion :

[xtof79]

Bonjour,
j'importe une feuille Excel généré par un logiciel pro, qui comporte un champ calculé (au lieu d'avoir le mot "voiture" dans le champ, par exemple, j'ai la formule

Code :

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

=("voiture")

Ce champ est primordial pour l'outil que je développe, et malheureusement à l'import c'est la valeur "0" qui remonte.
Suis-je obligé de manipuler le tableur avant import ? (j'ai vu ceci : https://www.developpez.net/forums/d1...-excel-import/ mais c'est pour l'instant au delà de mes compétences)
Ou connaissez-vous une astuce pour contourner ce problème ?
Merci à vous !

[tototiti2008]

Bonjour,

J'ai créé un classeur Excel avec des formules de ce type
J'ai importé ce classeur dans une table access (onglet Données externes - Nouvelle source de données - a partir d'un fichier - Excel) et je n'ai pas eu de soucis
Quelle est votre méthode d'import ?

Edit : Quel est le format du fichier Excel, également, xls, xlsx, xlsm...

[xtof79]

la feuille est un xlsx
attention on parle d'un import en vba

Code :

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

DoCmd.TransferSpreadsheet acImport, , "T021_Dernière_Exportation_CLCA", _

[tototiti2008]

Re,

DoCmd.TransferSpreadsheet a un 2ème argument AcSpreadSheetType, avez-vous essayé en le renseignant ?

https://learn.microsoft.com/fr-fr/of...ferspreadsheet

[xtof79]

je n'avais pas pensé à cette option...
mais pareil, en ajoutant acSpreadsheetTypeExcel12, toujours mes 0

[tototiti2008]

Re,

Pouvez-vous nous fournir une version du fichier Excel (sans données confidentielles) qui poserait problème ?

[xtof79]

J'avais quelques scrupules à l'envoyer tel quel, j'ai voulu anonymer un peu mon tableur, l'allèger (~2000 lignes)...
Bref, en supprimant simplement des lignes (version modifié : 30 lignes) ça passe ! c'est une piste...?

[tototiti2008]

Re,

Oui, c'est une piste
En modifiant le fichier et en l'enregistrant, vous avez probablement modifié son format (mis à jour son format vers la dernière version des fichiers Excel, donc probablement Excel 2016) et d'un coup ça passe
Une autre piste est que vous aviez dans les données effacées une donnée corrompue particulière qui posait soucis
A l'aveugle je ne sais pas trop, mais à fouiller

Je suppose que votre fichier a donc un format pas tout à fait de la dernière version d'Excel, donc je tenterais avec le 2ème argument de TransferSpreadsheet avec des valeurs plus ancienne que Excel12, pour voir si ça passe avec les autres valeurs

[xtof79]

j'ai testé tous les paramètres SheetType sans succès.
En revanche, effectivement en ouvrant et enregistrant sous un autre nom, ça passe.
Format foireux, ça ne m'étonne pas vu l'origine de l feuille excel...
Je crois que je n'ai pas d'autre choix que d'automatiser une procédure de réenregistrement avant l'import...
Merci de ton aide quoi qu'il en soit

[tototiti2008]

Re,

Content qu'on ait identifié la source du problème
Voir peut-être avec l'outil qui génère les fichiers s'il y a possibilité de modifier leur format d'export...

[xtof79]

Effectivement j'étais sur cette piste, m'enfin les formats proposés sont pas très explicites, y'a du tâtonnement en perspective...

[tototiti2008]

Re,

En exportant en CSV ou en TXT, il n'y aura pas de soucis de format, normalement
il faudra utiliser DoCmd.TransferText, je pense

[xtof79]

le problème du csv ou du txt c'est qu'il faut créer soit-même les conditions d'importation (codage, séparateur...).
https://www.developpez.net/forums/d2...ation-csv-vba/
Mais ça vaut peut-être le coup...

[xtof79]

j'ai trouvé une fonction qui permet de réenregistrer le fichier excel avant l'import, ça règle le problème :

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
Function ImporterEtReenregistrerExcel(cheminFichier As String, nomTable As String) As Boolean
    On Error GoTo Erreur
 
    Dim xlApp As Object
    Dim xlWorkbook As Object
 
    ' 1. Ouvrir et réenregistrer le fichier Excel
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlWorkbook = xlApp.Workbooks.Open(cheminFichier)
    xlWorkbook.Save
    xlWorkbook.Close
    xlApp.Quit
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
 
    ' 2. Importer le fichier dans Access
    DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:=nomTable, _
        FileName:=cheminFichier, _
        HasFieldNames:=True
 
    ImporterEtReenregistrerExcel = True
    Exit Function
 
Erreur:
    MsgBox "Erreur : " & Err.Description, vbCritical
    ImporterEtReenregistrerExcel = False
End Function