anthony
17 juin 2011 à 09:24
Bonjour,
en attendant les fichiers xml et xls des fournisseurs, j'ai copié votre procédure et l'ai modifiée pour checker les lots que je n'avais pas encore intégré dans la base de données graphes.xls
je reprends la procédure "sub importer" que je renomme et je change juste le nom d'appel de la procédure importmiseenplace pour éviter les conflits
et voici les modifs réalisées :
Sub controleactif(ligref As Long, shB, shRef)
'
Dim fournisseur As String, lot As String, repertoire As String
Dim feuille As String, PN As String
Dim precovi As Integer, lig As Long, reflig As Long
Dim repert_datas As String
Application.ScreenUpdating = False
repertoire = shB.Range("monrepert")
lot = shB.Range("N" & ligref).Value
fournisseur = shB.Range("O" & ligref).Value
PN = shB.Range("M" & ligref).Value
feuille = PN & " " & fournisseur
repert_datas = shRef.Range("cherep")
Workbooks("Graphes.xlsm").Activate 'fichier de compilation
'chercher la première colonne vide pour écrire les données
precovi = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column + 1
' contrôler: si le lot est déjà présent --> ne rien faire
If WorksheetFunction.CountIf(Rows(1), lot) <> 0 Then
shB.Cells(ligref, 20) = "OK"
shB.Cells(ligref, 21) = Date & " / " & Time
Exit Sub
End If
Cells(1, precovi) = lot 'valeur lot
'Application.ScreenUpdating = True
End Sub
ainsi depuis le fichier 001 BL.xls je regarde si tous les lots recensés sont déjà présents dans le fichier graphes.xls et s'ils ne le sont pas, ça m'inscrit le numéro de lot manquant. AInsi ça me permet de gagner du temps et j'ai immédiatement la référence du lot pour lequel je dois taper à la main les valeurs.
le pb existant c'est que j'ai quelques numéros de lots qui ont été inscrits mais pas dans la bonne feuille. Avez vous une idée de la cause ?
j'ai pensé à la fusion de tabfou et reffichfo mais ici il n'y a pas le vlookup donc la fusion n'a pas d'impact
