Plusieurs liens hypertextes sous Excel

Résolu
KLRFF -  
lermite222 Messages postés 9042 Statut Contributeur -
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

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      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
      1. lermite222 Messages postés 9042 Statut Contributeur 1 199 > gbinforme Messages postés 14930 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
      2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744 > lermite222 Messages postés 9042 Statut Contributeur
         
        bonjour

        Tu à essayé avec les cellules ?

        Je ne comprends pas ta question ?

        Sinon, les macros de ce sujet fonctionnent sur mon poste.
        0
      3. lermite222 Messages postés 9042 Statut Contributeur 1 199 > gbinforme Messages postés 14930 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
  3. KLRFF
     
    Merci beaucoup pour ces solutions. Grâce à cela, je suis débloqué.
    0