Discussion :

[CLASSIQUE]

Bonjour,
Je me permets de vous poser cette question, étant novice en Access.
J’ai fait cette ligne de code pour importer les données d’un fichier.XLS dans une Table Access.
Ça fonctionne assez bien.
Je voudrais savoir s’il y a la possibilité lorsque je clique sur le bouton Commande50_clik()
Qu’il y ait une fenêtre ou un Box qui me permet de choisir le fichier.XLS à Importer.
Car je fais des extractions de Nomenclatures, en format. XLS pour alimenter une Table ‘’ MAG ‘’
Si vous avez une solution
Cordialement
JJacques

Code :

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

1
2
3
4
5
6
7
Private Sub Commande50_Click()
DoCmd.SetWarnings True
DoCmd.TransferSpreadsheet acImport, 10, "MAG", "H:\LED\TABLE.XLS", True
DoCmd.Beep
MsgBox "Importation Finished", vbInformation, "Importation"
 
End Sub

[RobiPMS]

Bonjour.
Cette fonction proposée dans la FAQ http://access.developpez.com/faq/?pa...#AffBoitDialog correspond à ce que tu demandes.
Une fois le code proposé mis dans un module, tu n'as qu'à déclarer une variable qui appelle cette fonction OuvrirUnFichier , et à utiliser cette variable dans ta procédure

Code :

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

1
2
3
4
5
6
Dim sFichierChoisi As String
sFichierChoisi = OuvrirUnFichier(Me.hwnd, "Sélection du fichier à importer", 1, "Fichier Excel", "xls")
DoCmd.SetWarnings True
DoCmd.TransferSpreadsheet acImport, 10, "MAG", OuvrirUnFichier, True
DoCmd.Beep
MsgBox "Importation Finished", vbInformation, "Importation"

Cordialement,
R.L.

Pense à taguer lorsque tu auras la solution à ton problème. Merci

[ClaudeLELOUP]

Bonjour,

Au lieu de :

Code :

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

DoCmd.TransferSpreadsheet acImport, 10, "MAG", OuvrirUnFichier, True

Ce ne serait pas plutôt :

Code :

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

DoCmd.TransferSpreadsheet acImport, 10, "MAG", sFichierChoisi, True

[RobiPMS]

Bonjour Claude.

Bien sûr! Un peu trop vite dans l'écriture du code et manque d'attention! Merci pour la relecture!

R.L.