OVH Cloud OVH Cloud

supprimer l'enregistrement de la requete par macro XL

1 réponse
Avatar
CLmb
bonjour,
Je dispose d'une requete (.Qry stockée dans une macro) qui interroge un
fichier Excel pour obtenir une Sommation suivant deux critères (Somme de
durée d'activité par tâche réalisée et somme par chantier).
Je peux donc redemander ces résultats tant que nécessaire mais je voudrai
utiliser "ces résultats" sous forme d'une Liste (XL 2003) pour utiliser les
filtres automatiques et sommes automatiques.
Alors qu'il est possible de "supprimer manuellement" l'enregistrement de la
requête en décochant la case "enregistrer la définition de la requête" (dans
propriétés de la plage de données externes) à condition d'en confirmant la
suppression.
Comment le faire par macros Excel car , même en ajoutant "
Application.DisplayAlerts = False " dans la macro, la suppression n'est pas
effectuée.
(J'ai aussi essayé de modifier les paramètres contenus dans "With
ActiveSheet.QueryTables" en les passant de True à False, pas mieux)
Quelqu'un aurait-il une piste ? Merci d'avance.

1 réponse

Avatar
Ardus Petus
Worksheets("maFeuille").querytables(1).Delete

Cordialement,
--
AP

"CLmb" a écrit dans le message de
news:
bonjour,
Je dispose d'une requete (.Qry stockée dans une macro) qui interroge un
fichier Excel pour obtenir une Sommation suivant deux critères (Somme de
durée d'activité par tâche réalisée et somme par chantier).
Je peux donc redemander ces résultats tant que nécessaire mais je voudrai
utiliser "ces résultats" sous forme d'une Liste (XL 2003) pour utiliser
les

filtres automatiques et sommes automatiques.
Alors qu'il est possible de "supprimer manuellement" l'enregistrement de
la

requête en décochant la case "enregistrer la définition de la requête"
(dans

propriétés de la plage de données externes) à condition d'en confirmant la
suppression.
Comment le faire par macros Excel car , même en ajoutant "
Application.DisplayAlerts = False " dans la macro, la suppression n'est
pas

effectuée.
(J'ai aussi essayé de modifier les paramètres contenus dans "With
ActiveSheet.QueryTables" en les passant de True à False, pas mieux)
Quelqu'un aurait-il une piste ? Merci d'avance.