Utiliser la commande ThisWorkbook.Path dans mon code

Version imprimable

Bonjour,

J'aimerais utiliser la commande ThisWorkbook.Path dans mon code, mais je n'y arrive pas...

Code:

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
31
With Sheets("Test_Access").ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\Users\Propriétaire\Desktop\Liste des clubs 2017-2018." _
        , _
        "accdb;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Pa" _
        , _
        "ssword="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tr" _
        , _
        "ansactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLED" _
        , _
        "B:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Comple" _
        , _
        "x Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validati" _
        , "on=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 = _
        ThisWorkbook.Path & "Liste des clubs 2017-2018" & ".accdb"
        .ListObject.DisplayName = "Tableau_Liste_des_clubs_2017_2018.accdb"
        .Refresh BackgroundQuery:=False
    End With

Et pourtant, cela fonctionne à cet endroit ?...

Merci d'avance pour votre aide :-)

15/06/2017, 12h43
kiki29
Salut,

Citation:

Et pourtant, cela fonctionne à cet endroit ?...

Cela m'étonnerait
mais plutôt

Code:

ThisWorkbook.Path & "\" & "Liste des clubs 2017-2018" & ".accdb"

sinon
Code:

1 2 3 4 5 6 Option Explicit Dim sChemin as String ... sChemin = ThisWorkbook.Path & "\" & "Liste des clubs 2017-2018" & ".accdb" ...

Bonjour,

Merci pour la réponse, mais cela ne fonctionne pas, le code devient rouge...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With Sheets("Test_Access").ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=ThisWorkbook.Path & "\" & "Liste des clubs 2017-2018" & "." _
        , _
        "accdb;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Pa" _
        , _
        "ssword="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tr" _
        , _
        "ansactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLED" _
        , _
        "B:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Comple" _
        , _
        "x Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validati" _
        , "on=False"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("Requête - Liste Clubs")
        .RowNumbers = False
...

Le problème est à mon avis au niveau de la syntaxe... mais ou... J'ai l'impression qu'il prend la commande "ThisWorkbook.Path" pour du texte... :-/

15/06/2017, 13h00
Invité

rebonjour,

Code:

"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & ThisWorkbook.Path & "\Liste des clubs 2017-2018"
15/06/2017, 13h39
CrasherSEP

Super, merci :-)

Bonjour,

Cela fonctionne très bien, maintenant j'aimerais au lieu de mettre : ThisWorkbook.Path + nom du fichier, mettre une variable qui contient la valeur de ThisWorkbook.Path + non du fichier...

Exemple : remplacer dans mon exemple :
Code:

1 2 3 4 With Sheets("Test_Access").ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=ThisWorkbook.Path & "\" & "Liste des clubs 2017-2018" & "." _ , _ "accdb;Mo
par :

monfichier = ThisWorkbook.Path + nom du fichier.accdb

et ensuite :
Code:

1 2 With Sheets("Test_Access").ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=monfichier;Mo...
Mais je n'y arrive pas...

Grand merci d'avance pour votre aide

Bonjour,

Code:

1
2
3
4
5
6
dim monfichier AS  String
monfichier = ThisWorkbook.Path & "\Liste des clubs 2017-2018.accdb"

With Sheets("Test_Access").ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & monfichier & ";Mo...

16/06/2017, 14h17
CrasherSEP

Merci... :D

La suite...

J'utilise la commande : Application.GetOpenFilename pour aller chercher mon fichier (*.accdb)...

J'attribue la valeur à une variable : monfichier (exemple de valeur : C:\Temp\Liste des clubs et joueurs 2017 2018.accdb)

Ensuite j'aimerais que ce code fonctionne mais j'ai toujours un problème au niveau (rouge)

Pourriez-vous m'aider

Ps : Je ne comprends pas vraiment cette commande (elle a été enregistrée via l'option Excel)...
Code:

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 Sheets("Test_Access_Clubs").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:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Pa" _ , _ "ssword="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tr" _ , _ "ansactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLED" _ , _ "B:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Comple" _ , _ "x Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validati" _ , "on=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" .Refresh BackgroundQuery:=False End With
NB : Pourriez-vous m'expliquer pourquoi de temps en temps lorsque j'enregistre en VBA, il arrive qu'il ajoute un chiffre à la fin ?
Exemple : .ListObject.DisplayName = "Tableau_Liste_des_clubs_et_joueurs_2017_2018.accdb2"

Encore merci pour votre aide :-)