Discussion :

[deathmihawk]

Bonjour à tous,

J'ai actuellement un fichier A qui me permet de réaliser des offres de prix pour nos clients, on travail avec un seul fichier que l'on actualise à chaque fois.
Pour avoir une gestion des stocks en temps réel en fonction des commandes que l'on réaliser, j'ai mon fichier B qui me permet de récupérer les données nécessaires, tel que : La date, l'OF, la quantité nécessaire de matière ainsi que mon solde.

Le problème que je rencontre c'est que je n'ai aucune idée de comment je peux figer mes informations et incrémenter les nouvelles sur la ligne en dessous et sans créer 12000 version de mon fichier A, exemple:

Fichier A : cellule A2 --> Date 01/09/2025 - cellule B2 --> OF 2000 - cellule L4 --> QT 15000 pièces.

Fichier B : ligne 2, cellule A2 --> Date 01/09/2025 - cellule B2 --> OF2000 - cellule B3 --> QT 15000.

Je modifie mon Fichier A avec cellule A2 --> Date 11/09/2025 - cellule B2 --> OF 365 - cellule L4 --> QT 2000 pièces

Sur mon fichier B devient :
ligne 2, cellule A2 --> Date 01/09/2025 - cellule B2 --> OF2000 - cellule B2 --> QT 15000
ligne 3, cellule A3 --> Date 11/09/2025 - cellule B3 --> OF365 - cellule B3 --> QT 2000

Si des personnes charitables veulent bien m'aider à résoudre ce casse-tête cela serait fort sympathique, s'il vous plaît.

Merci d'avance.

Cordialement,

[Raccourcix]

Bonjour
il est possible de passer par Power Query pour réaliser cette tâche

exemple avec un "fichier A.xlsx" enregistré dans C:\Temp


et un "fichier B" qui va lire le contenu du fichier A et le coller à la suite d'un tableau "Synthèse"

une requête "Offre" pour lire les cellules A2 [Column1]{1}, B2 [Column2]{1} et L4 [Column12]{3} du fichier A
NB, les listes commencent par l'index 0 dans Power Query, la ligne 2 = l'index 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let
    Source = Excel.Workbook(File.Contents("C:\Temp\Fichier A.xlsx"), false),
    Data = Table.FromRows({{Source[Data]{0}[Column1]{1}, Source[Data]{0}[Column2]{1},Source[Data]{0}[Column12]{3}}},
                                         Table.ColumnNames(Excel.CurrentWorkbook(){[Name="Synthèse"]}[Content]))
in
    Data

et une requête "Synthèse" qui s'autoréférence et ajoute la table "Offre" à la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let
    Source = Excel.CurrentWorkbook(){[Name="Synthèse"]}[Content],
    #"Lignes filtrées" = Table.SelectRows(Source  & Offre, each [Date] <> null and [Date] <> ""),
    #"Type modifié" = Table.TransformColumnTypes(#"Lignes filtrées",{{"Date", type date}, {"QT", type number}})
in
    #"Type modifié"

Je filtre ici sur les dates non vides pour éviter d'intégrer des données inutilement s'il n'y a rien dans le fichier A
Il faut que le fichier A soit enregistré lors de l'actualisation de la table "Synthèse"
On pourrait ajouter une suppression des doublons pour éviter d'avoir plusieurs fois les mêmes données



Faire une recherche sur l'autoréférencement au besoin ("power query self referencing")

Stéphane

[deathmihawk]

Bonjour Raccourcix,

Merci beaucoup pour ta réponse et est-il possible d'avoir un peu plus d'information car tout n'est pas des plus limpide pour moi :/

La feuille A que je créé, est un fichier excel "type (mon devis)".
Le fichier B, c'est aussi un fichier excel type avec une macro correspondant à la lecture du fichier A et je dois créer un 3ème fichier "synthèse" avec la mise en place du second code dans éditeur power query?

Ou je dois créer un fichier B qui relate les info du fichier A avec la macro + l'édition synthèse via power query ou tout en power query?

Merci d'avance pour tes réponses.

Cordialement.

[EricDgn]

A mon avis, c'est encore le genre de demande qu'une intelligence artificielle aura facile de répondre, cela en donnant des explications détaillées. Une réponse que j'ai reçu de deepseek:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
 
Sub TransfererDonnees()
    Dim wbSource As Workbook
    Dim wbDest As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim CheminFichierB As String
    Dim DerniereLigne As Long
 
    ' Définir le chemin du fichier B (à adapter)
    CheminFichierB = "C:\Chemin\Vers\FichierB.xlsx" '  Remplacez par le bon chemin
 
    ' Initialiser les objets
    Set wbSource = ThisWorkbook                     ' Fichier A (celui contenant la macro)
    Set wsSource = ActiveSheet                      ' Feuille source
 
    ' Ouvrir le fichier B
    Set wbDest = Workbooks.Open(CheminFichierB)
    Set wsDest = wbDest.Worksheets("NomFeuille")    ' Remplacez par le bon nom
 
    ' Trouver la dernière ligne occupée
    DerniereLigne = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1
 
    ' Copier les données
    With wsSource
        wsDest.Cells(DerniereLigne, "A").Value = .Range("A2").Value ' copie Date (A2) en colonne A
        wsDest.Cells(DerniereLigne, "B").Value = .Range("B2").Value ' copie Offre (B2) en colonne B
        wsDest.Cells(DerniereLigne, "C").Value = .Range("L4").Value ' copie Quantité (L4) en colonne C
    End With
 
    ' Sauvegarder et fermer le fichier B
    wbDest.Close SaveChanges:=True
 
    ' Nettoyer les objets
    Set wsDest = Nothing
    Set wbDest = Nothing
    Set wsSource = Nothing
    Set wbSource = Nothing
 
    MsgBox "Données transférées avec succès!"
End Sub

Cette macro est à déposer et utiliser dans le fichier A.
A améliorer!
Bonne continuation.

[deedolith]

La feuille A que je créé, est un fichier excel "type (mon devis)".
Le fichier B, c'est aussi un fichier excel type avec une macro correspondant à la lecture du fichier A et je dois créer un 3ème fichier "synthèse" avec la mise en place du second code dans éditeur power query?

Ou je dois créer un fichier B qui relate les info du fichier A avec la macro + l'édition synthèse via power query ou tout en power query?

Un seul fichier (B) sera nécessaire.
Il contiendra les 2 requêtes Power Query.
Aucune macro n'est nécessaire, on peut l'enregistrer en classeur Excel simple (.xlsx).

[deathmihawk]

Bonjour à tous,

Merci pour vos retour rapide, j'ai pu trouver la solution à mon problème grâce EricDng.

Merci aussi Deedolith pour ton aide mais je dois travailler sur plusieurs centaines de fichier sur la boucle final.

Bonne journée à vous.

Cordialement,