[AC-2003] Erreur d'exécution 2498 [Résolu]

[gentoo]

Bonjour,

Voilà plus de 4 mois que j'utilise ce code sans problèmes.
Le but est de générer une table ACCESS à partir d'un fichier Excel "MonExcel"
Aujourd'hui, çà ne fonctionne plus!!!

J'ai une Erreur d'exécution 2498: Le type d'une expression entré pour un des arguments est incorrect


Quelqu'un a t-il une idée?

Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Db As Database
Dim Req1 As Recordset
 
Namefile = "MonExcel.xls"  'Nom du fichier à tester
Pathfile = ("e:\")                 'Dossier du fichier à tester
CompletPath = Pathfile + Namefile  'Chemin complet
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(CompletPath)
DateLastModified = f.DateLastModified
 
Me.Date0 = DateLastModified
 
DoCmd.TransferSpreadsheet acImport, , , "MONEXCELACCESS_Acopier", "e:\ \MONEXCEL.xls", True
On Error GoTo 0
 
DoCmd.SetWarnings False
DoCmd.Rename "MONEXCELACCESS", acTable, "MONEXCELACCESS_Acopier"
DoCmd.SetWarnings True
 
End Sub

[loufab]

Bonjour,

Soit il y a un fantome chez toi, soit tu es somnanbule.

En tout cas ce code n'a jamais fonctionné dans l'état. Vu la syntaxe :

Code :

DoCmd.TransferSpreadsheet acImport, , , "MONEXCELACCESS_Acopier", "c:\ \MONEXCEL.xls", True

Tu devrais la vérifier avant de poster.

Cordialement,

[NguyenRD]

Envoyé par gentoo

Erreur d'exécution 2498: Le type d'une expression entré pour un des arguments est incorrect

Essaie ça:

Code :

    DoCmd.TransferSpreadsheet acImport, , "MONEXCELACCESS_Acopier", "e:\ \MONEXCEL.xls"

Bon courage.

[francishop]

Bonjour,

Peut-être :

Code :

DoCmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel9, "MONEXCELACCESS_Acopier", "e:\MONEXCEL.xls",True

True si on ne veut pas importer la première ligne.
Si la première ligne a des données normales => False ou argument vierge
On peut préciser la feuille à la suite=> ,"MaFeuille!"

Cordialement.

[gentoo]

Envoyé par loufab

Bonjour,

Soit il y a un fantome chez toi, soit tu es somnanbule.

En tout cas ce code n'a jamais fonctionné dans l'état. Vu la syntaxe :

Code :

DoCmd.TransferSpreadsheet acImport, , , "MONEXCELACCESS_Acopier", "c:\ \MONEXCEL.xls", True

Tu devrais la vérifier avant de poster.

Cordialement,

Excuses moi, Loufab (non je ne suis pas somnanbule)

J'ai modifié sous word, pour garder une discrétion sur mon fichier excel, et j'ai rajouté une virgule de trop!!!

En tout cas je n'ai rien touché sous ACCESS...

Sachez que ce matin j'ai tenté à nouveau et... ça a marché!!!

Désolé, mais avant de poster je me démène un peu quand même....

Je conclus que mon fichier Excel était corrompu, car j'en génère un nouveau chaque matin

Merci à tous pour votre concours en tout cas!!


Félicitations pour ce site!!!!!!

[loufab]

En effet si tu passes par Word et que tu rajoutes des virgules avant de poster tu n'as pas besoin d'être somnanbule ou de posséder ton fantôme personnel ...

[gentoo]

Eh bien non...!!!!

Code :

1
2
 
DoCmd.TransferSpreadsheet acImport, ,  "MONEXCELACCESS_Acopier", "e:\ \MONEXCEL.xls", True

ça replante,

pourtant j'ai la même routine pour un autre fichier excel.

Par contre j'ai ce message:

"Erreur d'exécution 3709
la clé de recherche n'a été trouvé edans aucun enregistrement"

[loufab]

Ne voyant pas ce que tu importes c'est un peu difficile d'avoir un avis.

[gentoo]

En fait, tout est lié à un problème de réseau

Il est réparé et je n'ai plus de problème

merci et désolé pour le dérangement