Discussion :

[Ysthad]

Bonjour à toutes et tous,

J'ai cherché dans le forum si je trouvais une solution à mon problème... Nada... Rien. Je me permets donc ce post.

Voici mon problème :

Je souhaite créer un fichier excel qui me permettrait de pointer sur des images, photos, vidéos, etc. Une sorte de table de matière, ou de sommaire si vous préférez.
L'idée étant de mettre dans chaque cellule un lien qui pointe sur la photo avec un nom explicite. A priori simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i = 1 to n 
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 10), Address:=lien, TextToDisplay:=nomvariable
next i

Le hic c'est que, quelle que soit l'adresse renseignée dans la variable lien, "./sous-repertoire" ou "../sous-repertoire" ou ".\sous-repertoire" ou ... bref... j'ai tout essayé, Excel me push le lien suivant "file:///\\adresseIPduserveur\nomdelamachine(associé à la lettre logique du serveur)\repertoire\fichier.jpg"

Le lien est correctement créé, tout passe bien, sauf l'adresse. Je travaille en réseau.

Mon objectif : forcer l'écriture d'un lien relatif qui pointe sur un sous-repertoire du répertoire dans lequel est enregistré mon fameux fichier excel.
L'idée étant de pouvoir créer un pack zip avec tout ce qui faut à l'intérieur (le fichier excel + les fichiers images dans le sous-répertoire).


Pour info j'ai essayé de mettre en ouverture de classeur le bout de code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Sub Workbook_Open()
    Application.DefaultWebOptions.UpdateLinksOnSave = False
End Sub

Rien à faire.

Est-ce que quelqu'un à une idée ?

D'avance un grand merci pour vos éclairages, pistes, idées, voire... solutions :-D

Christophe.

[Menhir]

Je n'ai pas tout compris à ton problème mais je pense qu'il peut se résoudre sans VBA, en utilisant la fonction LIEN_HYPERTEXTE().
https://support.office.com/fr-FR/art...7-7de9b76f577f

[Ysthad]

Bonjour Mehnir,

Je confirme ça fonctionne très bien avec la fonction LIEN_HYPERTEXTE(./sous-repertoire/fichier.jpg;"cliquez ici).
Compte-tenu des volumes je dois passer par VBA.
Ca ne fonctionne pas.
Le meme code vba préfixe le lien avec "file:///\\adresse IP du serveur\Mapage du serveur\chemin\"
De sorte que mon lien devient : file:///\\adresse IP du serveur\Mapage du serveur\chemin\sous-repertoire\fichier.jpg"

J'espère que c'est plus clair comme ça.

Christophe.

[Menhir]

Compte-tenu des volumes je dois passer par VBA.

Pourrais-tu expliquer pourquoi ?

[Ysthad]

Pourrais-tu expliquer pourquoi ?

Oui. Bien sur. pardon. Plusieurs raisons à cela :

• le volume encore que... ca pourrait passer avec une formule. J'atteinds les 50 000.
• la répétition de la tâche. Une formule oblige des C/C avec tous les risques d'erreurs alors qu'un VBA c'est du clique bouton.
• un vba permet de marquer dans le dur dans une cellule le résultat d'une formule vs avec une formule il faut faire un copier/collage spécial en valeur (on en est déjà à 2 C/C
• la vitesse d'execution. Je passe par des array.
• et puis je dois bien l'avouer. Je suis têtu. Ca m'énerve de ne pas comprendre où ça cloche.

Voilà.
Cdt,
Christophe.

[Menhir]

Je ne sais pas si tu t'en es rendu compte, mais il est possible de mettre une formule comme premier argument de la fonction LIEN_HYPERTEXTE().

Par exemple, si tu mets la racine des répertoire en A1 et que tes noms de fichiers (y compris avec des sous-répertoires) sont dans la colonne B, il est possible d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE($A$1&B1;"cliquer ici")

et de recopier la formule 50 000 fois en deux clics, trois touches et un coup d'ascenseur.