Discussion :

[bobie]

bonjour à tous,
voila je cherche à insérer automatiquement des lignes qui contiennent des liens hypertexte et cela grace à un boutons. mon lien hypertexte est OE I001.xls
voilà mon code :

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
30
Private Sub CommandButton11_Click()

Dim x As Integer
    On Error GoTo Fin
    'Recherche le 1er numero de ligne contenant le mot "I001" dans la
    '1ere colonne de la feuille active
x = Application.WorksheetFunction.Match("I001", _
                ActiveSheet.Columns(1), 0)
    'Insertion ligne
    Rows(x).Insert Shift:=xlDown
Exit Sub
Fin:
MsgBox "Le mot I001 n'a pas été trouvé"

'ajouter un lien hypertexte à la cellule crée.
Dim objLink As Hyperlink
Set objLink = ActiveSheet.Hyperlinks.Add(Range("activecell"), "OE I001.xls")
With objLink
    .SubAddress = "A002"
End With
End Sub

ou pour ajouter mon lien
'ajouter un lien hypertexte à la cellule crée.
NoLigne = ActiveCell.Row
Rows(x).Select      
    Selection.Copy
    Rows(NoLigne).Select
End Sub

l'insertion automatique d'une ligne marche mais pas l'insertion de mon lien hypertexte et je ne sais pas comment m'en sortir, donc si une pesonne avait une idée je suis preneur.
merçi d'avance pour votre aide

[Plateforme3]

Bonjour
Personnellement j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim B as string
Dim Tout as string
B="Nom_Fichier"
Tout = "Chemin_Fichier" + "\" + B
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Tout, TextToDisplay:=B

Slts