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
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
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
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 !!!!!
Cordialement,
Emile