Discussion :

[sharkantipav]

Bonjour,
Voici mon 1er post
J'ai un feuille excel que je remplis tt les jours.... Certaines collonnes collees sont les memes que celle d'une table de ma database Excel
Tout les jours je copie mes collonnes Excel et je les colles dans access.
Cette operation manuelle prends 1 seconde et marche tres bien.

Je cherche un moyen de l'automatiser en utilisant VBA. Je maitrise tres bien VBA sur Excel, mais je ne sais absolument pas comment manipuler access avec.
Qui aurait un code ou un morceau de code que je pourrais adapter pour faire ca. car je souhaiterais ajouter les donnees anterieures d'il ya 5 ans et dc ca fait environ 500 fichier excel a ouvrir et a copier coller

Merci bcp

[Lux (le noob)]

Quelques bouts de code, et quelques idées, à l'origine pour l'intégration de données dans des fichiers textes, a adapter donc :
A partir d'Access, un formulaire avec un bouton et un textbox5:

Code :

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

1
2
3
4
Dim STreet As String
1 STreet = "chemin\" & Me.Texte5
Me.Texte5 = SaveFile(STreet, allfiles)
Name Me.Texte5 As "chemin\import.txt"

Code :

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

1
2
3
 'efface les champs de la table "AA ..."
 DoCmd.SetWarnings False
 CurrentDb.Execute "DELETE * From [AA ...]"

Code :

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

1
2
‘Importe les données dans une table, fait une recherche sur Docmd.TransferText
DoCmd.TransferText acImportDelim, "Table liée Spécification d'attache", "AA …", "chemin\import.txt", False

Exécute les requêtes d'ajout de tes colonnes dans une table séparée.
Ferme les requêtes
détruis le fichier import

Code :

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

kill "chemin\import.txt"

et recommence au début

Code :

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

Goto 1

Restera 500 clicks
Sauf à boucler directement sur les fichiers, mais je ne sais pas faire... (Indulgence pour mon code, je ne suis pas bon en VBA, mais j'essaye de m'améliorer !)

[XLRATOR]

Bonsoir,
Par contre je te propose de créer une table Liée dans ta BDD au lieu de le faire manuellement, de recourir à un code VBA, ou quoi que ce soit d'autre.

ça doit être la solution idéale à ton souci.

Cordialement.

Karim

[Lux (le noob)]

Une table liée c'est le top pour un fichier qui change de temps en temps.

Le souci, c'est les 500 .xls en stock...

ca fait environ 500 fichier excel a ouvrir et a copier coller

Sans vba, ça veut dire les sauvegarder 500 fois sous le nom du fichier lié, et exécuter 500 fois la requête pour importer les données...

Mon code permet d'exécuter ces deux opérations en quatre clicks, mais répétées 500 fois, soit deux mille clicks

Si quelqu’un pouvait s'y pencher et mettre une boucle à la place de la sélection de départ, cela n'en ferait plus que deux. Et je lui en serait reconnaissant, parce que je pourrais aussi améliorer et mon code et ma compréhension des boucles ...