Discussion :

[curt]

Bonjour à tous,

je voudrais intégrer les données de fichiers Excel dans ma base. Pour ce faire, je voudrais pouvoir sélectionner le fichier XL via une boîte de dialogue. (pour sélectionner l'unité, le dossier et enfin le fichier).

Merci d'avance pour l'aide.
Curt

[LedZeppII]

Bonjour,

as-tu vu la boîte de dialogue ouvrir dans la faq ?

A+

[curt]

merci pour la réponse (méga rapide).

oui j'ai vu le sujet dans la Faq. Par contre, comment affecter cette fonction a un bouton. (question naïve sans doute, mais j'ai encore quelques lacunes sur access).
De plus, une fois le fichier XL sélectionné, comment lancer l'importation des données de CE FICHIER dans une table access. (j'arrive a le faire en mettant le chemin et le nom du fichier).

Merci pour la réponse.
Curt

[LedZeppII]

Tout d'abord tu copies le code de la faq et tu le colles dans un nouveau module de code.

Ensuite dans le code de ton bouton :

Code vb :

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

1
2
3
4
5
6
7
8
Dim strXLfile As String, strTable As String
 
strXLfile = OuvrirUnFichier(Me.Hwnd, "Fichier à importer", 1, "Fichier Excel", "xls")
' Si l'utilisateur a cliqué sur Annuler
If strXLfile="" Then Exit Sub
 
strTable = "Nom de la Table"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strXLFile, True

Voir l'aide Access de TransferSpreadsheet pour plus d'infos.

A+

[curt]

Merci pour tout, ça fonctionne EXACTEMENT comme je le souhaitais.

Excellent week-end.
Merci
Curt