Salut à tous. Je deviens dingue
Mon excel comporte un code en colonne P. J'aimerai qu'en colonne T, un lien hypertexte soit généré automatiquement pour pointer un fichier qui porte pour nom le code en colonne P en extension .jpg.
Je ne m'y connais absomument pas ni en macro ni en vba. En fait c'est un peu au dessus de mes forces mais j'ai tellement envie que ça marche!! J'ai essayé plusieurs code et suis tombé sur celui là qui me semble approprié::
Sub CreationLiens()
Dim r As Long, i As Long
Dim Fichier As String
Const Dossier As String = "\\Srvfs101\p_vues_eclatées\Photos produits par code article\"
r = Range("P65000" ).End(xlUp).Row
Columns("T:T" ).Clear
For i = 3 To r
Fichier = Dossier & Range("P" & i) & ".xls"
If Len(Dir(Fichier, vbNormal)) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("T" & i), Address:=Dossier & Range("P" & i) & ".xls", TextToDisplay:=CStr(Range("P" & i))
Else
Range("T" & i) = ""
End If
Dir ("" )
Next
End Sub
...sauf que ça ne fonctionne pas. Il a l'air sympa pourtant ce vba.
Je serai heureux (et je pèse mes mots) de recevoir de l'aide. Je galère à fouiller, à essayer, à modifier!!!
Merciiiiiiiiiiiiiiiiii
Message édité par larnodestras le 14-08-2008 à 16:36:04