Line Input #1, ligne
If ligne = '' Then
MsgBox 'des lignes vides existent dans le fichier'
Else
Input #1, var1, var2
Range('A' & interRow).Value = var1
Range('B' & interRow).Value = var2
End If
modifier le code comme ci-dessus, ça devrait eviter l'erreur 62.
j'ai modifier le code pour eliminer l'erreur 62 mais je l'ai tjrs et en plus j'arrive pas a avoir mon fichier txt final (je crois que c'est a cause de l'erreur 62)
Mais est ce que t'as l'erreur 62 sur le fichier que je t'ai donnée?
je n'ai pas eu d'erreur 62 sur le fichier joint. Par contre je l'ai simulée en ajoutant des lignes vierges en fin de fichier.
Cette action génère l'erreur 62.
La procédure donnée vendredi teste le contenu de la ligne avant d'extraire les données. Et dans le cas de lignes vides un message le signale et la procédure passe à la ligne suivante.
Normalement si tu as bien réalisé la modif l'erreur 62 ne doit plus se produire.
Si l'erreur se produit, le fichier final n'est pas crééé car la procédure est arrêtée.
wé! ca marche mais il me donne pas tous les resultats( moyenne ecart type et pente).Il me donne uniquement les 50 premiers valeurs.
le resultat est en fichier joint [file name=resultat.zip size=481]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/resultat.zip[/file]
Mais pour les calculs fait au niveau de ta feuille resulta ya pas moyen de les recuperer car je ne vois pas de resultat de calcul sur mon fichier destination