Créer lien hypertexte dans excel ??Résolu

Question

Bonjour &#224; tous.
je souhaiterais cr&#233;er un lien hypertexte dans excel pour relier ma cellule "C" & i au r&#233;pertoire cr&#233;er pr&#233;c&#233;demment "X:" & consultant & "" & chantier & "" & nom. Apr&#232;s avoir cherch&#233; pendant un moment et pas mal tourn&#233; en rond, &#231;a serait cool si quelqu'un avait la solution. Ci-dessous lignes de code pr&#233;c&#233;dentes

Dim n As Integer
Dim i As Integer
Dim nom As String
nblot = InputBox("Combien de lots en charge ?")
    n = 0
    For n = 1 To nblot
    nom = InputBox("Nom du lot n&#176;" & n)
    MkDir ("X:" & consultant & "" & chantier & "" & nom)
    i = 2 * n + 1
    ActiveSheet.Range("C" & i) = nom

Merci d'avance

cs_Willi · Accepted Answer

'Lut,
Pour cr&#233;er un lien rien de plus simple. (exemple sur la cellule A1)

Cells(1, "A").Hyperlinks.Add Cells(1, "A"), X:" & consultant & "" & chantier & "" & nom, , , "Texte de la cellule"

Voila

ArchiveAgain · Answer

&#231;a marche nickel par contre le lien s'inscrit sur la page d'origine du code alors que je souhaiterais qu'elle s'affiche sur la nouvelle cr&#233;&#233; pendant le code. Comment Faire ???
Je pense qu'il y a un ActiveSheet &#224; inclure quelque part mais o&#249; ???

Private Sub CommandButton1_Click()



Dim chantier As String
Dim consultant As String
Dim nblot As Integer


chantier = InputBox("Nom du Chantier &#224; cr&#233;er ?")
    If chantier = "" Then
        MsgBox "Nom Incorrect"
        Exit Sub
    End If
    
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=5, Top:=5, Width:=94.5, Height:=24.75).Select



consultant = InputBox("Nom du consultant ?")    If consultant "Antoine" Or consultant "Kristell" Or consultant = "Jean-Philippe" Or consultant = "Daniel" Or consultant = "Thibaut" Then
        Sheets.Add.Name = chantier
        MkDir ("X:" & consultant & "" & chantier)
        Else
        MsgBox "Nom Incorrect"
        Exit Sub
    End If


Dim n As Integer
Dim i As Integer
Dim nom As String
nblot = InputBox("Combien de lots en charge ?")
    n = 0
    For n = 1 To nblot
        nom = InputBox("Nom du lot n&#176;" & n)
        MkDir ("X:" & consultant & "" & chantier & "" & nom)
        i = 2 * n + 1
        Sheets(chantier).Cells(i, 3).Hyperlinks.Add Cells(i, 3), "X:" & consultant & "" & chantier & "" & nom, , , nom
    Next n
    
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=5, Top:=5, Width:=94.5, Height:=24.75).Select
ActiveSheet.CommandButton1.Caption = "Sommaire"



End Sub

cs_Willi · Answer

r&#233;
Tu y &#233;tais presque 
Le premier param&#232;tre de la m&#233;thode Add est la cellule qui doit recevoir le lien. Toi dans ton code tu point&#233;s sur Cells(i,3). donc cela est normale que le lien ce fasse sur la feuille courante 

Sheets(chantier).Cells(i, 3).Hyperlinks.Add Sheets(chantier).Cells(i, 3), "X:" & consultant & "" & chantier & "" & nom, , , nom

ArchiveAgain · Answer

Merci beaucoup &#231;a marche Nickel !!

Créer lien hypertexte dans excel ??

4 réponses

Discussions similaires