VBA à améliorer et compléter

en fait le fichier 001 BL.xls n'est pas "touchable" je veux dire que chaque livraison doit apparaître pour l'historique. donc les doublons ne doivent pas être effacés.
en fait dans le fichier graphes il y a déjà des lots présents donc l'idée était de ne pas rappatrier des données d'un lot qui était déjà compilé d'où la vérification que je suggérais dans le fichier 001 BL.xls qui contient tout l'historique. >> ainsi on évite les doublons dans le fichier graphes

non non aucune protection, je veux dire par intouchable que toutes les données présentes dans 001 BL.xls doivent être conservées. c'est justement ce fichier qui contient toutes les données d'entrée qui exécute la macro.

je pense réellement qu'il faille lancer la macro du module 3 de 001 BL.xls pour comprendre le processus que je cherche à obtenir et le modifier pour obtenir le fonctionnement basique qui fonctionne systématiquement car moi ça ne fonctionne que pour remplir la première colonne vu que le vllokup fait référence au nombre de colonne.
Tout mes commentaires sur les points que je n'ai pas su mettre en oeuvre ça serait dans un second temps

en principe ça plante après le premier vlookup
là les messages d'erreur doivent venir des constantes imposées, en l'occurrence le directory du fichier graphes

ça montre mon niveau en VBA
j'ai imposé la constante du répertoire alors qu'ensuite j'indique le répertoire !!!!
en fait il y a le directory du second fichier à changer et modifier l'extension XLSM par XLS sinon effectivement ça plante d'emblée. et là chez moi ça plante pour trouver la dernière colonne remplie alors que ça fonctionnait au boulot ... :-/

OUI tout est correct dans ce que tu as décrit, c'est la procédure qui aurait dû se passer avec ma macro

les informations dans 001 BL.xls sont des imports de fichiers texte, et il n'y a rien d'autre à faire dessus. ce fichier donne juste les entrées des lots et on vérifie qu'on a bien reçu les documents à travers les colonnes P et Q

je suis sincèrement désolé de t'avoir fait perdre autant de temps, j'aurais dû recontroler que ça fonctionnait en postant les fichiers

J'avais posté il y a qques semaines en décrivant comme vous l'avez fait et en joignant les fichiers mais je n'ai eu aucune réponse donc j'ai pensé à démarrer la macro pour que ce soit plus parlant (mais bon ça n'a rien donné)

http://www.cijoint.fr/cjlink.php?file=cj201105/cijke7mJTR.xls
ici le fichier en l'état actuel avec toutes ces lignes pour vous donnez une idée d'uen nombre de lignes que ça génère à chaque livraison et donc l'intérêt (d'après moi) d'instaurer une fonction permettant de ne traiter que les nouvelles entrées (genre un compteur qui dit que lors du dernier import nosu étions à la ligne 3985 et donc au prochain la macro devra se lancer à partir de la ligne 3986)
enfin je pense que vous êtes le mieux à même de dire ce qui est le plus judicieux

bonsoir
merci pour cette procédure
j'étais en train de rire parce que ma boucle pour parcourir les différentes lignes me prenait uen dizaine de lignes et là ça prend 3 lignes ^^
je vais regarder demain car il y a un erreur d'incompatibilité de type sur la ligne qui prend la date et la transforme au format européen, ça fait planter la macro.
sinon je peux que c'est de l'excellent travail. Merci beaucoup

Ok c'est bon j'ai trouvé ce qui faisait planté
Cells(2, precovi) = CDate(Right(refdate, 2) & "/" & Mid(refdate, 5, 2) & "/" & Left(refdate, 4))
j'ai remplacé les "." par "/"
tous tes commentaires m'ont permis de trouver

Bonjour,
Note : cela est dû au format des dates de votre système qui utilise "/" au lieu du ".".
Salutations.
Le Pingou

la référence base est toujours celle des feuilles fournisseurs (colonne A)

- pour les unités c'était juste pour vérifier que les nouvelles valeurs étaient en concordance avec les précédentes avec ce contrôle sur les unités

