Discussion :

[drutarus]

Bonjour,
Je viens vers vous suite à de multiple recherche infructueuses...

J'ai besoin de récupérer des informations qui se trouve dans des fichiers excel.
Je vais essayer d’être le plus précis possible.

Ces fichiers excel sont des factures.. il y a les cases par exemple:
A1"date", A2"nom", C2"n°facture", D2"telephone", E2"adresse" F2"ville"

Il y a un fichier par moi et une feuille par facture. (format identique)
Ces fichiers sont répertorié comme suit:
c:\Factures/2013/janvier.xls
c:\Factures/2013/fevrier.xls

Le but est de réaliser une base de donnée avec les information de chaque clients, affin de pouvoir retrouver une facture plus rapidement.
En gros réunir toutes les feuilles dans une base et ce depuis le début de l'activité.2007

et si possible avec une recherche par nom ou par date.

Par exemple je recherche avec le nom du client et cela m'affiche une liste de toutes les factures correspondant.

C'est asse complexe a expliquer mais je pense cela réalisable. (avec votre aide)

Il existe peut être des codes pour ce cas, ou alors une base qui pourrait me servir a réaliser ce programme. Je suis preneur aussi.
Merci

[Smilossss]

Bonjour,

A mon avis :
- Il faut tout d'abord créer une base de donnée avec des tables et des champs de tes besions
- ensuite créer une interface en VB6 qui récupère les champs de chaque fichier excel et les enregistre dans la base de données et voici un bout de code qui récupère un champs d'un feuille excel et le met dans un textbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim sheet As Object
    Dim exldoc As Object
    Dim exlapp As Object
 
    Set exlapp = CreateObject("excel.application")
    Set exldoc = exlapp.workbooks.Open("c:\Factures/2013/janvier.xls") 'Chemin de fichier excel
    Set sheet = exlapp.ActiveWorkbook.ActiveSheet
 
    TextBox.Text = sheet.Application.ActiveSheet.Cells(1, 1).Value 'c-à-d extraire le contenu de la cellule A1
 
    exlapp.workbooks.Close
    Set sheet = Nothing
    Set exldoc = Nothing
    Set exlapp = Nothing

- biensure il faut faire des boucles pour enregistrer tous vos fichier dans la base de donnée
- puis il faut créer une autre interface qui interroge la base de donnée pour faire tes recherche

j'espère que cette explication vous met en bon route

[drutarus]

Merci pour ce début.
J'ai effectivement rencontrer ce bout de code dans mes recherches.
je vais étudier sa et reviendrai par la suite en cas de besoin ou pour donner la solution si j'ai trouvé

[Smilossss]

Soyez le bienvenue

[drutarus]

Merci
Je vais détaillé l'avencement de mon travaille étape par étape. Pour garder la trace de chaque modification et amélioration. A la fin (si le programme fonctionne) j'utiliserai ceci pour faire un tutorial affin d'aider a mon tour les personnes qui seront dans le même cas que moi.


Première étape:

Bonjour,

A mon avis :
- Il faut tout d'abord créer une base de donnée avec des tables et des champs de tes besions

Je viens de créer la base de donnée "bd1.mdb" (access 2003, mais dans le titre sa me met 'bd1 : Base de données(format de fichier access 2000)') avec une table "Clients" et des champs:
RéfClient;NomFamille;DateFacture;NuméroTél;Ville;Adresse;MontantPaiement.

La seconde : création de l'interface en VB6 est terminé aussi. il reste plus qu'a la coder.
A bientot

[drutarus]

J'ai mis le code dans un command1 et j'ai une erreur sur cette ligne...
Set exlapp = CreateObject("excel.application")
Avec comme message "permission refusée"

j'ai testé avec Set exlapp = new CreateObject("excel.application")
mais sa ne fonctionne pas nonplus ..

d’où viens cette erreur ?

[DarkVader]

Bonsoir,
A défaut de vouloir écrire un tutoriel commence par les lire :
voir bouton « TUTORIELS VB » plus haut sur cette page
ou TUTORIELS EXCEL sur la page Office.

[petit rabot]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim sheet As Object
    Dim exldoc As Object
    Dim exlapp As Object
 
    Set exlapp = CreateObject("excel.application")
    Set exldoc = exlapp.workbooks.Open("c:\Factures/2013/janvier.xls") 'Chemin de fichier excel
    Set sheet = exlapp.ActiveWorkbook.ActiveSheet
 
    TextBox.Text = sheet.Application.ActiveSheet.Cells(1, 1).Value 'c-à-d extraire le contenu de la cellule A1
 
    exlapp.workbooks.Close
    Set sheet = Nothing
    Set exldoc = Nothing
    Set exlapp = Nothing

Après essai de ton code, celui-ci fonctionne parfaitement chez moi. Donne un peu plus de précision sur ton erreur.