Discussion :

[JPaul_B]

Bonjour,
J'ai réaliser un programme VBA sur Excel qui utilise PQ pour une compilation de divers tables venant d'autre fichiers Excel. Les utilisateurs pouvant mettre à jours eux-mêmes les tables de compilation et autre TCD. Cela fonctionne bien sauf lorsque j'ai un pb de chargement d'une table pour n'importe quel raison (le petit signe "Attention" sur la query!) je n'ai pas d'alerte. La MàJ ne se réalise pas ou partiellement (j'ai plusieurs querries différentes) et donc donne des résultats faux.
Comment peut-on récupérer ces erreurs avec VBA afin de pouvoir les traiter ou à minima pouvoir alerter l'utilisateur qu'il y a un pb?
Merci bcp de votre aide car toutes mes recherches n'ont rien donnés à ce jour.

[Franc]

Bonjour, j'utilise régulièrement la structure ci-dessous pour la gestion des erreurs, n'utilisant pas PQ je n'ai pas testé mais je pense que ça pourrait peut-être t'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TonCodePrincipal()
    On Error Resume Next
    ' Ton code Power Query ici
 
    ' Vérifier s'il y a une erreur
    If Err.Number <> 0 Then
        ' Il y a une erreur, tu peux la traiter ici ou simplement l'afficher
        MsgBox "Erreur lors du chargement de la table: " & Err.Description
        ' Réinitialiser l'objet d'erreur
        Err.Clear
    End If
    On Error GoTo 0 ' Réinitialiser le gestionnaire d'erreurs à son état normal
End Sub

[JPaul_B]

Merci de ton aide Franc,
Dans mon cas, je n'ai pas de code VBA pour Power Query, c'est traité à part dans la partie PQ d'Excel. Mon soucis est de savoir comment je peux vérifier avec VBA que l'opération de PQ s'est correctement passée, puis après de gérer via VBA les pbs éventuels.
Nota: j'utilise aussi dans les Pgms VBA de gestion d'erreurs un peu comme le tient, mais dans le cas de PQ cela ne déclenche pas la gestion d'erreur VBA et c'est là qu'est l'os

[Philippe Tulliez]

Bonjour,
Le gestionnaire d'erreur fonctionne aussi lorsque l'on actualise une requête Power Query. Maintenant le message d'erreur ne sera peut-être pas aussi précis que ce que l'on attend.
Ainsi pour une source non trouvée on aura bien une erreur 1004 avec un message clair mais pour une erreur de nom de tableau à l'étape "Navigation", on aura également une erreur 1004 avec comme message "[Expression Error] La clé ne correspondait à aucune ligne dans la table".

[JPaul_B]

Bonjour,
Le gestionnaire d'erreur fonctionne aussi lorsque l'on actualise une requête Power Query. Maintenant le message d'erreur ne sera peut-être pas aussi précis que ce que l'on attend.
Ainsi pour une source non trouvée on aura bien une erreur 1004 avec un message clair mais pour une erreur de nom de tableau à l'étape "Navigation", on aura également une erreur 1004 avec comme message "[Expression Error] La clé ne correspondait à aucune ligne dans la table".

Merci Philippe,
J'ai mis en place un gestionnaire d'erreur juste avant la commande d'actualisation (mais peut-être mal fait??). le pb est qu'il y a des trous dans la raquette car j'ai eu des tables que ne se sont pas chargées sans aucun flag d'erreur. après analyse, l'une des causes était une colonne qui n'existait plus ou qui avait changé de nom dans l'un des tableaux que je croisais. Cela dit, je suis autodidacte sur Excel et PQ et ne pratique ce dernier depuis peu de temps j'ai peut-être mal utilisé les outils.

[Philippe Tulliez]

Bonjour JPaul,
Voici un code exemple où l'on actualise la table requête t_TimeSheet

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
Sub RefreshPowerQuery()
    Dim ls As ListObject
    Dim qt As QueryTable
    Dim erreurMessage As String
 
    On Error GoTo ErrorHandler ' Gestion d'erreur
 
    ' Référence à la feuille de calcul et la table de requête
    Set ls = Range("t_TimeSheet").ListObject
    Set qt = ls.QueryTable
    ' Actualiser la table de requête
    qt.Refresh BackgroundQuery:=False
 
ErrorHandler:
  ' Si Erreur
  If Err.Number Then
    ' Message d'erreur personnalisé
    erreurMessage = "Erreur " & Err.Number & " : " & Err.Description
    MsgBox erreurMessage, vbCritical
  End If
  ' Fin
  On Error GoTo 0
  Set qt = Nothing: Set ls = Nothing
End Sub

[jurassic pork]

Hello,
JPaul_B si tu as un classeur exemple sans données confidentielles avec le genre d'erreur que tu veux contrôler, cela sera plus simple pour essayer de te répondre.
Ami calmant, J.P

[JPaul_B]

Hello,
JPaul_B si tu as un classeur exemple sans données confidentielles avec le genre d'erreur que tu veux contrôler, cela sera plus simple pour essayer de te répondre.
Ami calmant, J.P

Bonsoir Jurassic pork,
il faut que je trouve une solution pour réaliser un fichier exemple, car J'ai des datas concernant des clients et si j'envoie mon programme même sans datas confidentielles, je fait en faire fuir plus d'un car il à quelques centaines de ligne!. de plus, je dois trouver la bonne méthode pour mettre les fichiers interrogés en même temps afin de tester les liaisons.