Access 2003 : Erreur sur importation de table

Question

[b]
Bonjour,

Je teste une partie de programme, une base de données sous Access 2003.

Il s'agit de faire la copie d'une base, appelée modele.mdb, dans une répertoire %user%\MonBudget et de donner à celle-ci le nom de toto.mbd.

Par ailleurs, la table Table1 de la base modele.mbd doit être importée dans la base toto.mbd sous le nom TableToto.

La création de la base toto.mbd se passe correctement.

Par contre, la table Table1 n'est pas importée.

J'ai testé toutes les lignes du programme VBA avant la ligne d'importation : DoCmd.TransferDatabase acImport, "Microsoft Access", FichierModele, acTable, "Table1", "TableToto"

Je ne peux déterminer d'où provient le dysfonctionnement.

Je vous remercie pour toute l'aide que vous pourriez m'apporter.

Cordialement

-Bruno

Ci-dessous, lignes du programme en 3 partie :
Déclaration des variable
Affectation des variables
Copie de la base et importation de la table

Public CheminMoteur, CheminUtilisateur, FichierModele, FichierUtilisateur
Public oWsh As New WshShell
Option Compare Database
--------------------------
Function Gerer_Chemins_Et_Noms() 
&#8216;Mise en mémoire des valeurs des variables

On Error GoTo Erreur

'1- Chemin Moteur
CheminMoteur = CurrentProject.Path

'2- Chemin Utilisateur
CheminUtilisateur = oWsh.SpecialFolders("MyDocuments") & "\MonBudget"

'3- Création du répertoire utilisateur
MkDir CheminUtilisateur

'4- Fichier modèle vierge de données
FichierModele = CheminMoteur & "\modele.mdb"

&#8216;5- Fichier utilisateur vierge
FichierUtilisateur = CheminUtilisateur & "	oto.mdb"

Exit Function

Erreur:
Select Case Err 

Case 75 'Le répertoire existe déjà
Resume Next

     		 Case 76 &#8216;Répertoire inexistant
MsgBox "Chemin d'accès introuvable." & Chr(10) & "Tentative d'accès au répertoire de travail abandonnée" & Chr(10) & Chr(10) & "Rechercher votre fichier", 4112, "Alerte - Erreur rencontrée"

        		Case Else
MsgBox "Une erreur non traitée s'est produite " & Err.Number & "-" & Err.Description, 4112, "Alerte - Erreur rencontrée"

     	 End Select

End Function
--------------------------
Function Creation_Base_Utilisateur() 
'1- Création d&#8217;une base pour l&#8217;utilisateur à partir du fichier modèle dub.pmq
On Error GoTo a

Dim dbInitiale, dbCopie As Database
Dim objAccess As Access.Application

&#8216;2- Appel aux variables
Call Gerer_Chemins_Et_Noms

'3- Sélection ouverture de la base modèle en mode exclusif
Set dbInitiale = BEngine.OpenDatabase(FichierModele, False)

'4- Création de la copie
Set dbCopie = BEngine.CreateDatabase(FichierUtilisateur, dbLangGeneral, False) 

&#8216;5- Fermeture base modèle
dbInitiale.Close

&#8216;6- Importation de la table Table1 de la base modèle dans la base de l&#8217;utilisateur
DoCmd.TransferDatabase acImport, "Microsoft Access", FichierModele, acTable, "Table1", "TableToto"

&#8216;7- Fermeture de la base utilisateur
dbCopie.Close
Exit Function

a:
MsgBox Err & " " & Err.Description

End Function
/b

lolokun · Answer

Bonjour,

Voici 2 liens qui pourraient surement te servir :

lien1


L'expérience, c'est une connerie par jour, mais jamais la même..

cs_paulgg · Answer

Bonjour,

Merci pour ta réponse.

Je consulte les liens. Et je te tiens au courant.

Cordialement

-Bruno

cs_paulgg · Answer

Encore merci. Tout fonctionne après adaptation.
Il suffit de ne pas oublier d'ouvrir les bases sur lesquelles se fait le travail

Access 2003 : Erreur sur importation de table

3 réponses

Votre réponse

Discussions similaires