Discussion :

[houssem1807]

Bonjour à tous,

j'ai Userform content un lien hypertexte qui m'ouvre un classeur sur le réseau qui lui même contient des liens hypertextes vers d'autres fichiers
, jusqu'à là tout est ok

le problème : les liens hypertextes du fichier ouvert ne fonctionnent pas, j'ai un message d'erreur : "l'adresse de ce site n'est pas valide, vérifiez l'adresse et réessayez"
j'ai ouvert le fichier sur le réseau (sans passer par mon userform) et tous fonctionnent bien donc le lien hypertexte sont ok

merci pour vos aides

[Jean-Philippe André]

Bonjour,

comment permets-tu l'execution du lien hypertexte ?

As-tu un code VBA derriere un clic bouton, une zone de liste ?

Le lien n'est-il pas tronque du fait que non pris en compte totalement ?

[houssem1807]

le lien hypertexte dans l'userform est activé par double clic, celui qui est dans le fichier qui s'ouvre (le bug) c'est par un clic.
Oui j'ai un code VBA derrière le lien hypertexte de l'userform :

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
 
Private Sub textBox2_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'monclasseur = "O:\ZTS\QUALITE\Gammes de contrôle\Gammes de contrôle génériques\" & TextBox2.Value & ".xlsx"
    If TextBox5.Value = "Générique" Then
        On Error Resume Next
        ThisWorkbook.FollowHyperlink "O:\RECHANGES\guide contrôle réception rechanges\plan de contrôle réception génériques\" & TextBox2.Value & ".xlsx", , True
        ' Si une erreur est renvoyée, fichier non ouvert
        If Err.Number <> 0 Then
            MsgBox ("Pas de Famille")
        End If
    ElseIf TextBox5.Value = "Spécifique" Then
        On Error Resume Next
        ThisWorkbook.FollowHyperlink "O:\RECHANGES\guide contrôle réception rechanges\plan de contrôle réception spécifiques\" & TextBox1.Value & ".xlsx", , True
        ' Si une erreur est renvoyée, fichier non ouvert
        If Err.Number <> 0 Then
            MsgBox ("Pas de Famille")
        End If
    End If
 
    With ActiveWindow
        .WindowState = xlNormal
        .Top = 1
        .Left = 1
        .Height = Application.UsableHeight
        .Width = Application.UsableWidth
        .WindowState = xlMaximized
    End With
Split
End Sub

[houssem1807]

Alors j'ai déplacé les fichiers ouverts par l'userform dans le même dossier que celui de ma macro et du coup les liens hypertextes fonctionnent nickel