Discussion :

[Olibr]

Bonjour,
Je viens de séparer mon application access en deux db, une frontale et une dorsale.
Une fois par mois, nous devons importer d'un programme comptable, une table en format .dbf, actualiser cette table dans la db Access et ensuite re-exporter la table vers le programme comptable.
Cette manipulation ce faisait assez facilement dans l'application tant qu'elle etait en monobloc : docmd.transferDatabase acImport, "dbase5.." .....
Mais avec les tables liées, ce n'est plus possible. Je voudrais donc pouvoir importer dans la base dorsale, un table .dbf via un bouton situé dans ma base frontale et de même pour l'exportation. Merci pour votre aide

[curt]

Bonjour Olibr,

Si tu as liée tes tables (dorsale) à l'application (frontale) il ne doit y avoir aucun soucis. ça reste transparent vis à vis d'access.

Peux-tu expliquer précisément ce qui ne fonctionne pas ?

Parce que :

Mais avec les tables liées, ce n'est plus possible.

ça n'aide pas vraiment à cerner le problème...

Curt

[Access Newbie]

Bonjour,

Ce que dis curt n'est pas tout a fait vrai, il peut y avoir problemes lors de l'import de données dans une table liée.

Perso, j'importe les données en local (dans une table Temp par exemple) puis il faut faire une requete qui envoie les données de la table temp vers la bonne table. Enfin, je supprime la table Temp.

A titre d'exemple, un petit bout de code (a adapter):

Code :

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

1
2
3
4
5
6
DoCmd.TransferText acImportDelim, Trim(fic1("nom_T")), "Temp", Trim(fic1("repert")) & IIf(Right(Trim(fic1("repert")), 1) = "\", "", "\") & fic1("FIC"), False
'transfert des données vers la table distante
DoCmd.RunSQL "INSERT INTO K_PLAN_DEM_M ( CAD, CLIENT_OFFRE, PAYS_PREV, MOIS_JJ, NBJM, QTE, MARCHE ) " & _
"SELECT Temp.CAD, Temp.CLIENT_OFFRE, Temp.PAYS_PREV, Temp.MOIS_JJ, Temp.NBJM, Temp.QTE, Temp.MARCHE FROM Temp"
'suppression table temp
DoCmd.RunSQL "drop table Temp"

[curt]

Bonsoir Access Newbie,

surprenant ce que tu écris : tu copies des données sur une table temporaire (dans la frontale je suppose quand tu parles de LOCAL ?) et ensuite tu recopies cette table dans une table liée ???

Il faudra m'expliquer en argumentant autrement que ça

Ce que dis curt n'est pas tout a fait vrai

parce que je ne vois pas pourquoi le transfert direct vers une table distante devrait se faire en passant par une table locale.

J'effectue régulièrement cette opération depuis des fichiers .dbf de taille conséquentes vers des tables distantes sur serveur sans aucun soucis.

A moins que celà provienne d'une lenteur de réseau, mais là j'ai comme un doute !!

Curt

[Access Newbie]

Bonjour Curt,

surprenant ce que tu écris : tu copies des données sur une table temporaire (dans la frontale je suppose quand tu parles de LOCAL ?) et ensuite tu recopies cette table dans une table liée ???

Oui pour local et frontal, c'est un abus de language qui peut induire en erreur.

Il faudra m'expliquer en argumentant autrement que ça parce que je ne vois pas pourquoi le transfert direct vers une table distante devrait se faire en passant par une table locale.

Hé bien personnellement, le problème m'est déjà arrivé, je n'en connais pas la cause mais en utilisant la solution que je donne ci-dessus, on réussi à résoudre le problème. Je ne sais pas si il s'agit d'une limite d'access ou d'un autre problème, mais les faits sont là, ce post en est la preuve.

J'effectue régulièrement cette opération depuis des fichiers .dbf de taille conséquentes vers des tables distantes sur serveur sans aucun soucis.

Je suis complètement d'accord, j'ai aussi des applis sur lesquelles le transfert se fait vers des tables distantes sur serveur sans aucun problème.

Mon but n'est absolument pas de dire que ce que tu as dit était faux, mais j'essaie d'apporter des solutions aux problèmes que j'ai déjà rencontré en proposant les solutions que j'ai trouvé.

Après il existe peut-être une meilleure façon de faire, mais celle ci fonctionne.

[neghe]

J'ai essayé la méthode de Access Newbie et ça marche
voici mon code:

Code :

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

1
2
3
4
5
6
7
DoCmd.TransferSpreadsheet acImport, , "Temp", "C:\IMPORTATION_TONTINE\RETENUS.XLS", True, "RETENUS!A1:K9000"
'transfert des données vers la table distante
DoCmd.RunSQL "INSERT INTO [OPERATIONS TONTINE] ( DateET, LibET, DepotET, RetraitET, NumRecuET, ID_CpteClt_Select, NumClt, AgEpTont, ASEpTont ) " & _
"SELECT Temp.DateET, Temp.LibET, Temp.DepotET, Temp.RetraitET, Temp.NumRecuET, Temp.ID_CpteClt_Select, Temp.NumClt, Temp.AgEpTont, Temp.ASEpTont FROM Temp"
'suppression table temp
'DoCmd.RunSQL "drop table Temp"
CurrentDb.Execute "DELETE * FROM Temp;"

Je crée une table temporaire avec la même structure que ma table "OPERATIONS TONTINE"
je transfert le contenu de mon fichier excel "RETENUS.XLS" dans la table Temp
ensuite je transfert le contenu de la table Temp dans la table "OPERATIONS TONTINE"
je vide la table Temp (pour d'éventuelles opérations du même genre"
ça marche impécable
Attention: si votre table contient un champ automatique il faudra l'ignorer ce champ