IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Requete Power Query


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Technicien réseau
    Inscrit en
    Août 2013
    Messages
    186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Technicien réseau
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Août 2013
    Messages : 186
    Par défaut Requete Power Query
    Bonsoir à tous
    Etant novice et malgré mes recherches je vous demande de l'aide, mon problème est :
    J'ai un dossier avec deux fichiers excel, l'un des fichier me sert de source.
    Malheureusement quand je copie mon dossier vers un autre dossier je refais le chemin de la source NORMAL.
    Pour info les fichiers seront toujour dans le mëme dossier.
    J'ai trouvé un code pour Word ( publipostage) que j'essaye de mettre pour EXCEL ( désole pour les erreurs )

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim chemin As String
    chemin = ThisWorkbook.Path
    ActiveDocument.MailMerge.OpenDataSource Name:=chemin & "\Complet.xls", _
            SQLStatement:="SELECT * FROM `Tranchee$`", SQLStatement1:="", SubType:= _
            wdMergeSubTypeAccess
    Merci à vous

  2. #2
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 173
    Billets dans le blog
    2
    Par défaut
    Bonjour,

    Le publipostage est un outil propre à Word, n'existe pas en Excel, et n'est pas équivalent à Powerquery
    D'autre part ActiveDocument ne fonctionnera que dans Word, car un fichier Word est un document, alors qu'un fichier Excel est un classeur (ActiveWorkbook ou Thisworkbook)

    Le mieux serait d'enregistrer une macro dans Excel, de faire le lien avec tes données du classeur externe avec Powerquery, et de partir du code généré, si ton code nécessite de refaire le lien à chaque fois

  3. #3
    Membre confirmé
    Homme Profil pro
    Technicien réseau
    Inscrit en
    Août 2013
    Messages
    186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Technicien réseau
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Août 2013
    Messages : 186
    Par défaut
    Bonjour tototiti2008
    Merci pour ta réponse, je vais partie sur une macro pour simplifier de plus a l'avenir j'aurais plusieurs fichiers du même principe.
    Depuis j'ai trouvé sur le site un code que j'ai commencé a trituer

    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
    Sub RequeteClasseurFerme_Excel2007()
        Dim Cn As ADODB.Connection
        Dim Fichier As String
        Dim NomFeuille As String, texte_SQL As String
        Dim Rst As ADODB.Recordset
        Dim chemin As String
        chemin = ThisWorkbook.Path
     
         'Définit le classeur fermé servant de base de données
        Fichier = chemin & "\complet.xlsx"
        'Nom de la feuille dans le classeur fermé
        NomFeuille = "Tranchee"
     
        Set Cn = New ADODB.Connection
     
        '--- Connexion ---
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open
        End With
        '-----------------
        '... la requête ...
        '
         '--- Fermeture connexion ---
        Cn.Close
        Set Cn = Nothing
     
    End Sub
    Si cela ne te dérange pas, peux tu me dire si je suis dans la bonne direction
    Merci de ton retour

  4. #4
    Membre expérimenté Avatar de lucasgaetan
    Homme Profil pro
    dessinateur BE
    Inscrit en
    Août 2011
    Messages
    175
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : dessinateur BE
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2011
    Messages : 175
    Par défaut
    Bonjour py86acces,

    Perso je fais des requêtes via IBM mais je ne pense pas qu'il y est de grosses différences sur le principe.
    Voila ce que j'utilise:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim Con As New ADODB.Connection
    Dim txtc As String
    txtc = "provider=IBMDA400;data source=" & maSource & "; ;;"
    Con.Open txtc
    En adaptant pour ton cas ça pourait donner:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    '--- Connexion ---
    Dim Con As New ADODB.Connection
    Dim txtc As String
    txtc = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"
    Con.Open txtc
    '-----------------
    à tester
    et je suis avec ma requete
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim Cmd As New ADODB.Command
    Set Cmd.ActiveConnection = Con
    Cmd.CommandText = maRequete
    Dim Rs As ADODB.Recordset
    Set Rs = Nothing
    Set Rs = Cmd.Execute()

  5. #5
    Membre confirmé
    Homme Profil pro
    Technicien réseau
    Inscrit en
    Août 2013
    Messages
    186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Technicien réseau
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Août 2013
    Messages : 186
    Par défaut
    Bonjour
    Merci lucasgaetan
    Désolé pour ma réponse tardive
    Je regard cela
    Merci encore

  6. #6
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 173
    Billets dans le blog
    2
    Par défaut
    Bonjour,

    Je ne comprend pas
    Je supposais que si tu demandais une macro qui faisait une requête Powerquery sur les données d'un autre classeur, la base serait d'essayer d'enregistrer une macro pendant la mise en place d'une requête Powerquery sur une autre classeur
    Non ?

    Voilà ce que ça donne chez moi (à adapter)

    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
    Sub Macro2()
    '
    ' Macro2 Macro
    '
     
    '
        ActiveWorkbook.Queries.Add Name:="Export (2)", Formula:= _
            "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""C:\Users\Toto\Desktop\Source.xlsx""), null, true)," & Chr(13) & "" & Chr(10) & "    Export_Sheet = Source{[Item=""Export"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""En-têtes promus"" = Table.PromoteHeaders(Export_Sheet, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(#""En-têtes promus"",{{""Champ1 "", type text}" & _
            ", {""Column2"", type any}, {""Column3"", type any}, {""Column4"", type any}, {""Column5"", type any}, {""Column6"", type any}, {""Column7"", type any}, {""Column8"", type any}, {""Column9"", type any}, {""Column10"", type any}, {""Column11"", type any}, {""Column12"", type any}, {""Column13"", type any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
        ActiveWorkbook.Worksheets.Add
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
            "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Export (2)"";Extended Properties=""""" _
            , Destination:=Range("$A$1")).QueryTable
            .CommandType = xlCmdSql
            .CommandText = Array("SELECT * FROM [Export (2)]")
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .ListObject.DisplayName = "Export__2"
            .Refresh BackgroundQuery:=False
        End With
    End Sub

  7. #7
    Membre confirmé
    Homme Profil pro
    Technicien réseau
    Inscrit en
    Août 2013
    Messages
    186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Technicien réseau
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Août 2013
    Messages : 186
    Par défaut
    Bonjour et merci pour ta réponse tototiti2008
    Désolé pour mon retour tardive ( pas possible avant ) et mille excuse si je n'ai pas été clair.
    Oui, j'utilise power query et ma requete me tranforme mes données et cela marche bien.
    Je voulais savoir si il y avait un moyen ( quelque soit la methode ) de dire que le fichier de données se trouvera toujours dans le même dossier que le fichier de ma requète.
    Juste pour éviter de redonner le chemin de la base et les erreurs a chaque fois que mon dossier est copier ou déplacer.
    Merci pour ton retour.

Discussions similaires

  1. [XL-365] Filtre variable de lignes sur requete Power Query
    Par ChristianBosch dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/09/2021, 16h49
  2. Réponses: 6
    Dernier message: 03/06/2021, 15h24
  3. [PHP 5.3] Requete LDAP Query en anonyme
    Par gnoupix dans le forum Langage
    Réponses: 2
    Dernier message: 30/07/2011, 12h30
  4. Requete Update Query
    Par trikker dans le forum Débuter
    Réponses: 2
    Dernier message: 11/06/2009, 11h10
  5. [E-03] Integrer une requete Microsoft query dans VBA Excel
    Par Mimosa777 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 13/11/2008, 14h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo