Microsoft 365 accès requête via un Bp

dysorthographie

XLDnaute Accro

• 16 Novembre 2023

• #2

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.

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 20 Novembre 2023

• #3

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

 

Pièces jointes

• requete TOTO-Zenon.xlsx

  24.7 KB · Affichages: 3
• DJF1.txt

  10.5 KB · Affichages: 2

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 28 Novembre 2023

• #4

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

 

Pièces jointes

• requete TOTO-Zenon_v2.xlsm

  41.1 KB · Affichages: 0
• DJF1.txt

  10.5 KB · Affichages: 1

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 28 Novembre 2023

• #5

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+

 

Pièces jointes

• Exemple.xlsm

  32.8 KB · Affichages: 2

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 29 Novembre 2023

• #6

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

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 1 Décembre 2023

• #7

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 8 Décembre 2023

• #8

Bonjour @jeffe,

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

A+

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 8 Décembre 2023

• #9

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution