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