Actualiser des données a partir dun .xls non enregistré

**hugo69** · 01/12/2005, 11h40

Jai un fichier xls qui me sert de table dans ma base.

Ce fichier est ouvert sur un poste et les valeurs sont données à partir d'un outil de bourse et on voit les valeurs qui se mettent automatiquement à jour toutes les secondes.

Je voudrai que ces valeurs soit modifiées dans la table access à chaque fois que jutilise la table, sans avoir a enregistrer le fichier xls.

Est ce possible?

Merci

Invité · 01/12/2005, 12h04

Salut,

Essaye de lier ton fichier à ta base par comme tu lies une table venant d'une autre base, il me semble que cela dois marcher.

Starec

**cafeine** · 01/12/2005, 12h13

Envoyé par hugo69

Jai un fichier xls qui me sert de table dans ma base.

Ce fichier est ouvert sur un poste et les valeurs sont données à partir d'un outil de bourse et on voit les valeurs qui se mettent automatiquement à jour toutes les secondes.

Je voudrai que ces valeurs soit modifiées dans la table access à chaque fois que jutilise la table, sans avoir a enregistrer le fichier xls.

Est ce possible?

Merci

Hello,

pour comprendre, as-tu besoin de cette info "temps-réel" dans Access ?

Le problème est que si tu n'enregistres pas sur Excel, Access ne pourra jamais récupérer les valeurs "rafraichies".
Le code doit donc selon moi venir d'Excel, et dans ce cas tu pourrais parfaitement coder une mise à jour ADO depuis Excel à intervalles régulières.

Suivant le volume de données à actualiser, soit tu updates tout, soit tu crées une colonne "ancienne valeur" et tu n'updates que celles qui ont changé ...

**hugo69** · 01/12/2005, 12h13

cest ce qui est fait.

Mais il prend les valeurs jusquau moment ou jai fait SAVE sur excel, je suis à chaque fois obligé de faire save, il ne prends pas les changement de valeurs jusqua ce que jai fait save.

**hugo69** · 01/12/2005, 12h19

Hello,

pour comprendre, as-tu besoin de cette info "temps-réel" dans Access ?

Le problème est que si tu n'enregistres pas sur Excel, Access ne pourra jamais récupérer les valeurs "rafraichies".
Le code doit donc selon moi venir d'Excel, et dans ce cas tu pourrais parfaitement coder une mise à jour ADO depuis Excel à intervalles régulières.

Suivant le volume de données à actualiser, soit tu updates tout, soit tu crées une colonne "ancienne valeur" et tu n'updates que celles qui ont changé ...

tu as bien compris mon problème.
C'est la première solution quil me faut. Pourrais tu avoir la gentillesse de me donner une idée de comment proceder pour une mise à jour ADO, je ne sais pas comment faire. Ca reviens au meme que si je programme une sauvegarde toutes les x secondes mais cest moins lourd cest ca?

**hugo69** · 01/12/2005, 15h16

en gros ce qui pourrait etre pas mal ca serait de faire une boucle infini sur le code suivant en inserant une pause .

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
'
 
 
'
    ActiveWorkbook.Save
End Sub

A L'AIDE!!!

**SfJ5Rpw8** · 01/12/2005, 15h34

Mais les valeurs dans excel sont raffraichies comment ? toutes les secondes... ? ne peu tu pas faire une sauvegarde à ce moment la ?

**hugo69** · 01/12/2005, 15h45

oui cest le but par exemple.

Les valeurs sont en fait des liens DDE vers un soft genre bloomberg/telekurs.

Le top serait de lui dire de sauvegarder toutes les 5 secondes le fichier, mais je ne sais pas comment faire.

**SfJ5Rpw8** · 01/12/2005, 16h37

Utilise onTime ... par exemple

Code :

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

1
2
3
4
5
 
Sub ProcPeriodique()
  Application.OnTime Now + TimeValue("00:00:05"), "ProcPeriodique"
  ThisWorkbook.Save
End Sub

**hugo69** · 01/12/2005, 18h53

La fonction marche

mais,

GROS PROBLEME: le fichier excel est partagé, mais on ne peut pas avoir de fichier xls partage avec des macros.

**cafeine** · 01/12/2005, 19h16

Utilise un autre fichier pour la macro, et remplace ThisWorkbook par celui que tu veux ...

**SfJ5Rpw8** · 01/12/2005, 19h43

quand tu dis le fichier excel et partagé... ça veu dire quoi ... qu'il est sur un répertoire partagé...?

pourquoi ne peut'on avoir de fichier xls partagé avec macros ?

sinon sous access, ne peu tu pas accéder directement au valeur du "soft un soft genre bloomberg/telekurs. " en DDE ?

**hugo69** · 02/12/2005, 09h14

le xls est partagé dans outils, partage du classeur.

**hugo69** · 02/12/2005, 09h30

Envoyé par cafeine

Utilise un autre fichier pour la macro, et remplace ThisWorkbook par celui que tu veux ...

jai un fichier lien.xls dans le meme repertoire que mon fichier me servant à utiliser la macro.

Les deux fichiers sont dans U:

Que dois je mettre exactement à la place de ThisWorkbook?

**hugo69** · 06/12/2005, 16h24

Envoyé par bbil

quand tu dis le fichier excel et partagé... ça veu dire quoi ... qu'il est sur un répertoire partagé...?

pourquoi ne peut'on avoir de fichier xls partagé avec macros ?

sinon sous access, ne peu tu pas accéder directement au valeur du "soft un soft genre bloomberg/telekurs. " en DDE ?

Pour les liens DDE, je narrive pas, ou ne sais pas comment utilisé les liens DDE à l'intérieur d'access. C'est un peu mon rêve et ca me faciliterait grandement la vie, mais malgré mes recherches je ne sais pas quel critères mettre sur ma table.

Dans excel ca donne ca :

Code :

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

=vegadde|VEGA!'720128,25,814@"1,\"12,0,1\"",1'

Non, apparement, on ne peux pas mettre de macro sur un xls partagé, ca me dit que ce nest pas possible de mettre de macro sur un fichier partagé.

**SfJ5Rpw8** · 06/12/2005, 18h55

tu as essayer par macro VBA... du genre

Code :

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

1
2
3
4
5
 
MonCanal= DDEInitiate("vegadde", "VEGA")
MaMesure = DDERequest(MonCanal, "720128,25,814@""1,\""12,0,1\"""",1")
DDETerminate (MonCanal)
Debug.print MaMesure

PS: Pour les Guillemets dans l'Item.. je sais pas .. je les aient doublées ...

**hugo69** · 06/12/2005, 19h18

je suis pas un fou sur vba et jy comprends pas grand chose.

Jai fait un module et jai mis dedans:

Code :

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

1
2
3
4
5
6
Function maj()
MonCanal = DDEInitiate("vegadde", "VEGA")
MaMesure = DDERequest(MonCanal, "720128,25,814@""1,\""12,0,1\"""",1")
DDETerminate (MonCanal)
Debug.Print MaMesure
End Function

apres jappelle la fonction maj dans une requete.

Cest ca quil faut faire? quand tu me dis que tu as doublé les guillements de litems, cest koi litem? a quel endroit il faut exactement que jessai avec des simples ou des douvbles? le premier et le dernier de lexpression dans mamesure? si cest ca ca me fait une erreur

avec mon code la haut, ca ne maffiche rien du tout.

**hugo69** · 06/12/2005, 19h49

voila mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function maj(code As String) As Double
 
MonItem = code
MonCanal = DDEInitiate("vegadde", "VEGA")
MaMesure = DDERequest(MonCanal, "897789,148,1@""1,\""33,2,1\"""",1")
DDETerminate (MonCanal)
Debug.Print MaMesure
maj = MaMesure
 
 
 
 
 
 
End Function

Donc avec ca ca marche si jappelle la fonction maj ca appel la bonne valeur.

Je suis super content.
PAr contre, jai pas mal de produit à configurer et il me faudrait un truc du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function maj(code As String) As Double
 
MonCanal = DDEInitiate("vegadde", "VEGA")
MaMesure = DDERequest(MonCanal, code)
DDETerminate (MonCanal)
Debug.Print MaMesure
maj = MaMesure
 
 
 
 
 
End Function

mais la ca me met des message derreurs...une idee?
Dans code (champs texte) je met par exemple: "897789,148,1@""1,\""33,2,1\"""",1"

**SfJ5Rpw8** · 06/12/2005, 22h43

pour item , voir aide en ligne VBA

Envoyé par Aide en ligne

DDERequest, méthode

Utilise un canal d'échange dynamique de données (DDE) pour requérir des informations provenant de l'application destinataire, et renvoie ces informations sous la forme d'une chaîne.

Syntaxe

expression.DDERequest(Channel, Item)

expression Facultatif. Expression qui renvoie un objet Application.

Channel Argument de type Long obligatoire. Numéro de canal renvoyé par la méthode DDEInitiate.

sinon pour les erreurs, faudrai savoir qu'elle erreur ? sur qu'elle ligne ...
vérifie la chaine que tu uitilise comme Item ...

utilise

Code :

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

debug.print Code

pour l'afficher dans fenêtre exécution ... je ne connais pas le serveur DDE .. VegaDDE ( mesure de niveau ?) .. et je ne connais donc pas le format de ses Items ( variables...) ainsi que la place des "..

sinon entre DDEInitiate ... et DDETerminate .. tu peu lire plusieurs valeurs en echainant des DDEREquest... ..
je pense que tu dois pouvoir ouvrir le canal au lancement de ton application ... et le fermer à la sortie..

**hugo69** · 07/12/2005, 09h58

A mon avis le problème viens de la construction de la chaine de l'item.

Maintenant que ca marche à quelque chose prêt, je me rends compte dun truc evident.

Lapplication serveur DDE ne peut etre ouverte que par une personne qui est sur un pc client.

Donc il ny a aucun moyen simple de rappatrier les données sur la table pour tout le monde par le biais de la requete, donc on est obligé de faire une exportation vers une table, et cela revient à peu pres au meme que de faire une importation de excel sur une intervalle de temps predefini....

Actualiser des données a partir dun .xls non enregistré

Access

Discussions similaires

Partager

Partager