chemin de fichier et lien hypertexte

Le
s.jean
Bonjour,

Dans ma base je voudrais lier un fichier à chaque enregistrement en
naviguant dans le disque dur, j'ai donc utiliser ce module :
http://officesystemaccess.seneque.net/apiopenfile.htm


Puis créer un bouton avec le code suivant sur click :
Me.Txt_lien = OpenFile(CurrentProject.Path, Mono_Sélection, True,
AllFiles, 254, True, "mabase.mdb")
End Sub

Le code retrouve bien mon fichier et l'enregistre dans le champs
correspondant (champs avec format hypertexte), mais quand je clique
dessus il ne se passe rien, il n'ouvre pas le fichier.

Qu'est ce que qui manque ?

Merci d'avance

Sandrine
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6659591
Bonjour.

Si le champ utilisé est un lien hypertexte il est inutile d'utiliser l'api
openfile pour placer le chemin. il suffit de faire un click droit sur le
contrôle et modifier le lien. la même interface de sélection de fichier sera
présentée à l'opérateur.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"s.jean"
Bonjour,

Dans ma base je voudrais lier un fichier à chaque enregistrement en
naviguant dans le disque dur, j'ai donc utiliser ce module :
http://officesystemaccess.seneque.net/apiopenfile.htm


Puis créer un bouton avec le code suivant sur click :
Me.Txt_lien = OpenFile(CurrentProject.Path, Mono_Sélection, True,
AllFiles, 254, True, "mabase.mdb")
End Sub

Le code retrouve bien mon fichier et l'enregistre dans le champs
correspondant (champs avec format hypertexte), mais quand je clique
dessus il ne se passe rien, il n'ouvre pas le fichier.

Qu'est ce que qui manque ?

Merci d'avance

Sandrine
s.jean
Le #6660251
Bonjour,

Cette base est utilisée par plusieurs utilisateurs qui n'ont pas accès
au menu standard d'access, ils n'ont donc pas l'option insérer un lien
hypertexte. C'est pour ça que je pensais à créer un bouton permettant
d'aller chercher un fichier pour récupérer le chemin ... sauf que le
lien hypertexte n'ouvre pas le fichier.

Comment est ce que je peux faire ?

Merci beaucoup
Sandrine

On 19 mai, 15:06, "Raymond [mvp]"
Bonjour.

Si le champ utilisé est un lien hypertexte il est inutile d'utiliser l'a pi
openfile pour placer le chemin. il suffit de faire un click droit sur le
contrôle et modifier le lien. la même interface de sélection de fich ier sera
présentée à l'opérateur.

--
@+
Raymond Access MVP  http://OfficeSystemAccess.seneque.net/http://offices ystem.access.over-blog.com/http://access2007.over-blog.com/
Pour débuter sur le forum:http://www.mpfa.info/

"s.jean"
Bonjour,

Dans ma base je voudrais lier un fichier à chaque enregistrement en
naviguant dans le disque dur, j'ai donc utiliser ce module :http://offices ystemaccess.seneque.net/apiopenfile.htm

Puis créer un bouton avec le code suivant sur click :
Me.Txt_lien = OpenFile(CurrentProject.Path, Mono_Sélection, True,
AllFiles, 254, True, "mabase.mdb")
End Sub

Le code retrouve bien mon fichier et l'enregistre dans le champs
correspondant (champs avec format hypertexte), mais quand je clique
dessus il ne se passe rien, il n'ouvre pas le fichier.

Qu'est ce que qui manque ?

Merci d'avance

Sandrine


Raymond [mvp]
Le #6659981
dans ce cas il ne faut pas que le champ soit hyperlien mais texte et
exécuter le document par le bouton ou par un double-click sur le champ.
après avoir récupéré le nom du fichier, lancer l'exécution du fichier par
une autre api, http://officesystemaccess.seneque.net/apiopenfileextend.htm
qui permet de lancer l'exécutif selon la valeur de l'extension du document.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"s.jean"
Bonjour,

Cette base est utilisée par plusieurs utilisateurs qui n'ont pas accès
au menu standard d'access, ils n'ont donc pas l'option insérer un lien
hypertexte. C'est pour ça que je pensais à créer un bouton permettant
d'aller chercher un fichier pour récupérer le chemin ... sauf que le
lien hypertexte n'ouvre pas le fichier.

Comment est ce que je peux faire ?

Merci beaucoup
Sandrine
s.jean
Le #6660441
Merci beaucoup, ça marche !

On 19 mai, 16:04, "Raymond [mvp]"
dans ce cas il ne faut pas que le champ soit hyperlien mais texte et
exécuter le document par le bouton ou par un double-click sur le champ.
après avoir récupéré le nom du fichier, lancer l'exécution du fi chier par
une autre api,http://officesystemaccess.seneque.net/apiopenfileextend.htm
qui permet de lancer l'exécutif selon la valeur de l'extension du docume nt.

--
@+
Raymond Access MVP  http://OfficeSystemAccess.seneque.net/http://offices ystem.access.over-blog.com/http://access2007.over-blog.com/
Pour débuter sur le forum:http://www.mpfa.info/

"s.jean"
Bonjour,

Cette base est utilisée par plusieurs utilisateurs qui n'ont pas accès
au menu standard d'access, ils n'ont donc pas l'option insérer un lien
hypertexte. C'est pour ça que je pensais à créer un bouton permettan t
d'aller chercher un fichier pour récupérer le chemin ... sauf que le
lien hypertexte n'ouvre pas le fichier.

Comment est ce que je peux faire ?

Merci beaucoup
Sandrine


s.jean
Le #6667291
Bonjour

Suite à mes messages d'hier le code marche donc, merci !

par contre j'ai l'erreur suivante à la fermeture du formulaire, après
avoir indiquer un chemin de fichier
le champ tbl_x.lien ne peut pas être une chaîne vide
que dois je modifier donc le module ou le code du bouton pour ne plus
avoir cette erreur ?

De plus je souhaiterais ajouter un bouton qui permettre d'ouvrir
l'explorateur de windows, directement dans le répertoire du fichier
donc le chemin est indiqué, et éventuellement ouvrir un fichier dans
ce répertoire par windows.
Quel code utiliser ?

Merci beaucoup encore

Sandrine

On 19 mai, 16:04, "Raymond [mvp]"
dans ce cas il ne faut pas que le champ soit hyperlien mais texte et
exécuter le document par le bouton ou par un double-click sur le champ.
après avoir récupéré le nom du fichier, lancer l'exécution du fi chier par
une autre api,http://officesystemaccess.seneque.net/apiopenfileextend.htm
qui permet de lancer l'exécutif selon la valeur de l'extension du docume nt.

--
@+
Raymond Access MVP  http://OfficeSystemAccess.seneque.net/http://offices ystem.access.over-blog.com/http://access2007.over-blog.com/
Pour débuter sur le forum:http://www.mpfa.info/

"s.jean"
Bonjour,

Cette base est utilisée par plusieurs utilisateurs qui n'ont pas accès
au menu standard d'access, ils n'ont donc pas l'option insérer un lien
hypertexte. C'est pour ça que je pensais à créer un bouton permettan t
d'aller chercher un fichier pour récupérer le chemin ... sauf que le
lien hypertexte n'ouvre pas le fichier.

Comment est ce que je peux faire ?

Merci beaucoup
Sandrine


Raymond [mvp]
Le #6667751
regarde les propriétés null interdit ou chaîne vide autorisée du champ dans
la table et modifie les valeurs pour pouvoir sortir dans tous les cas. Ou
alors, ce champ doit avoir une valeur et il n'en contient pas.

pour l'explorateur, son emploi par un non initié peut être très dangereux.
tu peux très bien utiliser les deux api openfile et openfileextend qui
feront ça très bien et sans risque pour tes fichiers.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"s.jean"
Bonjour

Suite à mes messages d'hier le code marche donc, merci !

par contre j'ai l'erreur suivante à la fermeture du formulaire, après
avoir indiquer un chemin de fichier
le champ tbl_x.lien ne peut pas être une chaîne vide
que dois je modifier donc le module ou le code du bouton pour ne plus
avoir cette erreur ?

De plus je souhaiterais ajouter un bouton qui permettre d'ouvrir
l'explorateur de windows, directement dans le répertoire du fichier
donc le chemin est indiqué, et éventuellement ouvrir un fichier dans
ce répertoire par windows.
Quel code utiliser ?

Merci beaucoup encore

Sandrine
s.jean
Le #6667721
Bonjour

OK pour le 1er point

Ensuite pour l'explorateur : j'indique dans txt_lien comme nous
l'avons vu hier le chemin de mon fichier par l'api openfile. En fait
c'est ma commande initiale. Et je souhaiterai par un bouton accéder au
dossier de ce fichier afin de visualiser les fichiers du même dossier
(les fichiers liés à commande) et éventuellement les ouvrir avec les
logiciels adéquats.

Comment puis je utiliser les fonctions api openfile et
openfileextend ? Je ne souhaite pas récupérer le chemin des autres
fichiers.

Merci

Sandrine

On 20 mai, 16:03, "Raymond [mvp]"
regarde les propriétés null interdit ou chaîne vide autorisée du c hamp dans
la table et modifie les valeurs pour pouvoir sortir dans tous les cas. Ou
alors, ce champ doit avoir une valeur et il n'en contient pas.

pour l'explorateur, son emploi par un non initié peut être très dang ereux.
tu peux très bien utiliser les deux api openfile et openfileextend qui
feront ça très bien et sans risque pour tes fichiers.

--
@+
RaymondAccessMVP  http://OfficeSystemAccess.seneque.net/http://officesys tem.access.over-blog.com/http://access2007.over-blog.com/
Pour débuter sur le forum:http://www.mpfa.info/

"s.jean"
Bonjour

Suite à mes messages d'hier le code marche donc, merci !

par contre j'ai l'erreur suivante à la fermeture du formulaire, après
avoir indiquer uncheminde fichier
le champ tbl_x.lien ne peut pas être une chaîne vide
que dois je modifier donc le module ou le code du bouton pour ne plus
avoir cette erreur ?

De plus je souhaiterais ajouter un bouton qui permettre d'ouvrir
l'explorateur de windows, directement dans lerépertoiredu fichier
donc lecheminest indiqué, et éventuellementouvrirun fichier dans
cerépertoirepar windows.
Quel code utiliser ?

Merci beaucoup encore

Sandrine


Raymond [mvp]
Le #6668091
Pour exécuter un fichier tu peux faire ceci:

Me.monFichier = OpenFile(CurrentProject.Path, Mono_Sélection, True,
allfiles, 4, True, "", True)
If Nz(Me.monFichier, "") <> "" Then
OpenFileExtend Me.monFichier, Normal, OpExecute
End If

si l'opérateur clique sur annuler, le fichier n'est pas exécuté.
tu peux même, sur la sélection des fichiers, cliquer sur le bouton droit de
la souris pour afficher le menu contextuel de l'explorateur.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"s.jean"
Bonjour

OK pour le 1er point

Ensuite pour l'explorateur : j'indique dans txt_lien comme nous
l'avons vu hier le chemin de mon fichier par l'api openfile. En fait
c'est ma commande initiale. Et je souhaiterai par un bouton accéder au
dossier de ce fichier afin de visualiser les fichiers du même dossier
(les fichiers liés à commande) et éventuellement les ouvrir avec les
logiciels adéquats.

Comment puis je utiliser les fonctions api openfile et
openfileextend ? Je ne souhaite pas récupérer le chemin des autres
fichiers.

Merci

Sandrine
s.jean
Le #6668081
Bonjour

Merci pour toutes les réponses, j'ai du mal à me faire comprendre...

Je sais comment aller chercher le fichier, éventuellement annuler
grâce au nouveau code
je sais comment exécuter le fichier
Une fois que le chemin du fichier est enregistré, je veux pouvoir
ouvrir l'explorateur sur le répertoire du chemin du fichier

par exemple si j'ai déjà mon chemin de fichier enregistré :
c:/documents/clients/aaa/cde.doc
je souhaiterais en cliquant sur un bouton ouvrir
c:/documents/clients/aaa

une idée ?

merci beaucoup



On 20 mai, 16:53, "Raymond [mvp]"
Pour exécuter un fichier tu peux faire ceci:

Me.monFichier = OpenFile(CurrentProject.Path, Mono_Sélection, True,
allfiles, 4, True, "", True)
If Nz(Me.monFichier, "") <> "" Then
    OpenFileExtend Me.monFichier, Normal, OpExecute
End If

si l'opérateur clique sur annuler, le fichier n'est pas exécuté.
tu peux même, sur la sélection des fichiers, cliquer sur le bouton dro it de
la souris pour afficher le menu contextuel de l'explorateur.

--
@+
Raymond Access MVP  http://OfficeSystemAccess.seneque.net/http://offices ystem.access.over-blog.com/http://access2007.over-blog.com/
Pour débuter sur le forum:http://www.mpfa.info/

"s.jean"
Bonjour

OK pour le 1er point

Ensuite pour l'explorateur : j'indique dans txt_lien comme nous
l'avons vu hier le chemin de mon fichier par l'api openfile.  En fait
c'est ma commande initiale. Et je souhaiterai par un bouton accéder au
dossier de ce fichier afin de visualiser les fichiers du même dossier
(les fichiers liés à commande) et éventuellement les ouvrir avec les
logiciels adéquats.

Comment puis je utiliser les fonctions api openfile et
openfileextend ? Je ne souhaite pas récupérer le chemin des autres
fichiers.

Merci

Sandrine


Raymond [mvp]
Le #6668551
toujours dans le même principe et la même api:
si le fichier se trouve dans monFichier
x= OpenFile(Left(Me.monFichier, InStrRev(Me.monFichier, "") - 1),
Mono_Sélection, True, allfiles, 4, True, "", True)
ou
OpenFile Left(Me.monFichier, InStrRev(Me.monFichier, "") - 1),
Mono_Sélection, True, allfiles, 4, True, "", True

l'api se positionnera dans ton dossier et affichera les fichiers éventuels
sélectionnés.

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
http://access2007.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/


"s.jean"
Bonjour

Merci pour toutes les réponses, j'ai du mal à me faire comprendre...

Je sais comment aller chercher le fichier, éventuellement annuler
grâce au nouveau code
je sais comment exécuter le fichier
Une fois que le chemin du fichier est enregistré, je veux pouvoir
ouvrir l'explorateur sur le répertoire du chemin du fichier

par exemple si j'ai déjà mon chemin de fichier enregistré :
c:/documents/clients/aaa/cde.doc
je souhaiterais en cliquant sur un bouton ouvrir
c:/documents/clients/aaa

une idée ?

merci beaucoup
Publicité
Poster une réponse
Anonyme