Discussion :

[Shadow666]

Bonjour a tous,

Je suis assez novice en ce qui concerne access et le VBA.
Je travail sur un fichier qui me permettrait de regrouper l'accès à des fichier. De ce fait, j'ai ajouter des boutons avec des liens hypertexte qui permettent d'ouvrir les fichier, Excel notamment, et cela fonctionne parfaitement. J'ai donc une base de donnée dorsale me permettant de stocker les données et plusieurs fichiers frontaux pour que les personnes puisse utiliser la base de donnée sans être en lecture seul.

Mon problème est que les fichiers évoluent et sont regénérer sous une autre version, avec un autre nom. Par conséquent, mes liens restent sur les anciennes version et ma base de donnée n'est donc pas à jour. Si je remet les liens a jour, il me faut donc installer de nouveau les fichiers sur tout les ordinateurs concerné.

J'ai donc pensé a mettre les liens hypertexte dans une table de la base dorsale dont tout le monde à déjà accès et ainsi, je n'aurais qu'a modifier les liens cette table pour mettre a jours ces fichiers.
Malheureusement, je n'arrive pas a trouver comment réaliser cela, et je n'ai pas d'autre idée pour palier a ce défaut !

Si vous avez une solution je suis preneur !
merci de votre temps !

[marot_r]

Bonjour.

Actuellement où sont stockés (enregistrés) tes liens HyperText ? Dans des champs dans un formulaire ?

A+

[Shadow666]

Bonjour,

Actuellement, mes données sont dans une table liée, et les liens hypertexte dans dans un champs de cette table.

J'aimerais pouvoir aller chercher les liens et lancer les fichiers en maximiser sur l'écran.

[Shadow666]

Bonjour, petite mise à jour,

j'ai finis par réussir à utiliser la fonction DLookUp pour chercher le lien en fonction d'un numéro. et en associant cette recherche à une variable. j'arrive donc a modifier les liens hypertextes dans la table pour les boutons changes de fichier d'ouverture.
Pour ceux qui veulent, voici le code que j'ai utilisé :

Code :

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

1
2
3
Dim LienHyp as string
LienHyp = DLookUp("[champs contenant le lien]", "Nom de la table", "[numéro correspondant]= 1"
Application.FollowHyperlink LienHyp

Le numéro 1 correspondant a la ligne souhaitée.

Cependant, mes fichiers s'ouvrent souvent en petit sur un coté de l'écran, et avec le message

Microsoft Excel; la référence n'est pas valide.

Cependant, une fois cliquer sur ok, le fichier fonctionne normalement. Est il possible de remédier à ces deux soucis ?

Cordialement

[marot_r]

Bonjour.

C'est à priori aussi FollowHyperlink que j'aurai utilisé.

Peux-tu mettre un exemple de lien contenu dans LienHyp ?

Il y a peut-être quelque chose qu'il n'aime pas dans la syntaxe du lien.

A+

[Shadow666]

Bonjour, merci de ta réponse.

Voici un exemple de lien hypertexte: "T:\sro-main\MAGSOC\MAGSOC.xlsx"
J'ai inscrit le lien de manière automatique vie un clic droit, lien hypertexte, modifier le lien hypertexte, puis en naviguant dans les fichiers. Je ne pense donc pas que ce soit un problème de syntaxe mais sais t-on jamais !

désolé du retard de ma réponse.