[AC-2003] pb TransferSpreadsheet créer autre table

[gagouze]

Bonjour


Je cherche à faire une importation d'une feuille de calcul excel 2003 avec
la fonction TransferSpreadsheet

voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
On Error GoTo GestErr:
    ' vidange des table précédement chargé à la précédente utilisation
 
    DoCmd.RunSQL ("DELETE * FROM  IMPORT_BO_PENALITE  ;")
    DoCmd.RunSQL ("DELETE * FROM  DDATASAP  ;")
 
    Dim XL As excel.Application
    Dim strfichier As String
 
    Set XL = New excel.Application
    XL.Visible = True
    strfichier = XL.GetOpenFilename()
    DoCmd.TransferSpreadsheet acImport, 8, " " & "IMPORT_BO_PENALITE" & " ", strfichier, False, "Feuil1!A9:X65536"
 
    DoCmd.OpenQuery "Import DDATASAP", acViewNormal, acEdit
 
 
GestErr:
    MsgBox "Importation impossible"

A l'exécution acces créer une table "_IMPORT_BO_PENALITE" Avec comme nom de champ F1, F2 , F3

Si je remplace dans l'instruction TransferSpreadsheet le nom de la table IMPORT_BO_PENALITE" le programme déclente le "on Error Goto".

Pourriez vous m'aide ?

Je vous suis part avance reconnaissant.

Gagouze

[gagouze]

Le problème est résolue

Gagouze