BDD Excel avec VB6

Bonjour ProgElect,
Franchement bravo pour ta rapidité!
J'ai pas pu bosser dessus hier soir, :bug:
mais je regarde ça ce soir après le boulot parce que j'ai pas de PC de dev au boulot!

ça à l'air bien mais il faut que je l'adapte à ma BDD sur excel car mes séprateurs ne sont pas les mêmes.

Merci encore et bonne journée Prog;)

Bonsoir le forum, Progelect,

Bon j'ai esayé d'adapter ton code à mon style d'appli, car d'ailleurs le fait d'utiliser un ficher texte et non un fichier excel me tente. enfin à voir.

mais j'ai une erreur à la ligne :

Code:

---

wsExcel_Cells(T, U) = DecoupeContenuCl(U)

---

il me dit "Indice en dehors de la plage" et je :?

Je met mon fichier en copie si tu as une idée. 8O
Merci d'avance
:bug:

Le format du fichier .txt n'est pas bon.
une ligne égal
Champs1,Champs2,Champsx,ChampNfin, (la virgule est obligatoire en fin de ligne.
La derniere ligne ce termine par une virgule et un retour chariot.
Je pense qu'une des lignes ne contient pas le même nombre de champs que la premiere ligne dont on se sert pour trouver le nombre de champs par ligne.
Chaque ligne doit obligatoirement avoir le même nombre de champs.
Je verifi de mon côté
A +

:yaisse2:
Trouver, dans fichier derniere ligne, dernier champs, ajouter une virgule et un retour a la ligne.
Par contre il faut redimentionner le GRID avec le code suivant (procedure Form_Initialize) entre les deux lignes commentaires,Mettre le GRID propriété ScrollBars = 3

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'dimensionne le grid en largeur MSHFlexGrid1.Width = 0 For T = 0 To MSHFlexGrid1.Cols - 1 MSHFlexGrid1.Width = MSHFlexGrid1.Width + MSHFlexGrid1.ColWidth(T) If MSHFlexGrid1.Width + 245 + (MSHFlexGrid1.Left * 2) + 60 > Screen.Width Then Me.Width = Screen.Width MSHFlexGrid1.Width = Me.Width - ((MSHFlexGrid1.Left * 2) + 60) Exit For End If Next T If Me.Width <> Screen.Width Then 'ajout du Scroling MSHFlexGrid1.Width = MSHFlexGrid1.Width + 245 'dimensionne la page Me.Width = MSHFlexGrid1.Width + (MSHFlexGrid1.Left * 2) + 60 End If Me.Top = 0: Me.Left = 0   'dimensionne la boite des entrées texte

---

Excuse Prog, j'avais oublié le coup de la virgule et du return. :oops:

Il me sort une erreur: Indice en dehors de la plage à:

à la fin de la boucle quand T = 1 et U=30 donc on scan bien de 0 à 29 .

Code:

---

If wsExcel_Cells(T - 1, U - 1) = "TRUE" Or wsExcel_Cells(T - 1, U - 1) = "FALSE" Then

---

je vois pô :roll:

Je cherche.
Merci

:oops::aie:
Je suis nul, j'ai encore zappé les "," à la fin de chaque ligne
désolé pour le précédent message!

Pas contre il ne me met pas les images mais la valeur true ou false.
J'essaye de comprendre.
merci:king:

:aie:
nan bah c bon, j'avais mis true et non TRUE
et false au lieu de FALSE.

Merci beaucoup ProgElect :king:

Je vais faire évolué ce type d'utilisation mais je pense que j'aurais d'autres questions sur le sujet.

Merci et t'es un chef Prog :yaisse2: