Probleme de Transfert de Donnees entre Excel et Acces

Question

Bonjour a tous et a toutes,
   
J'ai un probleme avec access, je veux importer des donn&#233;es depuis excel vers access, j'ai reussi &#224; le faire dans une macro access ("Transf&#233;rerFeuilleCalcul") mais a chaque fois que j'&#233;xecute la macro les donn&#233;es excel (10 lignes d'une seule collone) sont mises les une a la suite des autres (si je l'&#233;xecute trois fois de suite j'aurais des donn&#233;es qui se repete toute les dix lignes sous ma table access) 
   Et moi je voudrais que quand j'&#233;xecute la macro, &#231;a recopie les 10 lignes de la collone d'excel dans les 10 premi&#232;res lignes de la table access, &#224; chaque execution, une sorte de mise a jour, comme ca ,si une valeur a chang&#233; dans excel, elle sera modifi&#233; aussi dans access, apr&#232;s l'execution de la macro.
   C'est important car je dois faire &#231;a pour mon stage, merci a vous.
   Merci, a celui qui saura m'aider et aux autres aussi.
TCHAO

jpleroisse · Answer

Si tu pouvais montrer ta macro, ce serais mieux pour essayer de t'aider 

jpleroisse

tbbuim1 · Answer

Il te suffit pour cela que tu re&#231;oives tes 10 lignes dans la Feuil1 sur la premi&#232;re colone

Tu donnes un nom &#224; ta colonne &#224; la ligne n&#176;1

Et tu formates les cellules au format qu'elles doivent recevoir.
Une fois que c'est fait dans access tu lances cette fonction

que tu &#233;cris dans un module:

Public Function MsImportation()

    DoCmd.Hourglass True 'lance le sablier pour montrer que &#231;a charge

    'Cette fonction cr&#233;e des tables Feuil1$_ImportErrors (des fois)

    'Continue &#224; partir de suite en cas d'erreur du DeleteObject

    On Error GoTo suite

    'Suppression de la table copi&#233;e lors de la derni&#232;re ouverture (pour la MAJ des donn&#233;es)

    DoCmd.DeleteObject acTable, NomDeLaTableCr&#233;&#233;e

suite: 'Si la table n'existe pas, l'erreur am&#232;ne ici, on importe directement

    MsgBox "Patientez pendant le chargement de la table", , "Chargement en cours..."

    'Cr&#233;ation d'une table &#224; partir d'un fichier excel par ex CheminNomFic = "C:\Fichier.xls"

    DoCmd.TransferSpreadsheet acImport, 8, NomDeLaTableACr&#233;er, CheminNomFic, True

    'Lancement de la proc&#233;dure d'effacement des tables d'erreurs

    EffaceTableErreurImport

    Docmd.Hourglass false 'Arr&#234;te le sablier

End Function

'fonction qui efface les tables d'erreurs

Public Sub EffaceTableErreurImport()

    Dim Ctr

    Dim Effacer As Boolean

    On error goto fin

    'Pour toutes les tables de la BD en cours, Effacer = false

    For Each Matable In CurrentDb.TableDefs

        Effacer = False

        For Ctr = 1 To Len(Matable.Name)

            'Efface toutes les tables contenant "$" dans leur nom

            If Mid$(Matable.Name, Ctr, 1) "$" Then Effacer True

        Next

        If Effacer = True Then DoCmd.DeleteObject acTable, Matable.Name

    Next

fin:

End Sub



Voil&#224;, il ne te reste plus qu'&#224; lancer la fonction MsImportation &#224; l'autoexec de ton prog Access

