Excel vb6 et acces

Excel vb6 et acces - VB/VBA/VBS - Programmation

Marsh Posté le 13-03-2013 à 17:54:35    

Bonjour,
J'ai besoin de créer un logiciel pour mon entreprise.
 
Ce logiciel doit en premier envoyer des données qui se trouve dans des cases bien précise d'un fichier excel vers une base de donnée access.
Le fichier excel a plusieurs feuilles avec un nom différent. Mais les données se trouves toutes dans les même cases. A7 A11 B11 C11 D11 E11.
et comme cle le nom de la feuille
 
Pour cela une fenêtre avec un drivelistbox, dirlistbox et filelistbox. pour la recherche du fichier source .xls
un bouton qui valide et envoie les donnée dans la base access.
 
En suite j'ai besoin que ce programme me donne les informations à partir de la base access. soit en sélectionnent dans un combobox soit en écrivent le contenu d'une des cases dans un textbox.
Le résultat doit s'afficher dans une fenêtre avec des simple textbox.
 
C'est compliquer a expliquer mais la base du projet est la. après il y a d'autres fonctions a ajouter mais sa sera par la suite.
 
Donc pour le moment peut on me dire comment faire la première étape ?

Reply

Marsh Posté le 13-03-2013 à 17:54:35   

Reply

Marsh Posté le 13-03-2013 à 18:21:39    

Tu travaille dans quoi ?
 
VB6?
Excel VBA ?
Access VBA ?
 
 
Je suppose que c'est du VB6 pur.
 
La première étape est de rajouter les références (librairie) te permettant d'accéder à Excel.
(cherche dans les références de ton projet)
 
2ème étape tu fabrique ta fenêtre qui te permet de selectionner ton fichier Excel.
 
3ème étape tu programme le bouton "ouvrir"
qui va lire ton fichier Excel, et mettre les valeur que tu veux dans tes textbox.
 
4ème étape, rajouter les références (librairie) te permettant d'accéder à Access.
 
5ème étape, programmer ton bouton "envoyer"
qui va ouvrir une base access (laquelle?)
puis écrire les données dans la base access (quelles tables ?)
 
++


Message édité par Xxxaaavvv le 13-03-2013 à 18:26:57
Reply

Marsh Posté le 15-03-2013 à 17:45:01    

Alors, oui j'utilise VB6. access 2003 et excel qui va avec.
 
Je ne sais pas quel référence librairie ajouter il y en a plusieurs ..
pour l'interface elle est crée. Me reste plus qu'a programmer le bouton "ouvrir"
j'ai pue trouver sur internet ce morceau de code:
    Dim sheet As Object
    Dim exldoc As Object
    Dim exlapp As Object
 
    Set exlapp = CreateObject("excel.application" )
    Set exldoc = exlapp.workbooks.Open("xxxx.xls" )  
    Set sheet = exlapp.ActiveWorkbook.ActiveSheet
    TextBox.Text = sheet.Application.ActiveSheet.Cells(x, x).Value  
    exlapp.workbooks.Close
    Set sheet = Nothing
    Set exldoc = Nothing
    Set exlapp = Nothing
Mais je ne sais pas où le placer...
 
J'ai également crée la base de donnée avec la table et les champs.
Ma base s'appelle "bd1.mdb"
Les tables sont: nom, date, ville, adresse, num tel, num fact, total.
 
Je vais travailler un peut dessus et je reviendrais en suite informer de l’avancement.
 
Merci pour votre aide.

Reply

Marsh Posté le 16-03-2013 à 23:20:29    

regarde plutôt du côté de powershell, tu pourras faire cela plus simplement (éditeur powergui). Après à voir si ta macro doit se situer dans ton fichier excel? Qui doit pouvoir lancer ton programme? Programme à lancer à quel moment?Automatiquement?
Pour y arriver facilement, il faut diviser les tâches à effectuer en action simple.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed