Problème Lien Hypertext Résolu/Fermé

Question

Bonjour, 
Voici mon problème :
J'ai une feuille excell retranscrivant des données de fichiers, placés dans un dossier bien à part. J'ai besoin de créer une colonne donnant la possibilité d'ouvrir directement ces fichiers (images, video ou audio).
Quand j'execute les commandes de liens hypertext une à une ça fonctionne très bien je peux ouvrir tous les fichiers désignés.
En revanche j'ai parfois quelques centaines, voire milliers, de fichiers à lier, et les traiter un à un peut-être long et surtout source d'erreur.
Je cherche donc à créer des liens hypertext automatiques qui puissent ouvrir les fichiers directement et pas le dossier d'emplacement des dits fichiers (ce que j'arrive à faire).
Je ne suis pas un expert en tableur excell et ne connais pas les macros ou autres fonctions.
Je sais que mon problème est peut-être un peu redondant mais je n'arrive pas à faire fonctionner les diverses réponses qui ont été faites autour de ce sujet depuis quelques années...
 ^^
Merci d'avance pour votre aide.


Configuration: Windows 7 / Firefox 24.0

pijaku · Answer

Bonjour,

Tous les fichiers à ouvrir sont dans un seul répertoire?
Ce répertoire ne contient que ces fichiers à ouvrir?
Ces fichiers sont répertoriés dans ta feuille Excel?
Si oui, en qu'elle colonne?
Décris nous également ta feuille Excel... Qu'elle donnée trouve t'on et dans qu'elle colonne...
 
&#127932; Cordialement,
Franck &#127926;

reavok · Answer

Bonjour pijaku,

alors :
Mon fichier .xls se présente avec plusieurs onglets comme suit; 
1-Images, 2-vidéo et 3-audio, sur chaque onglet les colonnes se répartissent de façon identique ; A-Nom du créateur, B-Date de Création, C-Durée (pour les videos et audios), E-Nom du fichier (cette colonne me sert d'établissement de lien hypertext, en gros le nom du fichier à ouvrir doit être cliquable et exécutable) et dernière colonne F-Statut.

Tous les fichiers sont ouvrables et sont classés de la même façon. Ex : les fichiers images répertoriés en onglet 1-Images, sont rangés dans un dossier bien distinct des autres et se nomme 1-Fichiers images, il en va donc de même pour les autres fichiers répertoriés sur les autres onglets.

Mes fichiers .xls sont tous construits de la même façon mais n'ont pas le même nombre de lignes, cela peut aller de vingt à 3000.

J'arrive donc à faire la manip pour un fichier comportant une cinquantaine de ligne voire une centaine mais pour 3000. Je sais exécuter une manip qui ouvre le dossier cible mais pas plus.

Je trouve complètement fou que l'on ne puisse pas tout simplement créer un lien hypertext en ayant sélectionner la colonne au préalable puis de désigner le répertoire source des fichiers. Ca me chatouille un peuqu'on ait pas pensé à ce genre de possibilité sans passer par fonction "machpro" avec des codes zarbis. Pour un tableur de données de masse c'est balodpaille. :)
Comme tu peux l'imaginer je ne suis pas un utilisateur très affuté d'excell, perso je suis plus photoshop, illustrator et Indesign... ^^
 
J'ai essayé les fonctions =LIENHYPERTEXT.... mais soit je m'y prends mal ou je n'ai certainement pas bien compris les façons de procéder.
Bien entendu si je dois changer l'ordre de mes colonnes ce n'est pas un problème.

Si tu pouvais me donner une bonne astuce ça me ferait gagner un temps de ouf!
Merci d'avance

A+

pijaku · Answer

Autre chose : colonne E-Nom du fichier Est ce que les extensions des fichiers (.jpg etc...) sont indiquées?

pijaku · Answer

Dans l'attente des réponses aux deux questions, voici comment j'envisage les choses : Pour créer la macro : Manipulations à ne réaliser qu'une seule fois ! 1- Ouvrir un nouveau classeur Excel 2- Tapez Alt +F11 3- Insertion/Module 4- Copiez collez ce code : Sub Creation_Liens() Dim objShell As Object, objFolder As Object Dim Chemin As String, fichier As String Dim Lig As Long, DLig As Long Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&) If objFolder Is Nothing Then MsgBox "Abandon opérateur", vbCritical, "Annulation": Exit Sub Else Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\" End If DLig = Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row For Lig = 2 To DLig fichier = Range("E" & Lig).Value ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & Lig), Address:=Chemin & fichier, TextToDisplay:=fichier Next Lig End Sub 5- Fermez la fenêtre Visual Basic For Application 6- Enregistrer sous : => Nom du fichier : Créer_Liens, => Type : Macros Complémentaires Excel 97-2003 (en bas de la liste) 7- Fermer Excel. Pour utiliser la macro : Manipulations à réaliser à chaque exécution! 1- Ouvrez un des classeurs concernés 2- => Version Excel >= 2007 : Ruban, onglet développeur, cliquez sur Compléments => Version Excel < 2007 : menu Outils/Macros complémentaires 3- Cochez la case Créer_Liens 4- OK 5- => Version Excel >= 2007 : Ruban, onglet développeur Cliquez sur Macros => Version Excel < 2007 : Menu Outils/Macros/Macros => Toutes versions : tapez Alt + F8 6- Dans le nom de la macro, saisir : Creation_Liens puis cliquez sur Exécuter Amélioration possible : En cas d'absence d'un fichier, le lien hypertexte est créé quand même. Mais lors d'un clic dessus, vous aurez un message d'erreur. Il est possible de traiter ces cas pour, par exemple, ne pas créer de lien si le fichier n'existe pas...

pijaku · Answer

Voici le code modifié pour le souci d'extension... Pour l'installer suivre la démarche décrite ICI

Sub Creation_Liens()
Dim objShell As Object, objFolder As Object
Dim Fichiers() As String
Dim Chemin As String, nomFichier As String, fichier As String
Dim Lig As Long, DLig As Long, Ind As Long

Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

If objFolder Is Nothing Then
        MsgBox "Abandon opérateur", vbCritical, "Annulation": Exit Sub
    Else
        Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
    End If
    'récupération et stockage de tous les noms de fichiers du répertoire avec extension
    fichier = Dir(Chemin & "*.xls")
    Do While Len(fichier) > 0
        ReDim Preserve Fichiers(Ind)
        Fichiers(Ind) = fichier
        Ind = Ind + 1
        fichier = Dir()
    Loop
    
    DLig = Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
    For Lig = 2 To DLig
        nomFichier = Range("E" & Lig).Value
        For Ind = LBound(Fichiers) To UBound(Fichiers)
            If Fichiers(Ind) Like nomFichier & "*" Then
                ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & Lig), Address:=Chemin & Fichiers(Ind), TextToDisplay:=nomFichier
                Exit For
            End If
        Next Ind
    Next Lig
End Sub 
 
&#127932; Cordialement,
Franck &#127926;

reavok · Answer

Alors je vois bien la manip...
2 ou 3 choses :

-Lors de la création de la macro, ce qui me parait bizarre c'est de fermer la fenêtre vba avant d'enregistrer. Bon soit j'ai d'abord fais comme tu l'indiques.

-l'enregistrement du fichier doit se faire certainement dans un répertoire bien spécifique de windows/microsoft car quand j'exécute la macro, le logiciel ne me la trouve pas.

-En revanche j'ai essayé de créer cette macro en traitant un fichier contenant des données tests, les liens se font sans soucis en me demandant mon répertoire source. Mais à l'activation d'un lien une fenêtre s'ouvre et me dit "Impossible d'ouvrir le fichier spécifié".

Merci encore!

Problème Lien Hypertext

6 réponses

Discussions similaires