- c'était en imaginant que notre fournisseur fasse mal son fichier xml et qu'une valeur soit absente d'uen ligne, du coup il y aurait un blanc

- pour chaque livraison on indique en colonne A du fichier 001 BL.xls, le numéro du bon de livraison et la date. Imaginons qu'on démarre à l'instant t=0. la première ligne serait 20 et 25 produits sont livrés donc on lancerait via le bouton la macro pour ces 25 lignes et la valeur de la colonne A serait enregistrée dans une case mémoire.
le 2è jour nouvelle livraison de 10 produits. et là plutôt que la macro reparte de la ligne 20, elle irait voir la valeur en cellule mémoire et se placerait sur la ligne suivante pour exécuter la macro pour les nouvelles lignes.

Bonjour,
Petite remarque :
- pour les unités c'était juste pour vérifier que les nouvelles valeurs étaient en concordance avec les précédentes avec ce contrôle sur les unités
Cela n'a pas de sens car la même unité (ppb est valable pour plusieurs produits (Arsenic, cobalt, etc.)

- c'était en imaginant que notre fournisseur fasse mal son fichier xml et qu'une valeur soit absente d'une ligne, du coup il y aurait un blanc
Oui dans ce cas il manquera la valeur dans le lot concerné ---? que faire ?
Salutations.
Le Pingou

:-)
j'ai fait un premier essai et ça me semble très bien
et le transfert des infos du vlookup sur une seconde feuille est une bonne idée tout comme la liste déroulante
demain je verrai avec le fichier de base et les fichiers xml pour voir sur une plus grande échelle mais je susi déjà content
Merci beaucoup pour ce travail

oui toujours le même fichier de compilation
il y a 90 feuilles actuellement et avec les prochains ajouts on arrivera à 100 mais guère plus.

je vais modifier cette partie de la procédure
'activer la feuille du fournisseur
Worksheets(feuille).Activate
car pour une même feuille il peut y avoir 2 PN différents. il s'agit du même produit et des mêmes données, c'est simplement la contenance qui change et donc je compile sur la même feuille

j'avais mis ça pour faire la recherche sur les 2 première cases A1 et A2 vu qu'ici je place les différents PN, reste à savoir si c'est la meilleure technique pour trouver la bonne feuille
'Se positionner dans l'onglet correspondant au PN et au bon fournisseur
Dim celluletrouvee As Range
Dim feuille As Object

For Each feuille In Worksheets
Set celluletrouvee = Range("A1:A2").Find(onglet, lookat:=xlWhole) 'pas sûr qu'il faille utiliser ces arguments là
Worksheets(onglet).Activate
Next

bonjour,
je me suis permis de déplacer des blocs car la première boucle pour les lignes NonOK ne fonctionnait pas en laissant l'ouverture du fichier de compilation que j'ai mis dans la seconde procédure

'ouverture du fichier de compilation
repertoire = Range("monrepert")
wbcompile = Range("ClaCompil")
Workbooks.Open Filename:=repertoire & wbcompile

' Workbooks(wbcompile).Close SaveChanges:=True

par contre l'activation de la bonne feuille pose le même problème.
par exemple : ma feuille s'appelle actuellement 2CAC0731 FOURNISSEURA
donc pour la ligne avec 2CAC0731 ça ne posera aucun soucis.
par contre supposons que le 2CAC0732 soit la même substance même de contenance différente, il ne trouvera pas la feuille car les données doivent être compilées aussi en feuille 2CAC0731 FournisseurA
je susi responsable car je n'ai pas envoyé un fichier avec cet exemple.
en feuille 2CAC0731 FOURNISSEURA on retrouvera
en A1 : 2CAC0731 FOURNISSEURA
en A2 : 2CAC0732 FOURNISSEURB
du coup au départ comme je lançais la recherche sur les cellules A1 et A2 de chaque feuille, j'arrivais à retrouver la bonne feuille
j'ai remis un exemple http://www.cijoint.fr/cjlink.php?file=cj201106/cijnMQoVUX.zip

