Discussion :

[AmauryD]

Bonjour, je galere un peu sur une fonctionnalite assez simple et je suis nouveau sur le forum
dans un champ j'aimerai le lien direct vers un fichier sur un espace réseau; pour une ouverture si on clique dessus.
En fait j'aimerai que si on a pas choisi le fichier en cliquant sur le champ il ouvre un panneau d'explorateur pour pouvoir aller choisir le fichier et apres il l'enregistre dans le lien.
j'aimerais que la cellule ne puisse pas être modifiée sauf avec un bouton à cote par exemple qui demandera une confirmation de changer le lien vers le fichier.

ca doit etre simple mais je galere merci d'avance à tous;;;

[delcroixf]

Bonjour,
C'est sans doute très simple à condition que l'on comprenne l'énoncé... Personnellement, j'ai eu une idée différente à la lecture de chaque ligne de ce que tu voulais faire... Peux tu expliciter svp ?
(C'est peut-être pour cela qu'il n'y a eu aucune réponse)

[AmauryD]

Il me faudrait juste un champ sur un formulaire.
Si le champ est vide, tu cliques dessus, et il te permet d'aller chercher un fichier precis. il enregistre le lien complet.
Si le champ est plein, tu clique dessus et il t'ouvre le fichier.
de plus si il est plein, un bouton apparait à coté pour changer le lien.

J'espère avoir été plus clair merci.

[delcroixf]

Bonjour, voilà beaucoup plus clair...

1) pour aller chercher le chemin du fichier je te propose quelque chose comme cela quand ton champ est vide :

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
16
17
18
19
'Sub getFileName()
    ' Affiche la boîte de dialogue Ouvrir fichier d'Office afin de choisir
    ' un nom de fichier pour l'enregistrement de l'escorte en cours.
        Dim fileName As String
        Dim result As Integer
            With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Sélectionner un fichier"
            .Filters.Add "Tous les fichiers", "*.*"
            .Filters.Add "Fichiers JPEG", "*.jpg"
            .Filters.Add "Fichiers PDF", "*.pdf"
            .FilterIndex = 1
            .AllowMultiSelect = False
            .InitialFileName = CurrentProject.Path
        '.InitialFileName = "C:\Ton_Chemin"
            result = .Show
                If (result <> 0) Then
                fileName = Trim(.SelectedItems.Item(1))
                varPJ = fileName
                End If

2) Quand ton champ est plein : il suffit de gérer avec une condition If...

Bonne journée
F

[Heureux-oli]

Pour que ton champ Hyperlink fonctionne, il faut qu'il soit entouré de # dans la variable VBA.

[AmauryD]

re

Je l'ai mis dans un module,
et jai utilise la procedure on enter sur le champs.

Malheureusement il bloque à
With Application.FileDialog(msoFileDialogFilePicker)

j'avoue sous access, je suis pas tres bon pourtant je me débrouillais sous excel lol.

Merci pour votre aide...

[Domi2]

Bonjour,

Tu utilises quelle version d'access ?

Si tu as Access 2000, tu ne peux pas utiliser ce code (FileDialog n'est disponible qu'à partir de la version 2002).

Il faut utiliser le code que tu trouveras là.

Domi2

[AmauryD]

je suis sous access 2003.

je pense que cest une library de reference que je nai pas chargée...
mais laquelle.

Merci d'avance

[Domi2]

Re,

Microsoft Office XX (11 dans ton cas).

Domi2

[AmauryD]

ok ca marche mais je vais vraiment passer pour un nul mais rien ne s'affiche ni sur le formulaire ni dans la table...

Vous etes géniaux Merci

[Domi2]

Re,

mais rien ne s'affiche ni sur le formulaire

Ben... Tu as passé le nom du fichier que tu récupères au contrôle de ton formulaire ? (En oubliant pas de l'entourer de "#", comme indiqué par Heureux-Oli plus haut ?).

Ou tu as une erreur ? si oui, laquelle ?

Domi2

[AmauryD]

Alors j'ai un peu cherché,
voici ce que j'ai :

dans le formulaire sur controle source , jai lien qui est l'emplacement dans ma table ou je veux enregistrer le lien.

Après le code donné plus haut,Je l'ai mis dans un module qui s'appelle Open file
et
dans la form(en vue macro) j'ai ca

Code :

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

1
2
3
4
Private Sub Lien_Enter()
Call getFileName
MsgBox varpj
End Sub

mais déjà à l'affichage du msgbox, la variable est vide.
voilà
donc comment faire pour garder la variable et aussi l'inserer

Merci d'avance

[Domi2]

Re,

Ce que je ferais, c'est d'abord de transformer la sub en fonction, à placer dans un module standard.

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
16
17
18
19
20
21
22
23
24
25
Function getFileName(FileName) As String
 
    'Dim FileName As String
    Dim result As Integer
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Sélectionner un fichier"
        .Filters.Add "Tous les fichiers", "*.*"
        .Filters.Add "Fichiers JPEG", "*.jpg"
        .Filters.Add "Fichiers PDF", "*.pdf"
        .FilterIndex = 1
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        '.InitialFileName = "C:\Ton_Chemin"
        result = .Show
 
        If (result <> 0) Then
 
            FileName = Trim(.SelectedItems.Item(1))
 
        End If
 
    End With
 
End Function

Et pour l'appeler :

Code :

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

1
2
3
4
5
6
7
Public Sub Test()
 
Call getFileName(LienhyperLinK)
 
MsgBox LienHyperLink
 
End Sub

C'est pas testé et je n'utilise pas mso, il y'a peut-être mieux à faire...

Domi2

[AmauryD]

j'arrive à faire apparaitre le lien dans la message box mais il ne s'affiche pas encore dans le champ;p

Une idée?

Mais merci de ton aide

[Domi2]

Re,

A la place du message :

Code :

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

Me.LeNomDeTonChamp = LienHyperLink

Ou mieux :

Code :

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

Me.LeNomDeTonChamp = "#" & LienHyperLink & "#"

Domi2

[AmauryD]

Ok Merci c'est génial ca marche;;

Merci à toi car je vais en avoir besoin de cette fonction
merci Beaucoup.