Discussion :

[David M]

Bonjour le forum,

Juste une "tite" question.
J'ai crée une fonction qui me permet d'importer des feuilles de calcul excel vers access=>jusque là, pas de problème.
Quand je teste cette fonction, l'importation s'effectue sans problème, la table est créee également sans problème, mais, dans cette table j'ai X champs supplémentaires
Ex : si dans ma feuille excel, j'ai 5 champ, je dois retrouver dans ma table acces 5 champs et non plus.
Je vous remercie de votre aide.

[SfJ5Rpw8]

Bonjour le forum,

Juste une "tite" question.
J'ai crée une fonction qui me permet d'importer des feuilles de calcul excel vers access=>jusque là, pas de problème.
Quand je teste cette fonction, l'importation s'effectue sans problème, la table est créee également sans problème, mais, dans cette table j'ai X champs supplémentaires
Ex : si dans ma feuille excel, j'ai 5 champ, je dois retrouver dans ma table acces 5 champs et non plus.
Je vous remercie de votre aide.

montre nous ton code svp...

[m-mas]

je pense que dans ta feuille Excel il y a bien des champs qui sont vide et qui les importe dans Access !

[David M]

Bonjour Morci et bbil, voici-ci dessous le code de ma fonction.
Dans excel, je n'ai rien d'autre que les données qui m'intéressent.
En revanche, cela à peut être de l'importance, mais toutes les feuilles de mon classeur excel sont issues de données d'internet via "requete sur le web".
Si c'est la cause, alors, existe t'il une parade ?
Je vous remercie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ImportationFeuille(ByVal strFeuille As String)
Dim strSQL As String
 
' Lire la feuille
DoCmd.TransferSpreadsheet acImport, _
    acSpreadsheetTypeExcel9, _
    "toto", _
    "C:\Mes documents\essai.xls", _
    True, _
    strFeuille & "!"
 
 
End Function

[pgz]

Bonjour,

Dans ta commande d'import, précise dans l'argumant 'étendue' la plage à importer. Apparemment, tu ne donnes actuellement que le nom de la feuille.

Bonne chance,

pgz

[SfJ5Rpw8]

pgz m'as devancé ... qu'as tu dans les colonnes en trop ?


pour limiter à 5 colonnes un code dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
unction ImportationFeuille(ByVal strFeuille As String)
Dim strSQL As String
 
' Lire la feuille
DoCmd.TransferSpreadsheet acImport, _
    acSpreadsheetTypeExcel9, _
    "toto", _
    "C:\Mes documents\essai.xls", _
    True, _
    strFeuille & "!a:f"
 
 
End Function

[David M]

Bonjour à tous

Eh bien me voilà renseigné avec ce que je viens d'apprendre.
Merci.