Bonjour,
Je vais regarder votre demande plus tard.
Toutefois, la version que je vous ai transmise fonctionne correctement avec divers documents [xml] fictifs ainsi que pour des fournisseurs aussi différents
Salutations.
Le Pingou

je ne sais pas ce que j'ai fait mais il faut regarder dans le dossier graphes du zip
là il y a une feuille 2cac0730 founisseurB avec uen seule valeur en A1 et la seconde feuille 2CAC0730 FournisseurA avec en A1 2CAC0730 et en A2 2CAC0731
le fournisseurA utilise 2 contenants différents d'où A1 et A2 alors que le fournisseurB n'en utilise qu'un

les fichiers sont enregistrés avec une nomenclature précise : PN lot fournisseur.extension
avant de poster ici la colonne L était vide et mes cases A1 et/ou A2 contenaient seulement le PN. du coup il était impossible de faire la différence entre les fournisseurs donc j'ai rajouté la concaténation en colonne L [001 BL] pour retrouver la bonne feuille en rajoutant en A1/A2 le fournisseur à la suite du PN (2CAC0731 par ex)

ah d'accord je comprends l'incohérence dont vous parliez tout à l'heure en lisant votre explication.
en effet le nom de la feuille est seulement composé du PN et FOURNISSEUR car les caractères sont limités et je me suis trouvé confronté à ce problème par la suite. j'avais fait le choix d'indiquer le nom de la substance quand c'est possible (H2SO4 ou HCl, NaOH) qui comptent peu de caractères ou quand la substance compte trop de caractères, de mettre le PN et FOURNISSEUR pour différencier lorsqu'une même substance est fournie par 2 fournisseurs.

les 90 onglets existants dans le vrai fichier représentent chacun une substance chez un fournisseur. cette même substance peut être livrée en bouteille ou en fût >> 2 PN différents pour chaque contenance et je les indique en A1 et A2 (PN FOURNISSEUR pour ne pas écrire les données du fournisseur A dans la feuille du fournisseur B)
il ne peut pas y avoir plus de 2 contenants pour une même substance chez un fournisseur

pour résumer, le nom des feuilles étaient juste pour le classement lors de ma construction de la base mais les noms des feuilles n'est pas exploitable par macro car il y manque des informations

Bonjour,
Comment est nommé la feuille du vrai fichier ?
Salutations.
Le Pingou

malheureusement il n'y a pas de règle précise quand je nommais les feuilles
la seule chose sûre c'est que j'indique le nom du fournisseur à chaque fois. mais ça n'aide pas vu que plusieurs feuilles ont le même fournisseur
je ne voyais pas comment mettre uen nomenclature en place pour toutes les feuilles alors que les caractères sont limités

Bonjour,
Comment est nommé la feuille du vrai fichier ?
Salutations.
Le Pingou

H2SO4 96% fournisseurA (en vrai fournisseurA = 3 caractères)

H2SO4 96% OMG >> nom de la vraie feuille
dans le classeur graphe, l'objectif est de compiler toutes les données des différents pour chaque substance et ainsi faire un suivi.
ce suivi permettra de mettre en corrélations des valeurs atypiques avec notre production
par exemple si la valeur habituelle est de 1 et que sur un lot elle passe à 9 on pourra voir s'il y a un impact. Ce suivi se fera à travers des courbes pour chaque ligne et pour chaque feuille.

rajouter uen ligne avec le PN engendrerait un mixing des données de différentes substances ce qui n'aurait aucune valeur pour le suivi.
le suivi ne porte pas sur les fournisseurs mais sur la qualité des substances par fournisseur

est ce que la recherche que j'avais mise au départ est la meilleure solution ?
Dim feuille As String, PN As String
Dim onglet As Object

feuille = shB.Range("L" & ligref).Value

For Each onglet In Worksheets
Set celluletrouvee = Range("A1:A2").Find(feuille, lookat:=xlWhole)
Worksheets(onglet).Activate
Next