Plusieurs liens hypertextes sous Excel

Résolu
KLRFF -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je suis un débutant sous Excel et je galere un petit peu. J'ai un tableau dans lequel, à chaque ligne, j'ai un lien qui mene vers un fichier .svgz. Or ces fichers .svgz sont tous dans le même dossieret sont classés dans le même ordre que dans le tableau.

mon soucis est que j'aimerais trouver une methode plus facile (et plus rapide) que devoir faire 400 fois "bouton droit", "créer lien hypertexte", "entrer le chemin" ..........

Auriez-vous s'il vous plait une manière d'automatiser ceci.

merci d'avance.

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Avec cette macro événementielle à placer dans ta feuille concernée (mode d'emploi) 
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Count > 1 Then Exit Sub
If Not Intersect(sel, [A:A]) Is Nothing And sel.Value <> "" Then
    Dim chemin As String
    chemin = "C:\xyx\n_id.svgz"
    chemin = Replace(chemin , "n_id", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub

Tu remplaces C par ton lecteur, "xyx" par ton chemin de répertoire complet et A:A par ta colonne de noms où tu n'as pas à saisir le suffixe.
0
Réponse 2 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour tous,
Beuh.. Vais probablement encore me faire insulter :D mais moi je n'ai pas compris de cette façon... 
Sub ChangeEnHyper()
'Si dans colonne A sinon mettre le N° de la colonne
Dim i As Integer, s
    For i = 1 To 500
        If Left(Cells(i, 1), 4) = "http" Then
            s = Cells(i, 1)
            Cells(i, 1) = ""
            Cells(i, 1).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s, TextToDisplay:=s
        End If
    Next i
End Sub

A+
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour lermite222,

Vais probablement encore me faire insulter :D

Je me sens visé mais avec humour !

Tu génères les liens alors que j'avais donné une formule pour les activer dynamiquement : notre questionneur a eu ainsi 2 méthodes et il a pu choisir selon ses goûts comme les lecteurs éventuels.

Tu peux même simplifier ton code ainsi pour activer le lien saisi : 
    For i = 1 To 500
        If Left(Cells(i, 1), 4) = "http" Then
              ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Cells(i, 1)
        End If
    Next i

Le test "http" est peut-être à revoir s'il s'agit de fichiers comme il était précisé.

à bientôt peut-être sur un autre sujet.
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour à toi également, Tu à essayé avec les cellules ? parceque c'est ce que j'avais fais en 1er mais ça plantait ?
Cordialement SR :D
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724 > lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention  
 
bonjour

Tu à essayé avec les cellules ?

Je ne comprends pas ta question ?

Sinon, les macros de ce sujet fonctionnent sur mon poste.
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour,
Je voulais dire en mettant directement les cellules comme dans ta modif, mais j'ai repris la macro et effectivement ça fonctionne, je sais pas ce que j'ai fait la 1ère fois.
A+
0
Réponse 3 / 3
KLRFF
 
Merci beaucoup pour ces solutions. Grâce à cela, je suis débloqué.
0