Jeux des 7 erreurs

Jeux des 7 erreurs - VB/VBA/VBS - Programmation

Marsh Posté le 29-04-2009 à 09:36:05    

Bonjour le forum,  
 
Je suis toujours un peu débutante dans la programmation et sur le même fichier de gestion de stocks. J'ai 2 versions de mon fichier, une qui fonctionne et une copie avec des fonctionalités supplémentaires mais qui ne fonctionnes pas sur certaines fonctions aux quelles normalement je n'ai rien modifié. Donc si quelqu'un se sent d'âme à essayer de m'aider à retrouver où pourrait bien se cacher l'erreur ça serais avec grand plaisir^^.
 
http://www.yousendit.com/download/ [...] V3hMWEE9PQ
 
Principe du fichier : En deux mots, il s'agit de completer des tableaux de gestion de stock à partir de fichier CSV d'entrée et de sortie de stock.  
Différence entre les deux fichiers : Dans le premier il n'y a que la fonction d'entrée de stock d'implanté et qui fonctionne normalement. Dans le second j'ai rajouté la fonction de sortie de stock sensiblement identique à celle d'entrée de stock mais dans les 2 fonctions aucunes données n'arrive sur la feuille récéption des données et encore moins dans chaque feuille de produit.  
 
Le problème porte donc sur les fonctions d'importations de données c'est à dire d'entrée et de sortie de stock (bouton sur l'onglet acceuil). Les deux fonctions ne bug pas dans les deux fichiers. Mais dans le 2ème les données ne sont pas récéptionnées alors que la fonction ne plante pas.  
 
Je sais qu'il est compliqué de se plonger dans un projet complet mais je pense que l'erreur doit être relativement évidente pour des gens plus expérimenté que moi.  
 
Merci à ceux qui lirons le poste jusqu'au bout et d'autant plus à ceux qui m'aiderons à résoudre mon problème.

Reply

Marsh Posté le 29-04-2009 à 09:36:05   

Reply

Marsh Posté le 30-04-2009 à 14:06:22    

Bon mon problème n'a pas l'air d'intéresser grand monde, tanpis je vais essayer de me débrouiller autrement.

Reply

Marsh Posté le 30-04-2009 à 18:50:18    

Bonsoir,
j'ai jeté un oeil, mais j'avoue ne pas avoir tout suivi.
j'ai juste remarqué que le ubound(ar) était de l'ordre de 5604 ce qui me semble grand, et la boucle sur while not eof ne "tournait" qu'une fois.  
Ce n'est peut-être pas la bonne piste.  
mais je n'ai pas beaucoup de temps en ce moment.
Cordialement
 
par contre, tes csv sont compatibles avec la séquence suivante:
 
Workbooks.Open Filename:=   "C:\....ton chemin....\Entrée de stock.csv"
ce qui permet d'ouvrir ton csv sous excel, puis de choisir tes colonnes.


Message édité par seniorpapou le 30-04-2009 à 18:57:56
Reply

Marsh Posté le 02-05-2009 à 12:44:39    

Bonjour,
je confirme: le csv n'a pas une structure de CR/LF  
reconnue par le line input. L'ouverture avec le bloc note le montre bien.
Pour faire un test, j'ai ouvert le csv avec word, puis je l'ai sauvé en .txt et enfin renommé en csv: le "qui bug" fonctionne alors parfaitement.
le "qui fonctionne"  , ne fonctionne pas non plus, la feuille intermédiaire "reception_donnees" montre, en la rendant visible, qu'on alimente la première ligne seulement. L'illusion du fonctionnement vient du fait que la feuille qui s'affiche en fin est déjà remplie.
Cordialement


Message édité par seniorpapou le 02-05-2009 à 12:48:36
Reply

Marsh Posté le 02-05-2009 à 15:34:14    

Bonsoir,
 
Dim fso, fil
Dim maligne
Set fso = CreateObject("Scripting.FileSystemObject" )
Set fil = fso.OpenTextFile(Chemin, 1, -2)
 Do Until fil.AtEndOfStream = True
 
Chaine = fil.readline
 
   MsgBox (Chaine)
Loop
fil.Close
 
 
voici une séquence qui peut lire tes csv ligne par ligne, à adapter à tes besoins


Message édité par seniorpapou le 02-05-2009 à 15:53:17
Reply

Marsh Posté le 04-05-2009 à 10:19:49    

Je rentre de gros week end compète je vais étudiez ça. Merci bien :p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed