VBA : Mise à jour de données externes...

[lapinou1]

...provenant de requêtes Access...

Bonjour toute la famille XLDienne...

En ce mardi matin j'ai besoin d'une petite contribution de votre en part en VBA

J'ai ce code

Sub Maj_Data()
    Range('AA2').Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range('AE2').Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    ActiveWindow.SmallScroll ToRight:=10
    Range('AP2').Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range('B2').Select
End Sub

Qui sur une fuille met à jour 3 zones qui proviennent de 3 requêtes Access.

Que pensez-vous de celui-ci car il ne me parait pas terrible du tout ! (Il est pas de moi je rassure tout le monde j'aurais fais encore pire :woohoo: )

Actuellement, quand on lance le code, le Select se déplace en temps réel sur la feuille...si l'on change les data de range, il faut modifier le code,...

J'ai mes zones de données externes qui sont nommées DonnéesExternes1, DonnéesExternes2,...si ça peut aider !

Merci d'avance à tous
Bon mardi

 

[Guitarde]

Bonjour,

Tu peux spécifier directement quelle requête tu veux pettre à jour.


Range('DonnéesExternes1').QueryTable.Refresh BackgroundQuery:=False


Range('DonnéesExternes2').QueryTable.Refresh BackgroundQuery:=False


Range('DonnéesExternes3').QueryTable.Refresh BackgroundQuery:=False

Salutations
Eric