Discussion :

[CrasherSEP]

Bonjour,

J'aimerais remplacer mon champ "Fichier joint" trop lourd par une zone de texte contenant des liens hypertextes pointant directement vers les fichiers (et dans le meilleur des mondes, pouvoir les ouvrir en cliquant dessus [*.pdf, *.jpg...])

J'arrive à récupérer le lien absolu d'un fichier via la ligne de commande VBA "FileDialog", mais après je ne sais pas comment insérer les liens dans un champ et les rendre hypertexte...

Est-ce possible ? Si oui, comment... ????

Bonne journée à vous et merci d'avance

[hyperion13]

Salut
J'utilise cette méthode

Code :

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

1
2
3
4
5
strPath = GetFilePath()
If Len(strPath) > 0 Then
    Me.imagePath = strPath ' imagePath = textbox dans form lié à un champ de la tbl en txt
    Me.linkPath = strPath ' linkPath = textbox dans form lié à un champ de la tbl en hyper
End If

[CrasherSEP]

Bonjour,

Merci pour votre réponse

J'arrive à afficher dans une zone texte enrichi le lien choisi... j'aimerais maintenant pouvoir lors d'un autre choix, passer à la ligne et afficher le nouveau lien et ainsi de suite... et cela ne fonctionne pas...

Code :

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

Me.imagePath.Value = Me.imagePath.Value & Chr(13) & varFile

Ps : cela fonctionne UNE FOIS si juste avant je fais un retour à la ligne manuellement...

J'aimerais aussi, si cela est possible que ces liens soient cliquables et ouvrent directement les fichiers...

Belle journée à vous

EDIT
J'ai trouvé le retour à la ligne...

Code :

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

"<br>" ' à la place de Chr(13)

Il reste à trouver comment lancer les liens au clic...

[CrasherSEP]

Petites observations...

1. Le lien ne semble actif QUE si je l'encode manuellement, il ne se passe rien si le contenu du champ Hypertexte est alimenté en VBA
2. Pour afficher plusieurs liens Hypertext à la suite, je dois utiliser Chr(13) et Chr(10), mais malheureusement tout les liens n'en forme plus qu'un...

[hyperion13]

D'accord
Peut-être un début de piste ici.

[CrasherSEP]

Merci pour le lien...

Pour ce qui est de créer plusieurs liens, je passe simplement par une autre table...

Mon gros problème est le lien qui ne semble pas être reconnu comme Hypertext...

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
26
27
28
29
30
31
32
33
34
35
36
Dim fDialog As Office.FileDialog
   Dim varFile As Variant
 
   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
 
   With fDialog
 
      ' Allow user to make multiple selections in dialog box
      .AllowMultiSelect = False
 
      ' Set the title of the dialog box.
      .Title = "Please select one or more files"
 
      ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "Access Databases", "*.MDB"
      .Filters.Add "Access Projects", "*.ADP"
      .Filters.Add "All Files", "*.*"
 
      If .Show = True Then
 
         For Each varFile In .SelectedItems
 
 
            Dim rec As DAO.Recordset
  Set rec = CurrentDb.OpenRecordset("Table2", dbOpenDynaset)
   rec.AddNew
    rec.Fields("LIENS").Value = varFile
    rec.Fields("ID").Value = Me.N°.Value
   rec.Update
 rec.Close
Set rec = Nothing
'
 
Me.Refresh

EDIT
J'ai trouvéééééééééééééééé, il suffit de mettre "#" devant et derrière le lien

Code :

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

  rec.Fields("LIENS").Value = "#" & varFile & "#"