Discussion :

[abyta]

Bonjour,
Voilà deux semaines que je suis bloqué sur une fonction, à la compilation je reçois un message d'erreur 13.
Je veux pouvoir importer un fichier Excel dans une table Access. Lorsque je click sur le bouton commande, j’ai un menu déroulant me demandant de ‘choisir le fichier à importer’. Je clique sur ok, puis choisi mon fichier. A l’exécution, il m’affiche erreur d’exécution ‘13’,Incompatibilité de type.

Code :

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

1
2
3
4
5
6
7
8
9
 Function import()     
Dim oFile As FileDialog, txtCheminFichier As String     
Set oFile = Application.FileDialog(msoFileDialogOpen)     
oFile.AllowMultiSelect = False     
If oFile.Show = -1 Then ' bouton ouvrir         
txtCheminFichier = oFile.SelectedItems(1)             
DoCmd.TransferSpreadsheet acImportFixed, "x", "x", txtCheminFichier, False                                   
End If 
End Function

Cordialement

[chrtophe]

Code :

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

DoCmd.TransferSpreadsheet acImportFixed, "x", "x", txtCheminFichier, False

Les x me paraissent bizarre, je pense qu'il faut les remplacer par des données numériques (ce qui expliquerait l'incompatibilité de type)

Je pense que c'est un code que tu as copié-collé.

J'ai pas d'access sous le coude pour regarder.

Tu peux te baser sur cette discution :
http://www.developpez.net/forums/d36...cess-doublons/

le code est bien documenté.

[abyta]

[DoCmd.TransferSpreadsheet acImportFixed, "Importation valeur", txtCheminFichier, False

le code ne fonctionne tjr pas.et je suis perdu

[NVCfrm]

[DoCmd.TransferSpreadsheet acImportFixed, "Importation valeur", txtCheminFichier, False

le code ne fonctionne tjr pas.et je suis perdu

Le message d'erreur 'Incompatibilité de type' signifie que les arguments fournis ne correspondent pas aux types de données attendues.
Quand on utilise pas des arguments nommés, on fait bien attention à représenter l'ordre des champs séparés par la virgule. Même quand ils ne sont pas renseignés.

[DoCmd.TransferSpreadsheet acImportFixed, , "Importation valeur", txtCheminFichier, True

Tu remarqueras un séparateur de champ nom renseigné correspondant à l'argument SpreadSheetType en deuxième position.
Je suppose que la première ligne de données du tableur est les entêtes, donc True pour l'argument HasFieldNames.