Mise en page liens hypertextes automatiquement

[Leché]

Bonjour à tous et à toutes,

Je cherche un code VBA permettant d'affecter automatiquement des liens hypertextes en fonction de la valeur d'une cellule et donc en fonction du nom du fichier.

Le but serait que pour chaque valeur saisie dans la colonne B2 (image 1) , le plan (image 2) soit automatiquement affecté en lien hypertexte à la cellule.

A savoir que les 10 premiers chiffres des cellules en B, correspondent à chaque fois aux 10 premières valeurs du numéro du plan.

A vos idées..
En vous remerciant d'avance pour vos réponses.
Je reste attentif a vos réponses

Cordialement,

 

[Dudu2]

Oui cela fonctionnera car chaque cellule de la plage est traitée.

Il est aussi possible d'indiquer une plage "multi-area" comme B2:B4,B6:B8,D12:E20

 

[Leché]

Bah c'est top !!

Encore et encore merci

 

[Dudu2]

Reprends le fichier que je viens de modifier et dans lequel j'ai corrigé un petit bug pour la suppression des liens hypertextes éventuels qui n'a aucune chance de se produire dans ce contexte mais pour le principe.

 

[Leché]

Il n'y à pas de fichier en PJ ..
Le bug consistait en quoi ?

 

[Dudu2]

Il faut prendre le fichier du message #10

Bug: (au-delà de 1 ça bug, mais tu n'en as jamais plus d'1)

        'Suppression des liens hypertextes éventuels
        For i = 1 To Cellule.Hyperlinks.Count
            Cellule.Hyperlinks(i).Delete
        Next i

Pas bug:

        'Suppression des liens hypertextes éventuels
        Do While Cellule.Hyperlinks.Count
            Cellule.Hyperlinks(1).Delete
        Loop

 

[Leché]

Je modifie de suite !
Génial !

 

[Leché]

Question: les fichiers plans sont dans un répertoire ou dispersés dans un répertoire et ses sous-répertoires ?

Question: tous les plans sont des fichiers TIF ?

Bonjour Dudu2,

Je reviens vers vous concernant la question ci-dessous, mon besoin à changé. En juin mes plans étaient sous format .TIF , aujourd'hui nous passons progressivement sur des formats .PDF , cela me génère une erreur (du moins je suppose) a cause des ces plans PDF.

Lors de l'exécution de la macro , j'ai un message d'erreur (voir ou cela bloque sur PJ ERROR 10) pour ce rendu (voir PJ ERROR 20) , la cellule dont il n'y a pas de lien hypertexte est un nouveau fichier PDF en question..

Que faire ?

Cordialement,

 

[Dudu2]

Bonjour,
Reprends le fichier en Post #10.

Tu peux:
- soit spécifier la liste des extensions des fichiers Plans,
- soit ne rien spécifier et dans le répertoire des fichiers Plans, le programme prendra le 1 fichier dont le nom match le contenu de la cellule quelque soit son extension.

Je ne sais pas d'où vient l'erreur 20 car elle résulte d'un Resume Next sans contexte d'erreur et je n'ai pas ça dans mon code. Vérifie ton propre code.
J'ai toutefois sécurisé le test en ajoutant un CStr: If Len(Trim(CStr(Cellule.Value))) > 0 Then

 

[Leché]

Bonjour,
Reprends le fichier en Post #10.

Tu peux:
- soit spécifier la liste des extensions des fichiers Plans,
- soit ne rien spécifier et dans le répertoire des fichiers Plans, le programme prendra le 1 fichier dont le nom match le contenu de la cellule quelque soit son extension.

Je ne sais pas d'où vient l'erreur 20 car elle résulte d'un Resume Next sans contexte d'erreur et je n'ai pas ça dans mon code. Vérifie ton propre code.
J'ai toutefois sécurisé le test en ajoutant un CStr: If Len(Trim(CStr(Cellule.Value))) > 0 Then

Merci pour ton retour, je n'ai pas mon PC ce soir , je regarde demain.

Concernant le second point , il faut que le nom match a 100% pour attribuer le lien ? Car je récupère les plans sous forme d'export, donc il y a généralement d'autres caractères qui suivent derrière. Cependant les 8 premiers chiffres correspondent a la cellule ciblée

Bonne soirée, je te tiens au courant demain.

 

[Dudu2]

il faut que le nom match a 100% pour attribuer le lien ?

Non, il suffit que les caractères de la cellule soient le début du nom du fichier.

'Recherche du fichier correspondant
For i = 1 To UBound(TableauNomsFichiers)
If UCase(Trim(CStr(Cellule.Value))) = Left(UCase(Trim(TableauNomsFichiers(i))), Len(Trim(CStr(Cellule.Value)))) Then Exit For
Next i

 

[Leché]

Bonjour , Problème résolu sur mon cas,, a tester sur d'autre essai demain .

Merci

 

[Leché]

Bonjour,
Après plusieurs essais, OK , tout roule
Dans l'esprit d'optimisation, est-il possible de rajouter deux onglets dans "FEUILLES CONCERNÉES" au lieu de re lancer la macro une seconde fois ?

Cordialement,

 

[Dudu2]

Bonjour,
J'ai modifié le fichier du Post #10.
Il n'y a qu'une seule plage applicable aux 2 feuilles. S'il faut changer...

 

[Leché]

Bonjour,
J'ai modifié le fichier du Post #10.
Il n'y a qu'une seule plage applicable aux 2 feuilles. S'il faut changer...

Bonjour,
Cela ne gêne en rien d'avoir une seule plage

Merci beaucoup

 

[Alex6942]

Bonjour,
J'ai modifié le fichier du Post #10.
Il n'y a qu'une seule plage applicable aux 2 feuilles. S'il faut changer...

Bonjour,
Je rebondis sur ce post qui est top pour mon besoin. Cependant j'aimerais sélectionner deux plages différentes.
Quelle partie du code faut-il modifier ?