Discussion :

[SBDR2017]

Bonjour à tous/toutes !

Comme précisé dans l'intitulé, j'ai réalisé une requête SQL via l'outil (sans passer par la partie VBA) pour récupérer une feuille "STOCK" d'un autre classeur qui sera utilisé en VBA après ! L'avantage de cette méthode est que les modifications sont gardées dans les deux sens via l'actualisation... Cependant la "source" comprend un tableau avec des liens hypertexte et après importation et/ou actualisation... SURPRISE: les cellules sont exportées sous format texte, sans les liens.

En jetant un oeil ci dessous vous pourrez observer que le problème serait le "type" de {""Lien vers fichier"", type text} et {""Lien vers dossier"", type text}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub Partage()
'
' Partage Macro
'
 
'
    ActiveWorkbook.Queries.Add Name:="STOCK_A", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""\\dsb-tchnovts\7 - Espace Individuel\Brot\VBA\3 - Recherche_Bibliothèque\Recherche_Bibliothèque_V1.23.xlsm""), null, true)," & Chr(13) & "" & Chr(10) & "    STOCK_A_Sheet = Source{[Item=""STOCK_A"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""En-têtes promus"" = Table.PromoteHeaders(STOCK_A_Sheet, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.Tra" & _
        "nsformColumnTypes(#""En-têtes promus"",{{""Noms"", type text}, {""Date de modification"", type datetime}, {""Lien vers fichier"", type text}, {""Lien vers dossier"", type text}, {""QTE#(lf)EN STOCK"", type any}, {""#(lf)Auteur #(lf)dernière sortie / entrée#(lf)"", type any}, {""Projet"", type any}, {""Qte#(lf) Avant modification"", type any}, {""Commentaire(s)"", ty" & _
        "pe any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    Sheets.Add After:=ActiveSheet
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=STOCK_A;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [STOCK_A]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "STOCK_A"
        .Refresh BackgroundQuery:=False
    End With
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub

Auriez-vous une idée pour conserver le format hypertexte? Aucun soucis si la manip' se tourne vers un code VBA

Merci d'avance

[Pierre Fauconnier]

Salut.

Je ne comprends pas ce que tu veux dire par "mise à jour dans les deux sens", car la requête Power Query que tu as proposée ne permet pas la mise à jour "dans les deux sens"... Peut-être as-tu du code pour renvoyer "dans l'autre sens"? Bref, ce n'est pas le sujet ici.


A ma connaissance, les requêtes d'importation importent la donnée qui correspond en gros à cellule.Value pour tenter de coller au mieux au type de données. La deuxième étape "adapte" la valeur récupérée et c'est ce que tu constates avec "type text"... Jamais tu ne récupèreras le lien hypertexte d'une cellule par ce biais, car c'est une propriété de la cellule que Power Query n'est pas capable de ramener. Tu dois donc reconstruire ce lien après importation.

• Si la valeur récupérée correspond au lien, ce n'est pas un problème, car tu peux mettre la colonne désirée au style de cellule "hypertexte";
• C'est à mon avis impossible par Power Query si le lien est "masqué" dans la cellule source et ne correspond pas à ce qui est affiché, car Power Query ne connaîtra que .Value de la source pas .Hyperlinks(1);
• Via Power Pivot, tu pourrais passer la colonne au data type "Web URL", à nouveau lorsque le lien correspond au texte qui est récupéré.

Si les liens sont masqués derrière du texte, je ne vois pas d'autre solution qu'une importation classique en VBA qui prendrait en charge la copie des liens hypertextes (copier-coller mais attention aux scories) ou analyse des cellules censées contenir un hyperlien pour le récupérer et le restaurer dans la cible.

[SBDR2017]

Visiblement je n'avais pas compris le principe ! J'essaie de passer par une MAJ via code VBA et je vous redis quoi