Pour détruire un lien vers une requête dont les données sont sur une feuille
Excel je connais cette méthode qui consiste à supprimer la QueryTable sur la
cellule où le résultat de la requête a été appelé... Comme ici en A5 :
Range("A5").QueryTable.Delete
Mais le problème est que sur certains classeurs j'ai de nombreux appels à
des requêtes et que je ne sais pas sur quelle cellule une requête appelée
n'a pas eû son lien de détruit... Je sais que le lien existe toujours car
j'ai la barre d'outils "Données externes" qui apparaît sur cette feuille...
Comment peut on donc détruire des liens vers une requête sans que l'on sache
où elle se trouve ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Avec du VBA : Sub VireMoiLesQueries() Dim LaQuery As QueryTable Dim i& For i = 1 To Sheets.Count If Worksheets(i).QueryTables.Count > 0 Then For Each LaQuery In Worksheets(i).QueryTables LaQuery.Delete Next LaQuery End If Next i End Sub
Cordialement Pascal
"HD" a écrit dans le message de news: e803fa$1v9o$
Bonjour,
Pour détruire un lien vers une requête dont les données sont sur une feuille Excel je connais cette méthode qui consiste à supprimer la QueryTable sur la cellule où le résultat de la requête a été appelé... Comme ici en A5 : Range("A5").QueryTable.Delete
Mais le problème est que sur certains classeurs j'ai de nombreux appels à des requêtes et que je ne sais pas sur quelle cellule une requête appelée n'a pas eû son lien de détruit... Je sais que le lien existe toujours car j'ai la barre d'outils "Données externes" qui apparaît sur cette feuille...
Comment peut on donc détruire des liens vers une requête sans que l'on sache où elle se trouve ?
Merci d'avance pour votre aide. -- @+ HD
Bonjour
Avec du VBA :
Sub VireMoiLesQueries()
Dim LaQuery As QueryTable
Dim i&
For i = 1 To Sheets.Count
If Worksheets(i).QueryTables.Count > 0 Then
For Each LaQuery In Worksheets(i).QueryTables
LaQuery.Delete
Next LaQuery
End If
Next i
End Sub
Cordialement
Pascal
"HD" <hd@anti.spam.fr> a écrit dans le message de news:
e803fa$1v9o$1@biggoron.nerim.net...
Bonjour,
Pour détruire un lien vers une requête dont les données sont sur une
feuille
Excel je connais cette méthode qui consiste à supprimer la QueryTable sur
la
cellule où le résultat de la requête a été appelé... Comme ici en A5 :
Range("A5").QueryTable.Delete
Mais le problème est que sur certains classeurs j'ai de nombreux appels à
des requêtes et que je ne sais pas sur quelle cellule une requête appelée
n'a pas eû son lien de détruit... Je sais que le lien existe toujours car
j'ai la barre d'outils "Données externes" qui apparaît sur cette
feuille...
Comment peut on donc détruire des liens vers une requête sans que l'on
sache
où elle se trouve ?
Bonjour Avec du VBA : Sub VireMoiLesQueries() Dim LaQuery As QueryTable Dim i& For i = 1 To Sheets.Count If Worksheets(i).QueryTables.Count > 0 Then For Each LaQuery In Worksheets(i).QueryTables LaQuery.Delete Next LaQuery End If Next i End Sub
Cordialement Pascal
"HD" a écrit dans le message de news: e803fa$1v9o$
Bonjour,
Pour détruire un lien vers une requête dont les données sont sur une feuille Excel je connais cette méthode qui consiste à supprimer la QueryTable sur la cellule où le résultat de la requête a été appelé... Comme ici en A5 : Range("A5").QueryTable.Delete
Mais le problème est que sur certains classeurs j'ai de nombreux appels à des requêtes et que je ne sais pas sur quelle cellule une requête appelée n'a pas eû son lien de détruit... Je sais que le lien existe toujours car j'ai la barre d'outils "Données externes" qui apparaît sur cette feuille...
Comment peut on donc détruire des liens vers une requête sans que l'on sache où elle se trouve ?
