Manipulation de donnée - Inventaire

Bonjour à tous,

J'essai désespérément d'automatiser la récupération de donnée de plusieurs classeurs pour les rassembler en un point.
Je vous explique, j'ai la possibilité de faire une extraction des stocks de mon entrepôt chaque mois. J'obtiens ainsi un fichier à deux colonnes A (Référence du produit) et B (Quantité en stock).

Mon souhait est de pouvoir avoir un fichier indépendant sur lequel je puisse rajouter le stock mois par mois facilement sachant que certaines références peuvent être à 0 et donc ne pas apparaitre sur l'inventaire d'un mois et réapparaitre sur le mois suivant.

Mon classeur final doit se présenter sous la forme : A (Référence) B(Stock Janvier) C (Stock Février) D (Stock Mars) ...
J'aurai souhaité avoir une macro qui récupère les valeurs du stock et la copie en face de la bonne référence automatiquement.

J'ai essayé avec l'aide de conditions et boucles mais j'ai l'impression de ne pas arriver à clôturer cette fonction car elle tourne en boucle et me fait planter excel.

Avez vous des pistes pour m'aiguiller ? Peut être que je me casse la tête pour rien :roll:

Merci de votre aide

Salut, c'est possible d'avoir un fichier en exemple ?

J'ai déjà un code qui fait a peu prés la même chose (que je viens de modifier) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Sub test() Dim cheminFichier As String Dim wb As Workbook Dim TabData(1 To 3) As Variant Dim xlapp As Excel.Application Dim derniereLigne As Integer Dim dateData As Date   dateData = Date   Set xlapp = CreateObject("Excel.Application") xlapp.Visible = False   Set wb = xlapp.Workbooks.Open(Application.GetOpenFilename("Tous les fichiers (*.*),*.*"))   derniereLigne = wb.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row   For i = 2 To derniereLigne Erase TabData TabData(1) = dateData TabData(2) = wb.ActiveSheet.Cells(i, 1) TabData(3) = wb.ActiveSheet.Cells(i, 2) ajoutLigne TabData(), "BDD_stock", Feuil2 Next i   wb.Close False xlapp.Quit   End Sub     Function ajoutLigne(CellV(), NomTab As String, feuille As Worksheet) Dim row As ListRow Dim table As ListObject Set table = feuille.ListObjects(NomTab) Set row = table.ListRows.Add() For i = 1 To UBound(CellV) If IsEmpty(CellV(i)) Then GoTo saut Else row.Range.Cells(i).Value = CellV(i) End If saut: Next i End Function

---

Il faut créer un tableau structuré ici nommé "BDD_stock" avec 3 colonnes : date, ref, stock

Il y a une incrémentation via tableau mais c'est seulement car j'ai utilisé une fonction d'incrémentation de tableau structuré que j'ai créée il y a un moment déjà (je m'en sers beaucoup d'ailleurs)

En gros ici je viens demander a l'utilisateur de sélectionner un fichier à importer (je n'ai pas précisé de tri par extension car je ne connais pas celle que tu utilise), en suite ça vient chercher le nombre de lignes max dans le tableau et ça boucle sur chaque lignes pour les incrémenter dans ton tableau "BDD_stock".

Le problème c'est que je viens inscrire la date au moment de l'importation car je ne sais pas comment récupérer celle du mois de ton fichier, il serait bien de le rajouter dans l'importation (colonne supp). Pour le faire de manière rétroactive il faudrait demander a l'utilisateur de l'entrer (via datePicker du pack de fonctions xlp par exemple https://www.excel-pratique.com/fr/fo...es/date-picker)

Tiens j'ai mis les deux fichiers que j'extrais chaque mois

Citation:

---

Envoyé par ChristianBosch

Salut, c'est possible d'avoir un fichier en exemple ?

