Discussion :

[RuDaï KiRi]

Bonjour ProgElect,
Franchement bravo pour ta rapidité!
J'ai pas pu bosser dessus hier soir,
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

[RuDaï KiRi]

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 :

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

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.
Merci d'avance

[ProgElecT]

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 +

[ProgElecT]

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 :

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

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

[RuDaï KiRi]

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

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 :

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

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

je vois pô

Je cherche.
Merci

[RuDaï KiRi]

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

[RuDaï KiRi]

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

Merci beaucoup ProgElect

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