Discussion :

[bonum]

Bonjour,

Je voudrais créer un formulaire avec deux textbox permettant de modifier la cible de l'adresse du lien hypertexte.
Ce formulaire permettrait de modifier la cible de certains liens dans ma table "Plans" sur le champ
contennant les liens hypertextes "Lien".

Par exemple :

oldtext : F:\Photos\gain.jpeg
devient
newtext : F:\Photos\gain_test.jpeg


J'ai trouvé ce code qui fonctionne sur excel mais pas sur access.

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
Sub HyperLinkChange()
 
 Dim oldtext As String
 Dim newtext As String
 Dim h As Hyperlink
 
 oldtext = Texte3.Value 
 newtext = Texte5.Value 
 
' Check all hyperlinks on active sheet.
 For Each h In ActiveSheet.Hyperlinks
 
    x = InStr(1, h.Address, oldtext)
 
    If x > 0 Then
        h.Address = Replace(h.Address, oldtext, newtext)
    End If
	Name oldtext As newtext
 Next
 
 
End Sub

Cordialement,

MH

[madefemere]

Bonjour,

Peut-être que CE TUTO de Cafeine sur la gestion des images t'apporte des réponses ?

Cordialement,

[bonum]

Ok, merci pour ta réponse je vais me renseigner sur ce lien.