Discussion :

[CrasherSEP]

Bonjour,

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

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

[kiki29]

Salut,

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

Cela m'étonnerait
mais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CrasherSEP]

Bonjour,

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

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
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... :-/

[Invité]

rebonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & ThisWorkbook.Path & "\Liste des clubs 2017-2018" 

[CrasherSEP]

Super, merci :-)

[CrasherSEP]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[CrasherSEP]

Merci...

[CrasherSEP]

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 :

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