Discussion :

[Christophe]

Bonsoir,

Je cherche à importer un fichier excel après sélection de celui-ci.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim fDialog As Office.FileDialog
 
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
 
With fDialog
.AllowMultiSelect = False
.Title = "Veuillez sélectionner le fichier à importer"
.Filters.Clear
.Filters.Add "Access Databases", "*.XLSX"
.Filters.Add "Access Databases", "*.XLS"
 
If .Show = True Then
 
 MsgBox .SelectedItems(1)
 DoCmd.TransferSpreadsheet acImport, 8, .SelectedItems(1), True
 
End If
End With

LE MsgBox m'affiche le bon nom de fichier avec le chemin devant, mais la commande transferspreadsheet me retourne une erreur avec en nom [chemin d'accès]\-1.xls au lieu du bon nom.

Avez-vous 1 idée du problème ?

[madefemere]

Bonsoir,

Tes arguments sont incomplets. Il faut le nom de la table Access:

Code :

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

DoCmd.TransferSpreadsheet acImport, 8, "TabImport", .SelectedItems(1), True

Bonne continuation