Discussion :

[bphilippart]

Bonjour,

Je crée ce post car je n'ai pas réussi à trouver la réponse que je cherchais sur le net.

J'ai demandé à un stagiaire de créer un fichier Excell qui me permet d'enregistrer les bons d'interventions de mes techniciens. Ils remplissent un onglet puis cliquent sur un bouton validation qui enregistre le bon d'intervention dans un répertoire (O:\Maintenance\gmao\bons\ + le numéro de fichier qui est dans la cellule A1) et qui copie dans un onglet bilan les informations principales du bon d'intervention, dont le numéro du bon en colonne F. Je souhaite créer un lien hypertexte qui puisse ouvrir le bon d'intervention mais je bloque.

Voici le code créé :

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
Sub Hyperlink()
Dim celluletrouvee As Range
Dim numero As Variant
Dim ligne As Integer
Dim col As Variant
numero = "A1"
Set celluletrouvee = Range("A1:A2").Find(numero, LookAt:=xlWhole)
Dim chemin As String
chemin = "O:\Maintenance\gmao\bons\" & A1 & ".xls"
With Worksheets(1)
    If celluletrouvee Is Nothing Then
    Else
        .Hyperlinks.Add Anchor:=celluletrouvee, Address:= _
        chemin
    End If
End With
End Sub

Quelqu'un peut-il m'aider ?

Merci

PS : je suis novice en Vba, donc merci de votre aide précieuse

[Zekraoui_Jakani]

Votre code remanié:

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
Sub testHyperlink() 'changer le nom de votre procédure car "HyperLink" est un mot clef pour MS-Office
 
    Dim celluletrouvee As Range
    Dim chemin As String
 
    With ThisWorkbook.Sheets("sheet8")        'Adapter le nom de la feuille ainsi que le chemin
        chemin = "C:\Users\Jakan\Downloads\" & [A1].Value   '& ".xlsx"  'il vaut mieux mettre l'extension dans A1 et les autres cellules
        'A1 doit contenir, par exemple : "1234.xls" sauf si vous êtes sûr que tous vos fichiers ont obligatoirement cette extension.
        Set celluletrouvee = Range("A1:A2").Find(numero, LookAt:=xlWhole)
        If celluletrouvee Is Nothing Then
        Else
            .Hyperlinks.Add Anchor:=celluletrouvee, Address:=chemin
        End If
    End With
 
End Sub

[Philippe Tulliez]

Bonjour,
Sauf s'il indispensable de passer par le VBA, il est tout à fait possible d'ouvrir un classeur avec la fonction native d'excel LIEN_HYPERTEXTE

Facile à mettre en place (moins de 5 minutes)
On place

• le nom du classeur à ouvrir dans une cellule
• le chemin où se trouve les classeurs à ouvrir dans une autre
• on fait la concaténation de l'ensemble dans le premier argument de la fonction

et c'est parti

Voir mon billet Ouvrir un classeur à l'aide de la fonction LIEN_HYPERTEXTE

On peut également avec cette même fonction

• Ouvrir l'explorateur windows et donc ouvrir n'importe quel fichier depuis celui-ci, voir La fonction LIEN_HYPERTEXTE et l'ouverture de répertoire
• Accéder à une cellule précise du classeur voir Comment accéder à une cellule du classeur à l'aide de la fonction LIEN_HYPERTEXTE
• Ouvrir un document Word et aller à un endroit précis de celui-ci (signet) voir Comment atteindre un signet de Word depuis Excel à l’aide de la fonction LIEN_HYPERTEXTE
• etc.

[bphilippart]

Super. Merci. Ca fonctionne et c'est beaucoup plus simple (enfin, pour moi qui suis novice en VBA)