Sujet Précédent Sujet Suivant

Plusieurs liens hypertextes sous Excel

Résolu/Fermé
KLRFF - 2 sept. 2008 à 10:22
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 sept. 2008 à 10:53
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.
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
2 sept. 2008 à 12:33
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 sept. 2008 à 13:04
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
2 sept. 2008 à 22:04
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
3 sept. 2008 à 02:32
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684 > lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020
3 sept. 2008 à 08:42
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
3 sept. 2008 à 10:53
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
2 sept. 2008 à 17:06
Merci beaucoup pour ces solutions. Grâce à cela, je suis débloqué.
0