[BO5][VBA]Purge données

[arnest]

Bonjour à Tous,

Je dispose d'une requête à fournisseurs multiples. Pour purger cette requête (changement des adresses des fichiers perso), je prend un temps considérable. Est-il possible de faire cette tache avec un code vb ou une macro?

Merci beaucoup.

[Bruno2r]

Salut.

Je n'ai vraiment pas le temps de chercher une solution complète à ton problème mais voici quelques indices qui devraient t'aider.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub MODIFDP()
Dim doc AS Document
Dim dps AS DataProviders
Dim dp AS DataProvider
Dim nbdps AS Integer, nidp AS Integer
Dim dpname AS String
 
SET doc = Application.ActiveDocument
SET dps = doc.DataProviders
nbdps = dps.Count
    ' Les parcourt un par un'
FOR nidp = 1 TO nbdps
    SET dp = dps.Item(nidp)
    Debug.Print dp.Name 'donne le nom (dont référence excel si document perso)'
    Debug.Print dp.GetType 'donne le type fournisseur de données'
 
    dp.Edit 'Ouvre l'éditeur
 
Next
End Sub

En mettant une condition sur le type de fournisseur de données ramené par get type tu peux ne t'arrêter que sur les feuilles excel
Je n'ai pas trouvé de dp.méthode pour modifier la référence.
Il va te falloir chercher ...

[arnest]

Merci beaucoup pour le code. J'ai essayé de l'executer sauf qu'il m'envoi l'editeur de requête alors j'ai rajouté une ligne

Code :

1
2
3
ActiveDocument.Application.Interactive = False
...
ActiveDocument.Application.Interactive = True

Ce qui donne ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub MODIFDP()
Dim doc AS Document
Dim dps AS DataProviders
Dim dp AS DataProvider
Dim nbdps AS Integer, nidp AS Integer
Dim dpname AS String
 
ActiveDocument.Application.Interactive = False
 
SET doc = Application.ActiveDocument
SET dps = doc.DataProviders
nbdps = dps.Count
    ' Les parcourt un par un'
 
 
FOR nidp = 1 TO nbdps
    SET dp = dps.Item(nidp)
    Debug.Print dp.Name 'donne le nom (dont référence excel si document perso)'
    Debug.Print dp.GetType 'donne le type fournisseur de données'
 
    'dp.Edit 'Ouvre l'éditeur
 
Next
 
ActiveDocument.Application.Interactive = True
 
End Sub

Mais la requête rame et ne donne pas de signe de vie.