Discussion :

[dams95190]

Bonjour à tous,

Je sollicite vos talents respectifs pour boucler ma base de donnée.

Je vous explique : je voudrai savoir comment je pourrai faire pour mettre à jour une table par rapport à une autre, sachant que cette dernière change tout le temps.

En détail: lorsque j'appuie sur un bouton, j'importe un fichier excel et en même temps je crée ma table avec la commande suivante

Code :

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

1
2
3
 
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, LaVariable, LaVariable, True, "A1:D45000"

ça fonctionne, maintenant je voudrai que les champs de cette table là(sachant qu'elle est susceptible de changer car son nom n'est pas le même), soit aussi mis dans ma table comportant tout mes enregistrements.

Avez-vous une idée ?

Si c'est pas clair, je peux détailler encore plus

[Jean-Philippe André]

bonjour,
pour ma part, c'est un peu confus
entre les tables, les bases et excel, je m'y suis perdu...

j'en arrive au point où tu veux récupérer le nom des champs de la table, et les ajouter à ta table définitive, c'est ca ?
tu peux mettre le résultat dans une 3e table en faisant une requete UNION par exemple.

[dams95190]

Je détail:

Je pars d'un fichier Excel qui s'appelle A.

Lorsque j'appuie sur un bouton dans mon formulaire, je lance cette commande :

Code :

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

1
2
3
 
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, LaVariable, LaVariable, True, "A1:D45000"

Mon fichier excel est bien créé, et donc ma table s'appelle A.
Maintenant les champs de ma table A ne sont pas encore dans ma table B ( = qui comporte tous les enregistrements).

Je voudrai connaitre une méthode qui me permettrait de faire cela sachant que ma table qui s'appelle A change de nom à chaque importation.

[Jean-Philippe André]

pour ajouter des champs à une table, tu peux passer par du SQL :

Code :

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

ALTER TABLE MaTable .....

ou par du VBA

Code :

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

1
2
3
 
'voir
Fields.Add

tu peux donc avoir une boucle for each des champs de la table A que tu ajoutes dans la table B.

[dams95190]

même si ma table change de nom? si par exemple j'importe ma table A ok ca fonctionne mais si par la même procédure ma table s'appelle C ca pourrait passer car le bus c'est surtout ca

[Jean-Philippe André]

ben soit tu gardes la variable LaVariable ou bien tu fais un import avec nom fixe :

Code :

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

1
2
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_IMPORT", LaVariable, True, "A1:D45000"

[dams95190]

Pour moi champs = données dans mes colonnes, tu me confirmes que tu comprends bien la même chose?

[Jean-Philippe André]

ah non du tout
un champs c'est une colonne dans une table.
un enregistrement est une ligne de données dans une table...

[dams95190]

Ba pour moi ceux sont mes enregistrements....

[Jean-Philippe André]

alors à ce moment là tu gardes l'import avec T_TEmpo et tu fais une requête d'insertion :

Code :

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

INSERT INTO TableB SELECT * FROM TableA;

attention a bien utiliser les mots justes dans un énoncé, comme ca tout le monde appelle un chat un hcat
Je te recommande d'aller voir à ce sujet les différents cours à ta dispositions :
http://access.developpez.com/cours

[dams95190]

Voilà a ce que j'ai écrit, cela se déclenche lors de l'appuie sur mon bouton:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Import_Click()
 
Dim LaVariable As String
Dim bSql As String
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
bSql = "INSERT INTO AllImeiàjour_xls SELECT * FROM " & LaVariable & " "
DoCmd.RunSQL bSql

Mais ca me retourne le message d'erreur suivant:

Erreur d'éxecution '3024':
Could not find file 'C:\Documents And Settins\dld\My Documents\BDD\Table1.mdb'

Voilà vu que c'est dans le meme bouton, je pense qu'il n'a pas encore importer le fichier qu'il veut deja le mettre dans ma table...??

[Jean-Philippe André]

oula, on en a perdu en route :p

Code :

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

1
2
3
4
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_IMPORT", LaVariable, True, "A1:D45000"
bSql = "INSERT INTO AllImeiàjour_xls SELECT * FROM T_IMPORT;"
DoCmd.RunSQL bSql

important aussi, il faut faire un

Code :

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

Docmd.RunSQL "DELETE * FROM T_IMPORT"

avant l'import, ca permet de repartir d'une table vide

[dams95190]

ok, je vois comment tu veux faire ça mais comment je fais pour que ma Table T_Import soit aussi garder dans ma base de donnée?? car en fiates le but et d'avoir une table qui contient que cette référence si je peux m'exprimer ainsi mais aussi une table avec toutes les références.

[Jean-Philippe André]

euh, tu peux expliciter référence stp ?
tu veux que les données déjà dans la table T_IMPORT avant l'import soit gardées ? ok, pas besoin du delete * alors. A ne pas confondre avec

Code :

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

DROP TABLE T_IMPORT

[dams95190]

A l'heure actuelle, lorsque je clique sur mon bouton une boite de dialogue s'ouvre je choisi mon fichier, et après ça me créer une table qui porte le nom de mon fichier excel. Ce que je voudrai ce que ces enregistrements ce mettent aussi dans ma table qui comporte tous mes enregistrement de toutes mes tables...


Merci

[Jean-Philippe André]

oui j'ai bien compris: le code a été posté plus haut :

Code :

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

1
2
3
4
LaVariable = OuvrirUnFichier(Me.Hwnd, "Parcourir", 2, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_IMPORT", LaVariable, True, "A1:D45000"
bSql = "INSERT INTO AllImeiàjour_xls SELECT * FROM T_IMPORT;"
DoCmd.RunSQL bSql

[dams95190]

ok niquel merci beaucoup je vais pouvoir passer à autre chose