Power Query Requête mise à jour PowerQuery

A

Amilo

XLDnaute Accro

• 15 Juillet 2021

• #2

Bonjour,
Une proposition en trichant un peu,
Cordialement

 

Pièces jointes

• Test PowerQuery_D.D..xlsb

  19.3 KB · Affichages: 7

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 15 Juillet 2021

• #3

Amilo à dit:

Bonjour,
Une proposition en trichant un peu,
Cordialement

Cliquez pour agrandir...

Hello

Ca aurait pu être bon, mais si la valeur dans la colonne A se modifie, ca met en l'air le résultat.

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 15 Juillet 2021

• #4

Bonjour,
Powerquerry affiche le résultat d'une requête, il n'a pas vocation de mettre à jour une table !

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 15 Juillet 2021

• #5

Bonjour

dysorthographie à tiré plus vite que mon ombre

Il faut utiliser les outils à bon escient

Pour une mise à jour formules ou VBA

​

​

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 15 Juillet 2021

• #6

dysorthographie à dit:

Bonjour,
Powerquerry affiche le résultat d'une requête, il n'a pas vocation de mettre à jour une table !

Cliquez pour agrandir...

C'est bien ce qui me semblait. Merci pour la réponse

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 15 Juillet 2021

• #7

En fonction de ton fichier, il faudra adapter!

VB:

Sub test()
Dim Sql As String
Sql = "update [Feuil1$" & Replace(Range("A1").CurrentRegion.Address, "$", "") & "] as frm inner join [Feuil1$" & Replace(Range("F1").CurrentRegion.Address, "$", "") & "] as Frm2 on frm.A=Frm2.A  set  frm.E=Frm2.E, frm.F=Frm2.F "
Debug.Print Sql
With CreateObject("Adodb.connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Execute Sql
    .Close
End With

End Sub

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 15 Juillet 2021

• #8

Re,

Une autre proposition Power query qui devrait fonctionner...

Cordialement

 

Pièces jointes

• Test PowerQuery_D.D_V2..xlsb

  19.3 KB · Affichages: 18

Dernière édition: 15 Juillet 2021

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 16 Juillet 2021

• #9

Ah oui !
Très bien cette solution.
Merci

 

Vote positif 0 Vote négatif