Comme &#231;a il r&#233;cup&#233;rera automatiquement tes 10 lignes de ton fichier
Excel et cr&#233;era une table contenant comme champ le nom de ta colonne
(celui que tu as &#233;cris &#224; la 1ere ligne) et le nom de ta table que tu as
choisis &#224; l'importation. Et dedans il y aura des fameuses 10 lignes.

Et &#224; chaque lancement de ton programme, la table pr&#233;sente sera
supprim&#233;e et une nouvelle table issue du fichier excel sera cr&#233;&#233;e.

Si cette r&#233;ponse te convient, n'oublies pas de cliquer sur "R&#233;ponse accept&#233;e" 

@+

TBBUIM

colibrialuile · Answer

Ok, jpleroisse, je te l'envoie par mail

colibrialuile · Answer

Merci, pour ta reponse mais le probleme est que dans ma table, jai d'autre champs que je ne veu pas effacer, en fait je veu copier 10 ligne d'excel, dans les dix premieres ligne de la table mai dans un seul champ san modifier les autres, Mais merci de mavoir repondu, si tu a une autre sulution jaimerai bien la connaitre
SALUT

tbbuim1 · Answer

Mais c ce que je dis, ma solution est id&#233;ale pour ton probl&#232;me.

Il te suffit de faire une r&#233;cup&#233;ration des cellules dont tu as besoin sur la 1ere Feuille

si tu veux rien toucher, tu n'as rien a effacer...

C'est simple &#224; faire &#231;a sous Excel, tu sais le faire?

Ensuite il ne te reste plus qu'&#224; lancer mes fonctions.

Franchement tu as la solution sous les yeux, jpeux pas mieux faire &#224; part le faire pour toi.

Mais franchement, t'en as pour 5 min &#224; faire &#231;a.

TBBUIM

tbbuim1 · Answer

Tu cr&#233;es une feuille vide que tu places en t&#234;te dans ton classeur.

Ensuite tu r&#233;cup&#232;res les 10 lignes dont tu as besoin dans ton classeur
pour les placer dans cette feuille vide de la fa&#231;on dont jte l'ai
d&#233;cris avant.

Donc tu vois bien que tu n'as rien effacer!!!!!!!!!

Ton fichier Excel ne va pas bouger!

Et la table access sera constamment r&#233;actualiser.

C'est pas ce que tu veux?
TBBUIM

colibrialuile · Answer

MERCI de maider tbbuim1 mai jai essaye ta fonction et elle cree une nouvelle table a partir de la feuille excel.
Moi jai une table excel qui existe deja et qi comporte trois champs, et je veu copier dix ligne dune feuil excel et les coller dans les 10 premiere ligne dun seul champ de ma table, et ce a chaque execution de la macro ou du module comme ca si une valeur a change dan ma feuil elle sera change aussi dans ma table apre que jai lance la macro, mai ton prog ne marche pa pour ce que je veu faire. Ou alore jai mal compris ton prog.
Si tu veu je peu tenvoyer ma table et ma feuil excel et tu pourra me montrer si tu arrive a la faire marcher ca serait cool.
en tout cas merci pour ton aide SALUT

tbbuim1 · Answer

Voil&#224;, l&#224; ton probl&#232;me est bien expliqu&#233; ;)

Toutefois, j'ai une derni&#232;re question:

La macro qui passe les donn&#233;es dans Access, elle est forc&#233;ment une
macro lanc&#233; &#224; partir d'excel? Car dans le cas contraire, &#224; partir
d'access, il suffirait de te connecter &#224; ta feuille Excel et de faire
une requ&#234;te de mise &#224; jour sur ta table qui r&#233;cup&#233;rerait les donn&#233;es
Excel &#224; chaque lancement. Mais cela implique que ton fichier Excel soit
ferm&#233; &#224; ce moment pr&#233;cis.

Public Sub Export()

    Dim ClasseurXLS As Object

    Dim i as integer

    Dim Feuille, Emplacement As String

    Feuille = "Feuil1" 'nom de la feuille ou se trouve tes donn&#233;es

    Emplacement = Forms.Application.CurrentProject.Path  'r&#233;cup&#232;re le chemin de ton appli

    'MsgBox Emplacement 'donc ton fichier et ton appli doivent &#234;tre ds le mm rep

    Set ClasseurXLS = CreateObject("Excel.application")

    ClasseurXLS.Workbooks.Open Emplacement & "\FichierExcel.xls" 'Ouverture du classeur

    'Activation de la feuille que l'on veut remplir

    ClasseurXLS.Workbooks("FichierExcel.xls").Worksheets(Feuille).Activate

   'Une fois que c fait on est connect&#233; &#224; la feuille Excel

 '****************************************

    'Pour acc&#233;der aux cellules il faut les n&#176; A =1 B = 2.... ClasseurXLS.Cells(5,2) => ligne 5 colonne B

'Donc par exemple pour r&#233;cup&#233;rer les valeurs de la 1er colonne on &#233;crirait

'ClasseurXLS.Cells(de 1 &#224; 10,1)...

'ensuite on lance une commande SQL

For i =1 to 10 'on r&#233;cup&#232;re les 10 lignes

    Docmd.RunSql "update TaFameuseTable SET [TonChamp] =
'" & ClasseurXLS.Cells(i,1) & "' WHERE N&#176; = " & i & ";"

Next i

'Il faut donc dans cette rq que ta table ait une colonne N&#176; qui
comporte 1,2,3 ...10 pour chaque ligne, une cl&#233; primaire quoi, non
automatique de fa&#231;on &#224; pouvoir les n&#176;t comme tu veux. 

'Fermeture du classeur d'importation

ClasseurXLS.Workbooks.Close

'Fermeture de l'objet Excel

Set ClasseurXLS = Nothing

'Biensur ne pas oublier de faire Outils => R&#233;f&#233;rences=> Microsoft Excel 9.0 object library

'Avec &#231;a tu peux y arriver en principe

End sub
TBBUIM

colibrialuile · Answer

Merci de repondre aussi vite
pour repondre a ta questio, ma macro est sous acces et si tu a une solution plus facile avec une macro acces ca minteresse 
merci

colibrialuile · Answer

Ton prog a lair bien mais il est un peu compliqu&#233; , est ce que si je tenvoie mes deux fichiers .xls et .mdb et un genre de cahier des charges de ce qe je veu faire tu pourrai me le faire et me renvoyer mes deu fichiers modifie ca serait sympa 
mai si ca te derange pa bien sur
merci

tbbuim1 · Answer

Le probl&#232;me c que c pas facile ce que tu veux faire...

Donc t'attends pas &#224; un truc facile.

Et puis si tu enl&#232;ves les commentaires ya &#224; peine 10 lignes de code...

Fais un effort...

J'ai tout fait d&#233;j&#224;, il te reste plus qu'&#224; faire des copier/coller

Tu fais un stage c pr que tu progresses

l&#224; t'as plus rien &#224; faire.

Remplace juste les noms par les bons noms de ta table et ton fichier.

Fais des tests regardent si &#231;a marche.

Tu peux faire &#231;a, c pas dur. Essayes tu verras.
Et lache les macros sous access c naze, &#231;a ralentit tout lol

Pour ouvrir un form faut faire Docmd.openForm "NomForm"

Docmd.OpenQuery "NomRequ&#234;tes"

Docmd.close

Si t'as une fonction &#233;cris la directement

Mafonction (mon param)

Dans le Form_load d'un formulaire.

Si t'en as pas, oui tu peux faire &#231;a dans l'autoexec. 

Mais si yen a un tu peux faire d&#233;marrer Access dessus et le form_load se lancera

Regarde ce tu peux faire tout avec &#231;a.

TBBUIM

colibrialuile · Answer

OK, je vai essayer, mai si jamai ta le tps de mi faire voila ce que je voudrais:

>Un fichier .mdb
  avec une table nomm&#233;, "T_defauts" contenant trois champs nommees, "Nom_defaut", "Groupe_alarme" et "Valeur_defaut".

>Un fichier .xls
  contenant une feuille nomm&#233;e, "Valeur d&#233;fauts" et avec des valeurs dans les cellules A1 &#224; A10 et si il le faut un titre dans la cellule A1 (valeur d&#233;fauts si il faut le reconaitre dans access)
les valeurs des cellules seront quelconque mais forcement numerique.

>et bien sur, une macro ou un module, de preference sous access ou alors sous excel si on peu la lancer depuis access. Cette macro devra recopier les cellules A1 &#224; A10 dans les dix premieres lignes du champ "Valeur_defaut". et a chaque fois les dix premieres lignes

Ca serait vraiment bien si tu pouvai me faire ca et me lenvoyer ensuite par mail, je te passrai mon  adresse. Merci

tbbuim1 · Answer

lollllllllllllllllllll

Apparement tu ne lis pas les messages que je t'envois car c'est exactement ce que je t'ai envoy&#233;.

Maintenant, si tu tiens vraiment &#224; ce que je te file la solution toute
cuite, envois moi ton adresse email sur ma bal codes-sources.
TBBUIM

colibrialuile · Answer

Desole javai pa vu, mon adresse c'est:
colch@mail.annecy.univ-savoie.fr

Merci bien

colibrialuile · Answer

Je nai pas recu ton message

colibrialuile · Answer

Desol&#233;
mai je vien de remarquer que javais fait une erreur en texpliquant ce que je voulais la voici :

MERCI de maider tbbuim1 mai jai essaye ta fonction et elle cree une nouvelle table a partir de la feuille excel.

Moi jai une table ACCES qui existe deja et qi comporte trois champs, et je veu copier dix ligne dune feuil excel (qui existe deja elle aussi) et les coller dans les 10 premiere ligne dun seul champ de ma table, et ce a chaque execution de la macro ou du module comme ca si une valeur a change dan ma feuil elle sera change aussi dans ma table apre que jai lance la macro, mai ton prog ne marche pa pour ce que je veu faire. Ou alore jai mal compris ton prog.
Si tu veu je peu tenvoyer ma table et ma feuil excel et tu pourra me montrer si tu arrive a la faire marcher ca serait cool.
en tout cas merci pour ton aide SALUT

tbbuim1 · Answer

La premi&#232;re solution cr&#233;e effectivement une table &#224; partir d'un fichier Excel.

Et comme tu me l'as dis par la suite, ce n'est pas ce que tu veux...

Et je t'ai r&#233;pondu que tu avais raison mais que ton probl&#232;me &#233;tait mal
expliqu&#233; au d&#233;part, mais que maintenant c'etait clair. C'est pourquoi
j'ai envoy&#233; une autre solution avec la fonction Export. C'est celle l&#224;
qu'il faut utiliser. Il faut remplacer tous les noms par les tiens et
mettre une colonne N&#176; de 1 &#224; 10 dans ta table.
TBBUIM

colibrialuile · Answer

Si tu parle de ce prog:

Public Sub Export()
    Dim ClasseurXLS As Object
    Dim i as integer
    Dim Feuille, Emplacement As String
    Feuille = "Feuil1" 'nom de la feuille ou se trouve tes donn&#233;es
    Emplacement = Forms.Application.CurrentProject.Path  'r&#233;cup&#232;re le chemin de ton appli
    'MsgBox Emplacement 'donc ton fichier et ton appli doivent &#234;tre ds le mm rep
    Set ClasseurXLS = CreateObject("Excel.application")
    ClasseurXLS.Workbooks.Open Emplacement & "\FichierExcel.xls" 'Ouverture du classeur
    'Activation de la feuille que l'on veut remplir
    ClasseurXLS.Workbooks("FichierExcel.xls").Worksheets(Feuille).Activate
   'Une fois que c fait on est connect&#233; &#224; la feuille Excel

Je vois tout de suite que ca pe pa aller car il y a un truc qui va pas (en rouge)

tbbuim1 · Answer

lolllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll

En fait, j'ai tout simplement oubli&#233; d'enlever ce commentaire

Car il fait partie du programme d'ou j'ai tir&#233; ce code, que j'ai adapt&#233; &#224; ta solution.

D&#233;sol&#233; pour le d&#233;sagr&#233;ment lol. Dans ce code, il faut remplacer ce commentaire par

'Activation de la feuille d'ou l'on va tirer les informations...

Puisque si tu regardes bien, par la suite, je fais la requ&#234;te de mise &#224;
jour qui modifie la table ACCESS, aucune modification n'est faites sur
la feuille EXCEL!

Donc C'EST BON....
TBBUIM

colibrialuile · Answer

autant pour moi

Probleme de Transfert de Donnees entre Excel et Acces

25 réponses

Discussions similaires