Discussion :

[CrasherSEP]

Bonjour,

J'aimerais importer le résultat d'une requête Access dans une feuille Excel définie ou Sheet en cours...

L'importation se fait du fichier Excel !

J'ai enregistré une macro via l'option d'Excel et effectué quelques modifications pour arriver au code suivant :

Il fonctionne très bien tant que je ne bouge pas le fichier Access de place, mais cela fonctionne si je change l'emplacement de tout le répertoire !... ça je ne me l'explique pas...

Exemple :
* J'ai un fichier Excel : c://Test/excel.xlsx
* J'ai un fichier Access avec réquête... : c://Test/access.accdb

Je lance le code vba et cela fonctionne

* Maintenant je change l'emplacement du fichier Access : c://Test/MaJ/access.accdb

Et là, erreur, il ne trouve plus le fichier Access ! Il veut : c://Test/access.accdb

Pourtant vu mon code cela devrait fonctionner, non ?

Ps : monfichier = le chemin complet du fichier Access (j'utilise l'explorateur [Application.GetOpenFilename] pour aller chercher le lien).

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
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=  & monfichier &  ;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:Sy" _
        , _
        "stem database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mo" _
        , _
        "de=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Creat" _
        , _
        "e System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without " _
        , _
        "Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        ), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("Requête - Liste Clubs")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = monfichier
        '.ListObject.DisplayName = Tableau_Liste_des_clubs_et_joueurs_2017_2018.accdb_1
        .Refresh BackgroundQuery:=False
    End With

ps : je désactive cette ligne ['.ListObject.DisplayName = Tableau_Liste_des_clubs_et_joueurs_2017_2018.accdb_1], car elle ne me semble pas utile, cela fonctionne sans...

Avez-vous une idée au problème, existe-t-il un code VBA plus simple ?...

Merci d'avance

[CrasherSEP]

Le problème (à mon avis) est au niveau de cette ligne : Data Source= & monfichier & ;Mode...

Car il suffit de je remplace "monfichier" par C:\Users\Propriétaire\Desktop\Version 11\MaJ\Liste des clubs et joueurs 2017-2018.accdb et cela fonctionne sans problème...

Une idée...

Merci d'avance :-)

[CrasherSEP]

En résumé, la variable "monfichier" semble être prise pour un mot. "monfichier"...