Discussion :

[Rook93]

Bonjour à tous,

Voici mon problème j'ai un fichier dans lequel je dispose d'une liste auquel je souhaiterai associer un lien hypertexte. Les liens hypertextes qui mènent vers des fichier Word, sont en fait extrait d'un dossier et il se trouve qu'il y en a plus que dans ma liste et qu'ils ne sortent pas dans l'ordre.

Ma liste de référence est dans la colonne A, mes liens hypertextes dans la B. Ce que je souhaiterai c'est qu'avec une macro pour chaque cellule présente dans la colonne A, on cherche dans la colonne B le lien qui lui correspond, puis qu'on mette dans la colonne C le lien qui correspond à la valeur de la cellule en A.

Est ce possible?

J'ai mis mon fichier en PJ.

D"avance merci pour vos réponses

PS j'utilise les versions d'Excel 2003 et 2010

[Rook93]

Bonjour à tous, en fait j'ai trouver un code qui me permet de faire ce que je veux donc sujet résolu!

Je met le code que j'ai trouvé et qui permet de : en fonction de la valeur dans les cellules de la colonne G d'aller chercher le fichier sur le serveur correspondant au format Word et de mettre le lien hypertexte dans la colonne Q

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
Sub CreationLiens2()
Dim Lien As String
Range("G2").Select
Selection.End(xlDown).Select
fin = Selection.Row
Dim Fichier As String
Const Dossier As String = "S:\Modeles\"
r = Range("G65000").End(xlUp).Row
Range("Q2:Q500").Clear
For i = 1 To fin
        Fichier = Dossier & Range("G" & i) & ".doc"
        If Len(Dir(Fichier, vbNormal)) > 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=Range("Q" & i), Address:=Dossier & Range("G" & i) & ".doc", TextToDisplay:=CStr(Range("G" & i))
        Else
            Range("Q" & i) = ""
        End If
        Dir ("")
    Next
End Sub