XL 2016 Sauvegarder Ancienne Version Requête PQ dans Tableau Excel

[Etoto]

Bonjour,

Sur mon classeur Excel, j'ai une requête qui permet de récupérer les données des changes actualisée, mais j'aimerais savoir si sur la deuxième feuille, s'il est possible de stocker les anciennes version, par exemple j'aimerais récupérer les données de ma requête une fois par jour pour la stocker sur mon autre tableau.

Si je m'explique mal, dites-moi.

Voici la PJ


Cela risque d'être complexe, je sais même pas si c'est possible, merci d'avance.

 

[Lolote83]

Bonjour ETOTO,
Ton fichier en retour en espérant avoir bien ciblé la consigne
@+ Lolote83

 

[Etoto]

Bonjour ETOTO,
Ton fichier en retour en espérant avoir bien ciblé la consigne
@+ Lolote83

C'est exactement le type d'extraction que je veux, arriverais-tu par contre, à transférer cette ligne dans le tableau de la deuxième feuille stp ? Merci d'avance.

 

[Lolote83]

Re bonjour,
Il me semble que c'est ce que fait la macro jointe dans mon fichier en retour.
Ou alors, je n'ai pas compris la demande
@+ Lolote83

 

[Etoto]

Re bonjour,
Il me semble que c'est ce que fait la macro jointe dans mon fichier en retour.
Ou alors, je n'ai pas compris la demande
@+ Lolote83

Je crains que ta macro aie un problème, voici une image qui montre où la macro extrait les données. Mais peut-être que je fais une mauvaise manip.

 

[Lolote83]

Re bonjour,
Effectivement, y a un bugg !!!
Désolé. Je corrige et te renvois la nouvelle version.
@+ Lolote83

 

[Etoto]

Re bonjour,
Effectivement, y a un bugg !!!
Désolé. Je corrige et te renvois la nouvelle version.
@+ Lolote83

Pas de problème, prends ton temps, merci déjà de ton aide.

 

[Lolote83]

Re bonjour,
Juste un . qui avait disparu.
Modifie le code ci-dessous

        For F = 1 To 24
            Cells(xLig, 2 + F) = xPlage(F, 1)
        Next F

par celui-ci

        For F = 1 To 24
            .Cells(xLig, 2 + F) = xPlage(F, 1)
        Next F

Tu peux remarquer qu'il manque le point juste devant le mot Cells(..........)
@+ Lolote83

 

[Etoto]

Re bonjour,
Juste un . qui avait disparu.
Modifie le code ci-dessous

        For F = 1 To 24
            Cells(xLig, 2 + F) = xPlage(F, 1)
        Next F

par celui-ci

        For F = 1 To 24
            .Cells(xLig, 2 + F) = xPlage(F, 1)
        Next F

Tu peux remarquer qu'il manque le point juste devant le mot Cells(..........)
@+ Lolote83

C'est parfait ! Par hasard, si demain, je reviens sur le fichier pour extraire ces données, elles seront toujours transférée vers la première ligne ou celle du dessous ?

EDIT : Autant pour moi, je viens de faire le test et ça fonctionne, merci !

 

[Lolote83]

Re bonjour,
Chaque fois que tu feras une nouvelle extraction, les données copiées seront en regard de la ligne de la date ou tu feras tes extractions.
Aujourd'hui, les données seront sur la ligne du 28/5/21
Si demain, les données seront sur la ligne du 29/5/21 ect etc etc.
EDIT: Oups, pas lu jusqu'au bout.
@+ Lolote83

 

[Etoto]

Re bonjour,
Chaque fois que tu feras une nouvelle extraction, les données copiées seront en regard de la ligne de la date ou tu feras tes extractions.
Aujourd'hui, les données seront sur la ligne du 28/5/21
Si demain, les données seront sur la ligne du 29/5/21 ect etc etc.
EDIT: Oups, pas lu jusqu'au bout.
@+ Lolote83

Ok super, merci et bonne journée 😉 🙂

 

[Etoto]

Re,

J'ai amélioré mon fichier pour créer les taux de changes en rapport avec la Suisse, hélas si je les rajoutait au tableau de la requête, dés qu'il s'actualise cela supprime tout, alors j'ai créé un autre tableau pour ça qui a des formules tirées de la requête. Arriverais-tu dans ta macro de transférer les données de ce deuxième tableau vers celui de la feuille 2 que j'ai adapté pour y incorporer les nouvelles données ?

Le voici en PJ

 

[Lolote83]

Salut ETOTO,
Voici donc le code

Sub ReupDonnées()
    xPlage1 = Range("Données_boursières[Dernier Prix]")
    xPlage2 = Range("Tableau3[Dernier Prix]")
    On Error GoTo Erreur
    xLig = [J6] + 2
    With Sheets("Historique Bourse")
        For F = 1 To 24
            .Cells(xLig, 2 + F) = xPlage1(F, 1)
        Next F
        For F = 1 To 19
            .Cells(xLig, 26 + F) = xPlage2(F, 1)
        Next F
    End With
    Exit Sub
Erreur:
    MsgBox "Date du jour n'est pas dans le tableau", vbCritical, "ERREUR"
End Sub

Bonne soirée et bon week-end
@+ Lolote83

 

[Etoto]

Salut ETOTO,
Voici donc le code

Sub ReupDonnées()
    xPlage1 = Range("Données_boursières[Dernier Prix]")
    xPlage2 = Range("Tableau3[Dernier Prix]")
    On Error GoTo Erreur
    xLig = [J6] + 2
    With Sheets("Historique Bourse")
        For F = 1 To 24
            .Cells(xLig, 2 + F) = xPlage1(F, 1)
        Next F
        For F = 1 To 19
            .Cells(xLig, 26 + F) = xPlage2(F, 1)
        Next F
    End With
    Exit Sub
Erreur:
    MsgBox "Date du jour n'est pas dans le tableau", vbCritical, "ERREUR"
End Sub

Bonne soirée et bon week-end
@+ Lolote83

Je testerais demain en attendant, merci beaucoup.

 

[Etoto]

Salut ETOTO,
Voici donc le code

Sub ReupDonnées()
    xPlage1 = Range("Données_boursières[Dernier Prix]")
    xPlage2 = Range("Tableau3[Dernier Prix]")
    On Error GoTo Erreur
    xLig = [J6] + 2
    With Sheets("Historique Bourse")
        For F = 1 To 24
            .Cells(xLig, 2 + F) = xPlage1(F, 1)
        Next F
        For F = 1 To 19
            .Cells(xLig, 26 + F) = xPlage2(F, 1)
        Next F
    End With
    Exit Sub
Erreur:
    MsgBox "Date du jour n'est pas dans le tableau", vbCritical, "ERREUR"
End Sub

Bonne soirée et bon week-end
@+ Lolote83

Ton code est parfait, merci beaucoup.