Ecrire une base de donnée sur excell etr la chargée ?Résolu

Question

Bonjour &#224; tous, 

Dans un ancien programme, j'avais une base de donn&#233;e en .DAT, et j'aimerais la remplacer par un fichier excell. J'ai d&#233;ja fait le transfer, donc toutes mes donn&#233;es sont d&#233;j&#224; sur le fichier excell, et donc ma question, est comme (si c'est possible) on fait pour charger depuis VB un fichier excell, comment on fait pour nommer les diff&#233;rentes cases ? et comment on fait pour &#233;crire depuis vb sur un fichier excell ? Le faites que je fichier excell prennent de la place sur le disque dure va t-il ralentir consid&#233;rablement le programme ?

J'ai aussi une deuxi&#232;me solution, je peux enregistrer mon fichier excell en fichier texte ? Mais alors comme l'enregistrer en .dat et comment fait-on lors du chargement pour d&#233;signer une tabulation car c'est un tableau avec plusieurs donn&#233;es (chaque donn&#233;es sont s&#233;par&#233;es par des tabulations) , et chaque ligne repr&#233;sente une nouvelle fiche ? 

Merci d'avance pour votre aide.
 
Luca62.

luca62 · Accepted Answer

Apr&#232;s r&#233;flection, je pense qu'il est plus simple de le faire avec un fichier texte. Cependant avant, j'avais les diff&#233;rentes donn&#233;es en les unes au dessous des autres : 
1
2
3
mon code &#233;tait : 
    stFichier = (App.Path & "\Essai.txt")
    
    Open stFichier For Input As #1
    
        num_fiche = 0
        
        Do While Not EOF(1)
            num_fiche = num_fiche + 1
            Line Input #1, tabl1(num_fiche, 1)
            Line Input #1, tabl1(num_fiche, 2)
            Line Input #1, tabl1(num_fiche, 3)
            Line Input #1, tabl1(num_fiche, 4)
            Line Input #1, tabl1(num_fiche, 5)
            Line Input #1, tabl1(num_fiche, 6)
            Line Input #1, tabl1(num_fiche, 7)
            Line Input #1, tabl1(num_fiche, 8)
            Line Input #1, tabl1(num_fiche, 9)
            Line Input #1, tabl1(num_fiche, 10)
            Line Input #1, tabl1(num_fiche, 11)
            Line Input #1, tabl1(num_fiche, 12)
            Line Input #1, tabl1(num_fiche, 13)
        Loop
        Close #1

Maintenant pour chaque fiches, les diff&#233;rentes donn&#233;es sont les unes &#224; cot&#233;e des autres, le enter ne sert que pour ins&#233;rer une autre fiche, d'o&#249; : 

1er fiche :         1      (tab)      3      (tab)     5      (tab)     3      (tab)     2      (tab)     66     (tab)     
2i&#232;me fiche :     4      (tab)      13      (tab)     51      (tab)     3      (tab)     7      (tab)     1     (tab)   

ect....

Comment je dois &#233;crire le code pour ouvrir un fichier texte comme celui la ?

Merci davance pour votre aide .....

Luca62.

Ecrire une base de donnée sur excell etr la chargée ?

1 réponse

Discussions similaires