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

L

lennyg

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1.xlsx
    72.2 KB · Affichages: 7
Solution
job75
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+
Trier par date Trier par votes
L

lennyg

XLDnaute Nouveau
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Avant de créer les liens hypertextes il faut mémoriser leurs adresses, la macro du bouton "Liens" :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
ThisWorkbook.RefreshAll 'actualise les tableaux PQ
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    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[Liaisons PCVEHS]]
    c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
Notez l'espace superflu dans le nom de la colonne "Liaisons PCVEHS " du tableau "Sommaire".
 

Pièces jointes

  • Classeur(1).xlsm
    85.3 KB · Affichages: 1
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Au temps pour moi, il ne faut pas dans la macro actualiser les tableaux PQ :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    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[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
Mais les liens créés ne sont pas ceux de la feuille "Sommaire", ils ne fonctionnent pas.
 

Pièces jointes

  • Classeur(2).xlsm
    84.8 KB · Affichages: 6
Vote positif 0 Vote négatif
L

lennyg

XLDnaute Nouveau
job75 à dit:
Au temps pour moi, il ne faut pas dans la macro actualiser les tableaux PQ :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    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[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
Mais les liens créés ne sont pas ceux de la feuille "Sommaire", ils ne fonctionnent pas.
Cliquez pour agrandir...
ça ressemble un peu oui en effet les liens ne fonctionne pas et ils sont pas tous fonctionnel :s ça l'air compliqué a faire
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
En fait les liens du tableau "Sommaire" ont tous la même adresse web "https://www.wowhead.com/fr".

Utilisez donc ce fichier (3) :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    If c.Hyperlinks.Count Then d(c.Value) = "https://www.wowhead.com/fr" 'mémorise l'adresse du lien"
Next c
For Each c In [Procédures_Applicable_HSE[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
 

Pièces jointes

  • Classeur(3).xlsm
    85.5 KB · Affichages: 2
Vote positif 0 Vote négatif
L

lennyg

XLDnaute Nouveau
job75 à dit:
En fait les liens du tableau "Sommaire" ont tous la même adresse web "https://www.wowhead.com/fr".

Utilisez donc ce fichier (3) :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    If c.Hyperlinks.Count Then d(c.Value) = "https://www.wowhead.com/fr" 'mémorise l'adresse du lien"
Next c
For Each c In [Procédures_Applicable_HSE[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
Cliquez pour agrandir...
oui mais c'est juste pour le test qu'il ont tout la même adresse en vrai ce n'est pas le cas au début j'ai changé j'en ai mis des diffèrent mais je ne pouvais pas tous les changer par des différents a chaque fois les lien digiqual et les ancien numéro ne s'affiche pas du tout
 
Vote positif 0 Vote négatif
L

lennyg

XLDnaute Nouveau
job75 à dit:
Je ne vois pas comment récupérer l'adresse web, les liens du fichier (2) conduisent à des fichiers.
Cliquez pour agrandir...
j'avoue que je suis un peu perdu j'ai l'impression que ce n'est pas possible ou trop complexe c'est dommage que powerquery ne détecte pas automatiquement les liens il suffirait qu'il ajoute la fonction quand la case est au format lienhypertexte -_-'

et oui les liens du fichier 2 il a récupéré mes liens d'origine que j'avais effacé étrangement
 
Vote positif 0 Vote négatif
L

lennyg

XLDnaute Nouveau
job75 à dit:
Au temps pour moi, il ne faut pas dans la macro actualiser les tableaux PQ :
VB: 
Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire[Liaisons PCVEHS ]]
    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[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V[Liaisons PCVEHS]]
    If c <> "" Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub
Mais les liens créés ne sont pas ceux de la feuille "Sommaire", ils ne fonctionnent pas.
Cliquez pour agrandir...


Bonjour est il possible d'ajouter également les liens hypertexte sur la colonne numéro digiqual et ancien numéro ?
Comme ça je vais pouvoir essayer sur mon fichier de base si cela fonctionne merci encore pour votre aide
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
Bonjour à tous
lennyg à dit:
c'est dommage que powerquery ne détecte pas automatiquement les liens il suffirait qu'il ajoute la fonction quand la case est au format lienhypertexte
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Classeur(4).xlsm
    85.5 KB · Affichages: 10
Vote positif 0 Vote négatif
Solution

Discussions similaires

J
  • Résolu(e)
Power BI Import fichier excel 2021avec requêtes power query dans Power Bi
Réponses
1
Affichages
402
jozerebel
J
L
  • Résolu(e)
Microsoft 365 Cumul progressif en PowerQuery
Réponses
7
Affichages
594
oguruma
oguruma
D
  • Question
Microsoft 365 Changement lien hypertexte en fonction nom feuille Excel
Réponses
1
Affichages
834
gbinforme
G
A
  • Résolu(e)
Microsoft 365 Excel 365 x Power Query : suivi campagnes promotionnelles
Réponses
4
Affichages
868
Atsuki
A
GADENSEB
  • Question
Microsoft 365 Powerquery - si utilise TCD les requêtes se multiplient
Réponses
6
Affichages
1 K
chris
chris
A
  • Question
Power Query Combiner plusieurs requêtes en 1 seule
Réponses
6
Affichages
4 K
AlexisSI
A
P
  • Question
Microsoft 365 Power Query: répartir les fichiers sources pour éviter plantages PC
Réponses
5
Affichages
2 K
merinos-BernardEtang
merinos-BernardEtang
F
  • Résolu(e)
XL 2019 Power Query - Comment formater un fichier TXT
2
Réponses
19
Affichages
3 K
Flx1er
F
B
  • Question
Power Query Conserver les liens hypertextes
Réponses
13
Affichages
9 K
Hasco
Hasco
Usine à gaz
  • Question
Microsoft 365 Power Query : lister des fichiers
Réponses
7
Affichages
1 K
Usine à gaz
Usine à gaz

Membres actuellement en ligne

12 membres et 100 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 182
Membres
112 677
dernier inscrit
Justine11