EXCEL 2013/ pré programmer un lien hypertexte sur une colonne

lulla_by_1 Messages postés 13 Statut Membre -  
lulla_by_1 Messages postés 13 Statut Membre -
Bonjour,

Je suis débutante sur Excel (je travaille avec la version 2013) et j'aimerai savoir si ce que j'aimerai faire est possible.
Je voudrais pré programmer un lien hypertexte sur une colonne pour que mes collègues n'aient plus qu'à coller le lien de leur fichier dans chaque cellule (chaque cellule aura un lien différent). J'espère que je suis claire?
Bonne journée...

3 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    J'espère que je suis claire?
    Pas vraiment, vous pouvez developper??
    0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    « J'espère que je suis claire? » Pas vraiment !!!

    Qu'entend-tu par pré programmer ?
    Si tes collègues collent le lien vers leur fichier, il n'y a rien à faire, à condition que ce fichier soit accessible par un réseau.
    0
    1. lulla_by_1 Messages postés 13 Statut Membre
       
      Les différents fichiers sont bien en réseau.
      0
  3. lulla_by_1 Messages postés 13 Statut Membre
     
    Je vais essayer de faire mieux...
    Est-il possible de coller le chemin d'accès du fichier sans passer par l'action " clic droit puis lien hypertexte..." ? J'aimerai que la colonne destinée à l'emplacement des fichiers soit déjà "formatée" comme lien hypertexte, il n'y aurait plus qu'à coller le chemin d’accès.
    C'est mieux? :-$
    0
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Tu peux utiliser la fonction =LIEN_HYPERTEXTE() dans colonne à coté
      0
    2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Ou une macro de feuille (à adapter) :
      Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub
        If Intersect(Target, Columns("B")) Is Nothing Then Exit Sub
        Me.Hyperlinks.Add Anchor:=Target, Address:=Target.Value, TextToDisplay:=Target.Value
      End Sub
      0
    3. lulla_by_1 Messages postés 13 Statut Membre
       
      Oulala, ça dépasse de loin mes compétences... Mais je vais faire des recherches et des tentatives...
      Merci beaucoup
      0