Discussion :

[saipas]

Hello

J'ai une fonction sous Excel qui récupère une valeur dans une base Access en fonction d'une référence rentrée dans une autre cellule (en gros, depuis la cellule dans laquelle je veux récupérer la valeur, j'appelle la fonction ci-dessous (en gros hein) en mettant en variables des cellules du classeur) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function recupDB(vSource As String, vTable As String, vValeur As String, vType As String)
 
Dim vBDD As New ADODB.Connection
Dim vDonnées As New ADODB.Recordset
Dim vSQL As String
 
vBDD.Open "provider=microsoft.jet.oledb.4.0;" & "persist security info=false;" & "data source=" & vSource
vSQL = "select * from " & vTable & " where code='" & vValeur & "'"
vDonnées.Open vSQL, vBDD, adOpenDynamic, adLockReadOnly
recupDB = vDonnées(vType)
vBDD.Close
 
End Function

Tout ça fonctionne bien, je récupère ma valeur, le seul problème c'est que cette façon de faire empêche toute MAJ automatique, enfin en tous cas je n'ai aucune idée de comment procéder...

Vous sauriez ?

Merci

@+

[EDIT]
c'est là :
http://www.developpez.net/forums/sho...8&postcount=14

[jfontaine]

Tu pourrais utiliser les données externes qui pointeraient sur ton fichier access.
Tu peux mettre un paramètre dans ta requête SQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
select * from tatable where code=[TonCode]

Ensuite tu peux affecter le [code] a une cellule.
Il te reste plus qu'a actualiser tes données

Pas simple a expliquer. Il y a peut être un tutoriel sur ce sujet

[saipas]

:/ J'ai pas vraiment compris :/

Ce qu'il faudrait ce serait qu'à l'ouverture du fichier ça puisse actualiser, si je pouvais en plus limiter les appels à la base (ouverture/fermeture du lien)...

[jfontaine]

Si tu veux actualiser a l'ouverture du classeur il faut que dans le Workbook_Open() tu appels le code de MAJ

[saipas]

Oui mais comment mettre à jour des données qui sont recherchées à la saisie de la fonction dans la cellule ?

Hmm, en fait de temps en temps lorsque je touche à quelque chose elles sont mises à jour, mais je comprends pas vraiment dans quels cas :/

En plus ça a aussi tendance à faire une MAJ et à m'afficher des #VALUE partout, j'comprends vraiment keud...

[dadavyvy]

Avec des requêtes toutes faites grâce à MSQuery, tu peux aisément le faire :
http://www.developpez.net/forums/sho...d.php?t=381965
Pour le faire avec des macros, tu n'as plus qu'à enregistrer ce que tu viens de faire juste au dessus et adapter...

[saipas]

A bien regarder le code automatique d'Excel, la querytable ne m'a pas l'air tellement adaptée :/

Merci en tous cas pour les coups de main !

[EDIT] Justification (attention décrypteur nécessaire :p ):
J'ai besoin de pouvoir appeler une fonction depuis les cellules où je souhaite récupérer la donnée, et cela me semble difficile d'en créer une associée à une querytable qui permette d'aller chercher une seule donnée, autrement qu'en créant la table sur une feuille puis en faisant un vlookup().

[SilkyRoad]

bonsoir

Si tu utilises ta fonction dans une cellule et que tu souhaites un recalcul automatique, ajoute cette ligne en tout début de procédure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile

bonne soirée
michel

[saipas]

Merci pour l'astuce, j'essaierai ça dès demain matin (j'ai pas mon code sous la main c'est au boulot :p).

Bonne soirée

[saipas]

Je viens de faire une recherche sur Application.Volatile, et j'ai lu que cela permettait de recalculer la valeur de la cellule associée à chaque fois qu'Excel calcule. Si c'est bien ça, cela risque de fortement ralentir ma feuille (qui est en fait un simulateur de devis) où il y a de nombreux appels à la base de données.
Serait-il possible de limiter son application? Ou bien au pire comment pourrait-on modifier ma fonction de recherche pour qu'elle fasse moins d'appels à la base (tout en gardant une base externe, primordial)?

[SilkyRoad]

dans ce cas, utilise plutot l'evenement Change de la feuille de calcul et définit une cellule particulière qui déclenchera la procedure lorsqu'elle sera modifiée.


michel

[saipas]

Ça me convient tout à fait comme solution ça Merci beaucoup

Et le contraire ce serait possible ? Empêcher la MAJ qui me place des #VALUE partout?

[saipas]

Re,

bon alors j'ai trifouillé tout ça depuis 9h, et je ne parviens pas à faire fonctionner correctement le Application.Volatile.

Par contre, dans la même idée, j'ai regardé du côté des Calculate, et je trouve ça beaucoup mieux.
J'ai donc mis un Application.Calculation = xlCalculationManual dans ma fonction, ce qui est censé limiter les recalculs (j'en ai pas vraiment eu la preuve après mes tests) et un bouton 'MAJ' avec un ActiveSheet.Calculate pour que toutes les cellules soient mises à jour.

Là le problème c'est que la première fois que je clique sur le bouton cela fonctionne, mais après quand je clique dessus je vois dans la barre d'état un "calculate" qui apparaît à côté du "Ready", mais rien ne se passe, et je ne comprends pas pourquoi...

[saipas]

Pour une fois je récrée pas de topic pour ce sujet ^^

Mon problème porte sur la MAJ de valeurs retournées par des fonctions (cf ce topic pour les fonctions http://www.developpez.net/forums/sho...68#post2410268 )

Elles sont bien mises à jour dès que l'un des paramètre est modifié, ou lorsque l'on modifie la formule, mais il arrive, par exemple lorsque je cache des lignes, que les valeurs se mettent à "#VALUE!". Là, pour récupérer mes valeurs correctes, je suis obligé d'ajouter une ligne, et surtout de la supprimer.

Personne n'aurait une façon moins rudimentaire d'effectuer la même opération ? :p

Merci


Précisions :
- Application.Calculation => automatique
- la fonction recherche une valeur dans une feuille du classeur
- les #VALUE apparaissent quand une macro est effectuée, vraisembablement qui agit sur le classeur (j'ai essayé d'automatiser l'ajout/suppresion de ligne et ça m'a mit les #VALUE partout :p, mais ça fonctionne à la main !)