Discussion :

[py86acces]

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

[tototiti2008]

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

[py86acces]

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

[lucasgaetan]

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()

[py86acces]

Bonjour
Merci lucasgaetan
Désolé pour ma réponse tardive
Je regard cela
Merci encore

[tototiti2008]

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

[py86acces]

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.