Microsoft 365 accès requête via un Bp

jeffe · 16 Novembre 2023

Bonjour le forum,
je viens de créer une requête sur un fichier .txt, qui fonctionne bien.
ma source de donnée change régulièrement (emplacement et nom) par contre la structure ne change jamais.
je sais changer la source de moi meme, mais je souhaiterais si c'est possible, à l'ouverture de mon fichier comportant la requête, que Excel me demande l'emplacement de la source et actualise le fichier.
Est possible (je viens d'essayer avec enregistreur de macro, sans resultats)

jeffe · 8 Décembre 2023

mromain à dit:
Bonjour @jeffe,

il s'agit d'un requête de paramètre. Tu trouveras ici la procédure pour la créer.

A+

Bonjour @mromain, le forum,
merci bqp pour ce lien,
bon we à vous

dysorthographie · 16 Novembre 2023

Bonjour,
J'ai également essayé de travailler sur ton fichier sans même avoir de piste pour trouver son emplacement.

Pour ce qui concerne sa structure pas ça ne devrait pas poser de problèmes.

jeffe · 20 Novembre 2023

Bonjour le forum, dysothographie,
je viens de comprendre, désolé.
ci joint fichier txt et la requête.
mon fichier txt aura toujours la même structure, et même extension, mais son nom et son emplacement vont changer régulièrement. en espérant avoir été suffisamment clair.
merci

jeffe · 28 Novembre 2023

Bonjour le forum, j'avance petit à petit, j'arrive à choisir et récupérer le nom de mon fichier à requêter, mais je n'arrive pas à mettre dans ma requête l'emplacement du fichier, une idée?
Merci

mromain · 28 Novembre 2023

Bonsoir jeffe, dysorthographie, le forum,

Ci-joint une solution possible. J’ai :

Rajouté un paramètre Power Query pour gérer l’emplacement du fichier source (PathTxtSourceFile)
Renommé ta requête d’extraction en QRY_ExtractTxtSourceFile
Retouché l’étape d’ouverture du fichier texte pour prendre en compte le paramètre PathTxtSourceFile

Rajouté le code VBA pour rafraîchir les données :

VB:

Private Sub Btn_Refresh_Click()
Dim l_s_pathTxtSourceFile As String
    
    'demander le fichier texte à importer
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Fichier texte", "*.txt"
        .Show
        'si un fichier a bien été sélectionné
        If .SelectedItems.Count > 0 Then
            'récupérer le path
            l_s_pathTxtSourceFile = .SelectedItems(1)
            'mettre à jour e paramètre power query
            ThisWorkbook.Queries("PathTxtSourceFile").Formula = """" & l_s_pathTxtSourceFile & """ meta [IsParameterQuery=true, Type=""Text"", IsParameterQueryRequired=true]"
            'raffraichir la requête
            ThisWorkbook.Queries("QRY_ExtractTxtSourceFile").Refresh
        End If
    End With
End Sub

A+

jeffe · 29 Novembre 2023

Bonjour le forum, mromain, merci beaucoup.
Je ne vais pas pouvoir regarder cette semaine ta solution, mais merci beaucoup,, je vais essayer de comprendre comment tu as passé ce paramètre dans la requête.
Merci

jeffe · 1 Décembre 2023

Bonjour mromain, le forum,
Bravo et super boulot, pourrais tu m'expliquer comment tu as créé la requête (PathTxtSourceFile)
Merci beaucoup

mromain · 8 Décembre 2023

Bonjour @jeffe,

il s'agit d'un requête de paramètre. Tu trouveras ici la procédure pour la créer.

A+

jeffe · 8 Décembre 2023

mromain à dit:
Bonjour @jeffe,

il s'agit d'un requête de paramètre. Tu trouveras ici la procédure pour la créer.

A+

Bonjour @mromain, le forum,
merci bqp pour ce lien,
bon we à vous

Microsoft 365 accès requête via un Bp

jeffe

XLDnaute Impliqué

jeffe

dysorthographie

XLDnaute Accro

jeffe

XLDnaute Impliqué

Pièces jointes

jeffe

XLDnaute Impliqué

Pièces jointes

mromain

XLDnaute Barbatruc

Pièces jointes

jeffe

XLDnaute Impliqué

jeffe

XLDnaute Impliqué

mromain

XLDnaute Barbatruc

jeffe

XLDnaute Impliqué

Discussions similaires