Posez votre question Signaler

Requêtes sur Excel [Résolu]

barb38 - Dernière réponse le 19 déc. 2011 à 20:21
Bonjour,
je sèche pour récupérer afin de les modifier des requêtes créees avec Excel 2007: création de celles-ci: données-> à partie d'autres source-> provenance MsQuery(la table source est un tableau Excel), mais lorsque je veux les récupérer avec VBA afin de modifier leur connexion: aucune requête n'est trouvé
'voici ce que j'ai trouvé sur un forum et adapté pour mon utilisation
Dim Feuil As Worksheet, Req As QueryTable
Dim I as integer
Dim Nom () as String 'pour trouver le nom
Dim Ancienne_Connexion as String
Dim Nouvelle_Connexion as String
'ici je définis nouvelle connexion
'
'
I=0
For Each Feuil In Worksheets
For Each Req In Sh.QueryTables
I=I+1
Redim Preserve Nom(I)
Nom(I)=Req.Name
Ancienne_Connexion=Req.Connection
Req.Connection = Replace(Req.Connection, _
Ancienne_Connexion, Nouvelle_Connexion)
Req.Refresh False
End If
Next
Next
ThisWorkbook.Save
Set Feuil= Nothing: Set Req = Nothing
Aucune requête créée n'est trouvée, pouvez-vous m'aider
Je vous remercie
barb38
Lire la suite 

Requêtes sur Excel »

3 réponses
Réponse
+1
moins plus
Patrice33740 1681Messages postés 13 juin 2010Date d'inscription 30 mai 2012Dernière intervention 18 déc. 2011 à 22:40
Bonjour,

Pour explorer les requêtes avec Excel 2003 : 
Sub Requetes_avec_Excel2003()
Dim Feuil As Worksheet
Dim Req As QueryTable
  For Each Feuil In Worksheets
    For Each Req In Feuil.QueryTables
    '....  
    Next
  Next

End Sub

Pour explorer les requêtes avec Excel 2007 : 
Sub Requetes_avec_Excel2007()
Dim Feuil As Worksheet
Dim Lst As ListObject
Dim Req As QueryTable
  For Each Feuil In Worksheets
    For Each Lst In Feuil.ListObjects
      Set Req = Lst.QueryTable
      '....
    Next
  Next
End Sub


 Ajouter un commentaire
barb38 - 19 déc. 2011 à 11:36
Barb38 à Patrice 33740.
Je vous remercie pour votre réponse concernant les requêtes sous excel 2007.
Je vais enfin pouvoir utiliser efficacement votre solution.
encore merci
Barb38
Patrice33740- 19 déc. 2011 à 20:21
De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice
Ajouter un commentaire
Posez votre question
Ce document intitulé « Requêtes sur Excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?