[AC-2007] Macro TransferSpreadsheet ne marche plus sous 2007 [Résolu]

[Nikodemus]

Bonjour à tous,
J'ai une macro d'import de fichier excel sous forme de table dans un Autoexec.
Mon code marche parfaitement sous 2003 mais plante sous 2007 !!
D'ou peut venir le problème à votre avis ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Import_Table1()
 
DoCmd.DeleteObject acTable, "Liste_des_opérations"
 
Dim strDbPath As String
Dim strDbFile As String
 
strDbPath = CurrentDb.Name
strDbFile = Dir(strDbPath)
CurrentDbDir = Left(strDbPath, Len(strDbPath) - (Len(strDbFile) + 1))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Liste_des_opérations", CurrentDbDir & "\Liste_des_opérations.XLS", True
 
End Function

Pour info la macro supprime d'abord la table en question, va chercher le fichier Excel "Liste_des_opérations.XLS" dans la dossier de la base et l'enregistre en table.

Merci par avance.
Cordialement.

[Philippe JOCHMANS]

Bonjour

Plante message d'erreur ?

Philippe

[Nikodemus]

Oui un message d'erreur d'exécution de la macro Autoexec.
Mais la table est bien supprimée donc la macro doit planter au niveau du transfert de la feuille Excel.

[Philippe JOCHMANS]

Re

Un test, mets l'instruction DoEvents avant le transfert pour voir.

Philippe

[Nikodemus]

Le TransfertSpreadsheet fonctionne quand je met juste :

Code :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Liste_des_opérations", "C:\Nouveau dossier\Liste_des_opérations.XLS", True

Le problème viens donc à ce niveau là :

Code :

1
2
3
strDbPath = CurrentDb.Name
strDbFile = Dir(strDbPath)
CurrentDbDir = Left(strDbPath, Len(strDbPath) - (Len(strDbFile) + 1))

Mais je n'arrive pas à savoir pourquoi ...

Sinon avez vous un autre code pour trouver le fichier Excel du même dossier que la base ?

Merci d'avance.

[Nikodemus]

Résolu