Comment trouver la position (adresse) d'un Query?

Le
Emile63
Bonjour a tous,
Je cherche à compter, identifier et situer le nombre que Query's qu'il
y a par feuilles.
Malheureusement je bute sur la dernière phase: Address (du query)
- Est-ce que quelqu'un saurait me dire, mon erreur.. ;-)

Sub ChercheQuery()
Dim Position As Variant
MsgBox "NB Query's sur cette feuille: " &
ActiveSheet.QueryTables.Count
For Each qt In ActiveSheet.QueryTables
Position = Position + 1
MsgBox qt.Name & " position: " & Position & Chr(13) _
& "Adresse :" & qt.Address()
Next
End Sub

Je vous remercie d'avance,
Cordialement,
Emile
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18827761
Bonjour.

Sub ChercheQuery()
Dim Position As Variant, qt As QueryTable

MsgBox "NB Query's sur cette feuille: " & _
ActiveSheet.QueryTables.Count
For Each qt In ActiveSheet.QueryTables
Position = Position + 1
MsgBox qt.Name & " position: " & Position & Chr(13) _
& "Adresse :" & qt.Destination.Address
Next
End Sub

Cordialement.
Daniel

Bonjour a tous,
Je cherche à compter, identifier et situer le nombre que Query's qu'il
y a par feuilles.
Malheureusement je bute sur la dernière phase: Address (du query)
- Est-ce que quelqu'un saurait me dire, mon erreur.. ;-)

Sub ChercheQuery()
Dim Position As Variant
MsgBox "NB Query's sur cette feuille: " &
ActiveSheet.QueryTables.Count
For Each qt In ActiveSheet.QueryTables
Position = Position + 1
MsgBox qt.Name & " position: " & Position & Chr(13) _
& "Adresse :" & qt.Address()
Next
End Sub

Je vous remercie d'avance,
Cordialement,
Emile


FFO
Le #18827811
Salut à toi

Je ne sais pas si celà répond à ton attente mais je te propose ceci :

Sub ChercheQuery()
Dim Position As Variant
MsgBox "NB Query's sur cette feuille: " &
ActiveSheet.QueryTables.Count
For Each qt In ActiveSheet.QueryTables
Position = Position + 1
MsgBox qt.Name & " position: " & Position & Chr(13) _
& "Adresse :" & qt.Destination.Address
Next
End Sub

Dis moi !!!!!
Emile63
Le #18828231
Merci Daniel,

Cordialement,
Emile
Publicité
Poster une réponse
Anonyme