Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Importation feuille Excel

Jacques
31/08/05 21:36
Bonsoir

Lorsque je lance cette opération une Erreur exécution 3125 se produit « le moteur BD ne peut trouver ‘$’ assurez-vous que le nom de paramètre ou d’alias est valide etc. etc.… ».

J’ai essayé de nommé la feuille AAAA, et j’ai remplacer strFeuille & "!" par « AAAA ! » et j’obtient « le moteur BD ne peut trouver ‘AAAA$’ etc. etc.… ».


Private Sub ImportationFeuilleExcel_Click()

Dim db As Database
Dim strSQL As String
Dim fd As FileDialog
Dim strFeuille As String

'--- Préparer la boîte de dialogue Ouvrir
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Choisissez un classeur"
fd.InitialFileName = "*.xls"
fd.AllowMultiSelect = True

'--- Personnaliser la liste déroulante Type de fichier
fd.Filters.Clear
fd.Filters.Add "Fichiers Excel", "*.xls"
fd.Filters.Add "Tous les fichiers", "*.*"
fd.FilterIndex = 1

'--- Ouvrir la boîte de dialogue
If fd.Show = 0 Then

'--- L'action a été annulée
Set fd = Nothing
Exit Sub
End If

'--- Passer à la partie Importation Feuille
'--- Lire la feuille
'DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
"tbl Adhérents", _
"C:\Documents and Settings\Propriétaire\Mes documents\liste1.xls", _
True, _
strFeuille & "!"
End Sub

Merci pour votre aide

Salutations
Jacques
SujetAuteurEnvoyé le

Importation feuille Excel

Jacques31/08/05 21:36

Re: Importation feuille Excel

Jacques02/09/05 14:00

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter