Power Query Comment conserver les liens hypertexte suite a une Requêtes Powerquery

lennyg · 22 Novembre 2022

Bonjour à tous

je voudrais d'abord vous remercier grâce a vous j'ai découvert Powerquery et cela m'aide beaucoup

cependant j'ai encore besoin de votre aide sur le fichier ci-joint .

j'ai créé une requête pour afficher une copie du tableau sommaire pour faire une feuille avec seulement les procédures par service
ces feuilles évolue avec le temps tout marche bien seul problème j'aimerais conserver les liens hypertexte présent sur le sommaire.
je n'ai pas trouvé comment faire sachant que j'ai un peu plus d'onglet sur le fichier de base un onglet pour chaque services.
j'ai changé les lien hypertexte aussi pour garder les chemins d'accès confidentiel

j'espère être clair n'hésitez pas a regarder le fichier vous allez mieux comprendre

le fichier contient des requêtes Powerquery

job75 · 23 Novembre 2022

Bonjour lennyg, chris, le forum,

Avec ce fichier (4) tous les liens de la feuille "Sommaire" sont traités :

VB:

Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire]
    If c <> "" Then If c.Hyperlinks.Count Then d(c.Value) = c.Hyperlinks(1).Address 'mémorise l'adresse du lien
Next c
For Each c In [Procédures_Applicable_HSE]
    If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V]
    If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub

3 liens digiqual sont parfaitement restitués dans la 2ème feuille.

A+

job75 · 23 Novembre 2022

chris à dit:
@job75 : la procédure pourrait inclure au début une actualisation des requêtes : ainsi cela génèrerait la mise à jour des tableaux avec leurs liens

Je l'avais fait au post #4 mais ça ne va pas, d'où mon post #5.

lennyg · 23 Novembre 2022

job75 à dit:

Bonjour lennyg, chris, le forum,

Avec ce fichier (4) tous les liens de la feuille "Sommaire" sont traités :

VB:

Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire]
    If c <> "" Then If c.Hyperlinks.Count Then d(c.Value) = c.Hyperlinks(1).Address 'mémorise l'adresse du lien
Next c
For Each c In [Procédures_Applicable_HSE]
    If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V]
    If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub

3 liens digiqual sont parfaitement restitués dans la 2ème feuille.

A+

Je viens d'essayer dans mon fichier de base cela fonctionne bien =D

Merci beaucoup pour votre aide précieuse j'ai plus cas Modifier un peu le code pour ajouter les autres onglets

j'ai essayé de regarder dans le code ce que tu as modifié pour dire de prendre aussi ancien numéro mais je trouve pas ou tu fais mention a la colonne

Merci beaucoup pour votre aide précieuse j'ai plus cas Modifier un peu le code pour ajouter les autres onglets

lennyg · 23 Novembre 2022

chris à dit:
Bonjour à tous

PowerQuery est un requêteur.

Comme tous les requêteurs il manipule des données brutes, typées, et ne traite donc pas le format : dans les systèmes de bases de données où sont nés les requêteurs, le format est totalement indépendant des données et passe par des outils de représentation des données : écrans d’interface utilisateurs, listings d'impressions...
Cela est très souple et très puissant.

Excel mélange la donnée et sa représentation ce qui présente des avantages et des inconvénients

PowerQuery propose de restituer les données brutes sous forme de tableau structuré ou de TCD

Je doute que PowerQuery évolue sur l'aspect des hyperliens

Il y a eu plusieurs propositions de VBA ici et sur l'autre fil
Selon ton besoin, à définir clairement, tu as donc le choix des solutions

Merci pour ta réponse je connais rien en VBA je débute,
je sais Modifier un code créé mais tout faire seul j'ai pas encore le niveau.
la formule de Job75 fonctionne sauf qu'elle est instable je ne sais pas pourquoi si je modifie le lien elle n'actualise pas et prés actualisation de la requête elle n'affiche pas tout :s

job75 · 23 Novembre 2022

lennyg à dit:
si je modifie le lien elle n'actualise pas

il faut actualiser manuellement avant d'exécuter la macro.

chris · 23 Novembre 2022

RE

job75 à dit:
Je l'avais fait au post #4 mais ça ne va pas, d'où mon post #5

Je n'ai pas tout détaillé, mea culpa

Je remarque que certaines cellules de Sommaire ont une mise en forme de lien mais n'ont pas de lien...
(peut-être déjà dit... )

lennyg · 23 Novembre 2022

chris à dit:
RE

Je n'ai pas tout détaillé, mea culpa

Je remarque que certaines cellules de Sommaire ont une mise en forme de lien mais n'ont pas de lien...
(peut-être déjà dit... )

oui ça je vais pouvoir l'enlever j'ai mis tout en format de colonne en lien hypertexte cat je pensais que powerquery avait besoin de ça je vais changer

lennyg · 24 Novembre 2022

job75 à dit:
il faut actualiser manuellement avant d'exécuter la macro.

sur le dernier fichier que tu m'a envoyé ça affiche les liens des anciens numéro chez toi ? moi non @job75

j'ai cherché dans le code je n'arrive pas a comprendre ou tu fais référence a des colonnes pour pouvoir ajouter moi même les liens des anciens Numéros

job75 · 24 Novembre 2022

Bonjour lennyg,

Ma dernière macro ne s'occupe pas des colonnes, les liens sont recherchés dans tout le tableau "Sommaire".

Si vous voulez connaître la colonne du lien utilisez c.Column.

A+

lennyg · 24 Novembre 2022

job75 à dit:
Bonjour lennyg,

Ma dernière macro ne s'occupe pas des colonnes, les liens sont recherchés dans tout le tableau "Sommaire".

Si vous voulez connaître la colonne du lien utilisez c.Column.

A+

ha d'accord je comprends pas pourquoi il ne prend pas tout les liens alors

lennyg · 25 Novembre 2022

job75 à dit:
Bonjour lennyg,

Ma dernière macro ne s'occupe pas des colonnes, les liens sont recherchés dans tout le tableau "Sommaire".

Si vous voulez connaître la colonne du lien utilisez c.Column.

A+

ha j'ai trouvé le problème pfiou Merci encore pour votre aide

job75 · 30 Novembre 2022

Bonjour lennyg,

Voyez ce document :

https://support.microsoft.com/fr-fr...e-office-3dc41767-a82e-fc9b-c405-de8b1166be92

Il vous faudra probablement modifier le lien défectueux.

A+

lennyg · 30 Novembre 2022

job75 à dit:
Bonjour lennyg,

Voyez ce document :

https://support.microsoft.com/fr-fr/topic/vous-ne-pouvez-pas-utiliser-un-caractère-dièse-dans-un-nom-de-fichier-pour-un-lien-hypertexte-dans-un-programme-office-3dc41767-a82e-fc9b-c405-de8b1166be92

Il vous faudra probablement modifier le lien défectueux.

A+

merci encore

Power Query Comment conserver les liens hypertexte suite a une Requêtes Powerquery

lennyg

XLDnaute Nouveau

Pièces jointes

job75

job75

XLDnaute Barbatruc

lennyg

XLDnaute Nouveau

lennyg

XLDnaute Nouveau

job75

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

lennyg

XLDnaute Nouveau

lennyg

XLDnaute Nouveau

job75

XLDnaute Barbatruc

lennyg

XLDnaute Nouveau

lennyg

XLDnaute Nouveau

job75

XLDnaute Barbatruc

lennyg

XLDnaute Nouveau

Discussions similaires