Lancer toutes les connexions "ActiveWorkbook.Connections"

Résolu

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention - 30 nov. 2017 à 09:12

Bonjour,
Je cherche à lancer toutes les connexions d'un classeur automatiquement, ce code fonctionnera sur plusieurs classeurs indépendant, mais pas avec les mêmes noms de requête.
Donc j'imagine qu'il y a possibilité de lancer les requêtes sans préciser le nom ?

Merci.

Pascal

la macro ressemble à ça :

Sub donneeslgi()
'
' donneeslgi Macro
'

'
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA232").Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA2321"). _
Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA2321111"). _
Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA23211111"). _
Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA232111111"). _
Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA2321111111"). _
Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA23211111111") _
.Refresh
ActiveWorkbook.Connections("Lancer la requête à partir de PALMACEA232111111111" _
).Refresh
ActiveWorkbook.Connections( _
"Lancer la requête à partir de PALMACEA2321111111111").Refresh
End Sub

15 réponses

Réponse 1 / 15

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

je pense que ceci va le faire pour tout le classeur dans lequel se trouve le code:

Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisWorkbook.Worksheets
    For Each qt In ws.QueryTables
        qt.Refresh
    Next qt
Next ws

il est possible de l'adapter si cela doit être fait sur d'autres classeurs.

Réponse 2 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonsoir yg_be,

Merci pour ton aide, j'ai mis le code dans un module et celui ne fonctionne pas.

j'ai rajouté
Sub
end sub

j'ai oublié qq chose ?

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

"ne fonctionne pas" = ?
et ainsi?

Sub refreshallqt()
Dim wb As Workbook
Dim ws As Worksheet
Dim qt As QueryTable
Dim nqt As Integer, tnqt As Integer

Set wb = ThisWorkbook
MsgBox "Il y a " & CStr(wb.Connections.Count) & " connection(s) dans le fichier " & wb.Path
tnqt = 0
For Each ws In wb.Worksheets
    nqt = 0
    For Each qt In ws.QueryTables
        qt.Refresh
        nqt = nqt + 1
    Next qt
    If nqt > 0 Then
        MsgBox CStr(nqt) & " refresh dans " & ws.Name
    End If
    tnqt = tnqt + nqt
Next ws
MsgBox "On a fait " & CStr(tnqt) & " refresh dans le fichier " & wb.Path
End Sub

Réponse 3 / 15

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

ou ainsi?

Sub refreshallcn()
Dim wb As Workbook
Dim cns As Connections
Dim cn As WorkbookConnection

Set wb = ThisWorkbook
Set cns = wb.Connections
For Each cn In cns
    cn.Refresh
Next cn
End Sub

Réponse 4 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Merci yg_be

Le 2eme code fonctionne, mais comment je peux mettre une temporisation de 3 minutes le temps que le connexion finisse, car j'ai mis cette macro dans ma boucle avec appel du module avant ma boucle.

Hum je ne sais pas si c'est bien clair...

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

et ainsi?

Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisWorkbook.Worksheets
    For Each qt In ws.QueryTables
        qt.BackgroundQuery = False
        qt.Refresh
    Next qt
Next ws

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonjour yg_be,

Merci pour ton code.

BackgroundQuery = False

permet d'attendre l'actualisation et après la boucle va démarrer, si j'ai bien compris ?

Je viens de faire un essai, mais l'actualisation ne se fait pas.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

peux-tu partager ton fichier?

Réponse 6 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Tu vas encore prendre peur ...

Merci pour ton aide.

https://www.cjoint.com/c/GKwjWS4mrFX

Réponse 7 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Fichier avec les modules que je souhaite mettre avant ma boucle, tout comme module1.creerlien

https://www.cjoint.com/c/GKwkj1BMiSX

Réponse 8 / 15

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

je propose ceci (pas vraiment testé):

Sub refreshallcn()
Dim wb As Workbook
Dim cns As Connections
Dim cn As WorkbookConnection

Set wb = ThisWorkbook
Set cns = wb.Connections
For Each cn In cns
    If Not IsEmpty(cn.ODBCConnection) Then
        cn.ODBCConnection.BackgroundQuery = False
        cn.ODBCConnection.Refresh
    Else
        cn.Refresh
    End If
Next cn
End Sub

Réponse 9 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonsoir yg_be,

J'ai fait des essais, mais je ne sais pas si le code démarre pendant l'actualisation, je ne sais pas comment le voir ?

Bonne soirée.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

hier matin, tu écrivais "l'actualisation ne se fait pas".
l'actualisation se fait-elle maintenant?

Réponse 10 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonsoir yg_be,

Oui le dernier fais bien l'actualisation, mais je ne sais pas comment être sur qu'il soit bien fini avant le démarrage de la boucle et je ne sais pas comment je peux le contrôler.

Réponse 11 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Comment je peux mettre un Msgbox pour me dire module5.actualisation fini et un autre pour me dire module2.effaceleslignes commence, comme ça je vois si cela se fait l'un après l'autre.

Ça vaut quoi cette idée ?

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

je ne vois pas trop comment deux sub pourraient tourner en même temps.
je pense que tu veux vérifier que l'actualisation ne se fait pas en arrière-plan, en parallèle avec l'exécution des sub.
ne peux-tu pas te convaincre sur base du temps pris par l'exécution de la sub d'actualisation? ou bien elle va très vite, car elle ne fait presque rine, ou bien elle est ralentie par chaque refresh.

Réponse 12 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

oui c'est ça :

je veux vérifier que l'actualisation ne se fait pas en arrière-plan, en parallèle avec l'exécution des sub.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

ne peux-tu pas te convaincre sur base du temps pris par l'exécution de la sub d'actualisation? ou bien elle va très vite, car elle ne fait presque rien, ou bien elle est ralentie par chaque refresh.

Réponse 13 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

heu je ne comprends pas ta question ?

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

tu te demandes en fait si chaque commande refresh attend que l'actualisation soit finie, ou bien si le code continue et que l'actualisation se fait en parallèle avec l'exécution du code. c'est bien cela?
ne peux-tu pas vérifier cela simplement en regardant si le code s'exécute très vite, ou bien si il prend beaucoup de temps?

Réponse 14 / 15

thev Messages postés 1985 Date d'inscription Statut Membre Dernière intervention 713

Bonjour Pascalou93400,

je pense que tu devrais insérer l'instruction "Doevents" après le lancement de l'actualisation. Cette instruction devrait suspendre l'exécution du code tant que l'actualisation n'est pas terminée.

Réponse 15 / 15

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonjour yg_be,

Merci pour ton code, j'ai fini par le mettre à part pour le faire tourner, car je pense qu'il empiétait sur le code.

Bonne journée.

Pascal

Votre réponse