J'ai déjà un code qui fait a peu prés la même chose (que je viens de modifier) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Sub test() Dim cheminFichier As String Dim wb As Workbook Dim TabData(1 To 3) As Variant Dim xlapp As Excel.Application Dim derniereLigne As Integer Dim dateData As Date   dateData = Date   Set xlapp = CreateObject("Excel.Application") xlapp.Visible = False   Set wb = xlapp.Workbooks.Open(Application.GetOpenFilename("Tous les fichiers (*.*),*.*"))   derniereLigne = wb.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row   For i = 2 To derniereLigne Erase TabData TabData(1) = dateData TabData(2) = wb.ActiveSheet.Cells(i, 1) TabData(3) = wb.ActiveSheet.Cells(i, 2) ajoutLigne TabData(), "BDD_stock", Feuil2 Next i   wb.Close False xlapp.Quit   End Sub     Function ajoutLigne(CellV(), NomTab As String, feuille As Worksheet) Dim row As ListRow Dim table As ListObject Set table = feuille.ListObjects(NomTab) Set row = table.ListRows.Add() For i = 1 To UBound(CellV) If IsEmpty(CellV(i)) Then GoTo saut Else row.Range.Cells(i).Value = CellV(i) End If saut: Next i End Function

---

Il faut créer un tableau structuré ici nommé "BDD_stock" avec 3 colonnes : date, ref, stock

Il y a une incrémentation via tableau mais c'est seulement car j'ai utilisé une fonction d'incrémentation de tableau structuré que j'ai créée il y a un moment déjà (je m'en sers beaucoup d'ailleurs)

En gros ici je viens demander a l'utilisateur de sélectionner un fichier à importer (je n'ai pas précisé de tri par extension car je ne connais pas celle que tu utilise), en suite ça vient chercher le nombre de lignes max dans le tableau et ça boucle sur chaque lignes pour les incrémenter dans ton tableau "BDD_stock".

Le problème c'est que je viens inscrire la date au moment de l'importation car je ne sais pas comment récupérer celle du mois de ton fichier, il serait bien de le rajouter dans l'importation (colonne supp). Pour le faire de manière rétroactive il faudrait demander a l'utilisateur de l'entrer (via datePicker du pack de fonctions xlp par exemple https://www.excel-pratique.com/fr/fo...es/date-picker)

---

Waw je comprend pas la moitié de la macro, je crois que je suis loin des compétences requises pour faire cette action mdr

Voila j'ai fait une macro qui importe dans un tableau en 4 colonnes (qu'il va falloir créer dans une feuille et le nommer "BDD_stock")

Comme ceci :

Pièce jointe 598471

Ça va importer tes fichier, par contre je vois que tu as un grand nombre de lignes par fichier (plus de 4000) donc ça fait a peu prés 20 ans car 1 048 000/4200/12 = 20.

Les extractions son un peu longues également (2 minutes par fichier avec mon i5-4300u). Il existe surement des méthodes plus rapides et moins gourmandes en ressources matérielles (power querry) mais je ne les connais pas, il faudra voir avec les autres (ca m’intéresse aussi d'ailleurs)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Sub test() Dim cheminFichier As Variant Dim wb As Workbook Dim TabData(1 To 4) As Variant Dim xlapp As Excel.Application Dim derniereLigne As Integer Dim mois As Integer Dim annee As Integer   cheminFichier = Application.GetOpenFilename(" Fichiers CSV (*.csv), *.csv") If cheminFichier = False Then GoTo fin mois = Mid(cheminFichier, Len(cheminFichier) - 7, 2) annee = Mid(cheminFichier, Len(cheminFichier) - 5, 2)   Set xlapp = CreateObject("Excel.Application") xlapp.Visible = False   Set wb = xlapp.Workbooks.Open(cheminFichier, , True, 4, , , , , , , , , , True)   derniereLigne = wb.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row   Application.Calculation = XlCalculation.xlCalculationManual   For i = 2 To derniereLigne Erase TabData TabData(1) = mois TabData(2) = annee TabData(3) = wb.ActiveSheet.Cells(i, 1) TabData(4) = wb.ActiveSheet.Cells(i, 2) ajoutLigne TabData(), "BDD_stock", Feuil2 Next i   Application.Calculation = XlCalculation.xlCalculationAutomatic   wb.Close False xlapp.Quit fin:   End Sub     Function ajoutLigne(CellV(), NomTab As String, feuille As Worksheet) Dim row As ListRow Dim table As ListObject Set table = feuille.ListObjects(NomTab) Set row = table.ListRows.Add() For i = 1 To UBound(CellV) row.Range.Cells(i).Value = CellV(i) Next i End Function

---

Et en suite tu fais un second tableau qui ventile le premier sur tes mois de l'année, il faut faire un tableau par an je pense comme ceci :

Pièce jointe 598469

Chaque mois quand tu vas importer il va se remplir.