Discussion :

[Colonya]

Bonjour à tous,

Je viens de créer un programme nécessitant l'importation d'un fichier type dont le nom peut varier, petit détail ce fichier comporte plusieurs tables.(je ne sais pas si cela change quelque chose)

Ce fichier doit être importé pour être traité par une requête puis un code vba.

Voici la ligne de code posant problème dans mon formulaire pour importer le fichier :

...

DoCmd.TransferDatabase acImport

...

J'ai l'erreur 2507 : " type de base de données n'est pas installé ou ne gère pas l'opération demandé"

Ayant regardé la méthode DoCmd sur le site Microsoft pour Access :
https://msdn.microsoft.com/fr-fr/vba...-method-access


S'agissant d'une simple importation d'un fichier access je n'ai rien ajouté après acImport.


Merci par avance pour votre aide

[titi95]

Bonjour

Que souhaites-tu faire exactement :
- transférer un fichier (base Access) d'un dossier dans un autre ? Quel intérêt ?
- importer des tables pour requêter dessus ? Auquel cas tu peux simplement lier ces tables avec ta base.
- récupérer les données de tables d'une autre base, celle-ci étant appelée à être supprimée ?
- autre cas ? ...

Le DoCmd.TransferDatabase peut effectivement être une solution... à condition de renseigner tous les paramètres indispensables !
Sélectionne DoCmd.TransferDatabase dans ton code et appuie sur la touche F1 pour avoir l'aide.

[tee_grandbois]

Bonjour,

Ayant regardé la méthode DoCmd sur le site Microsoft pour Access :

c'est bien, mais as-tu pensé à regarder la commande TransferDatabase ?
https://msdn.microsoft.com/fr-fr/vba...-method-access

Code :

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

DoCmd.TransferDatabase acImport

Crois-tu qu'Access va savoir quelle base il faut importer, si tu ne lui indiques pas ? Ou alors, tu n'as pas posté le code complet ...

[Colonya]

Merci beaucoup pour vos indications ,

J'ai suivi vos conseils et j'ai finis par trouver la solution, je l'explique au cas ou quelqu'un rencontre ce problème:

Pour bien comprendre, il faut savoir que j'ai créer au préalable un code permettant à partir de données provenant d'un appareil de mesure de les réarranger et de les convertir en fichier texte.
Le tout se présente sous la forme d'un formulaire à trois boutons dont le premier sélectionne les tables nécessaires au traitement par le code. L'objectif étant qu'un autre utilisateur "débutant"
puisse utiliser ce programme sur un autre fichier provenant du même appareil de mesure.

Voici donc le code qui me permet d'ouvrir une boîte de dialogue avec l'utilisateur et de sélectionner les bonnes tables à importer dans mon programme.

Sub example1()
' Requière la référence : Microsoft Office 11.0 Object Library.

Dim cDialog As Office.FileDialog
Dim varFile As Variant
Dim NomFichier As String


' Parametrage de la boite de dialogue > File Dialog.
Set cDialog = Application.FileDialog(msoFileDialogFilePicker)

With cDialog

' Laisse l'utilisateur la possibilité de sélectionner plusieurs fichiers
.AllowMultiSelect = True

' Titre de la boite de dialogue.
.Title = "Sélectionner un ou plusieurs fichiers"

' Permet de filtrer le format d'un fichier à sélectionner.
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"


' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then

'Mettre le nom du fichier sélectionné dans une variable.
For Each varFile In .SelectedItems
NomFichier = varFile
Next

Else
MsgBox "Vous avez cliqué sur Annuler."
End If
End With
'les fameuses méthodes DoCmd fonctionnel
DoCmd.TransferDatabase acImport, "Microsoft Access", NomFichier, acTable, "NomDeLaTable1", "NomDeLaTable1"
DoCmd.TransferDatabase acImport, "Microsoft Access", NomFichier, acTable, "NomDeLaTable2", "NomDeLaTable2"
DoCmd.TransferDatabase acImport, "Microsoft Access", NomFichier, acTable, "NomDeLaTable3", "NomDeLaTable3"
End Sub




Voila en espérant que ca puisse en aider d'autre !