Mot de passe et QueryTables.Add

Version imprimable

Bonjour

Dans mon pg , je fais appel à des données externes que j'importe grâce à la méthode querytables. La donnée externe est un fichier excel tout simple (sans mot de passe) qui se trouve dans le même répertoire que mon fichier principal.
Sur mon pc cela marche sans problème
Si j'installe l'ensemble fichier principal, fichier des données externes et bien sûr mon programme, microsoft Jet ole db me demande un mot de passe ...:?
Comment procéder ?

voici mon code

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
 
Worksheets("PARAMETERS").Activate
     With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & monFicEntier & "" _
        , _
        ";Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB" _
        , _
        ":System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Lockin" _
        , _
        "g Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:C" _
        , _
        "reate System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact With" _
        , "out Replica Repair=False;Jet OLEDB:SFP=False"), Destination:=Range("A24"))
        .CommandType = xlCmdTable
        .CommandText = Array("'Carnet Gamme$'")
        .Name = "Win Cnt UK_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = monFicEntier
        .Refresh BackgroundQuery:=False
    End With

Je suis bloquée car mon programme devrait être mis en production au plus tard mardi et je ne sais pas m'en sortir.
Merci d'avance pour votre aide

ValCou

26/08/2009, 13h09
Valcou

Je n'ai jamais trouvé la réponse à mon problème et donc j'ai utilisé une méthode moins propre peut être mais plus efficace:
ouvrir mon 2ème fichier excel, copier, fermer mon fichier excel puis coller dans le fichier initial

A tout hasard et pour information si l'un d'entre vous avait un début de réponse je suis preneur

A bientôt

Valcou
26/08/2009, 15h17
La Zélie

Citation:

Envoyé par Valcou

Bonjour

Dans mon pg , je fais appel à des données externes que j'importe grâce à la méthode querytables. La donnée externe est un fichier excel tout simple (sans mot de passe) qui se trouve dans le même répertoire que mon fichier principal.
Sur mon pc cela marche sans problème
Si j'installe l'ensemble fichier principal, fichier des données externes et bien sûr mon programme, microsoft Jet ole db me demande un mot de passe ...:?
Comment procéder ?
ValCou

Je comprends que ton fichier tout simple n'est pas externe;pour moi des données externes ne viennent pas du même répertoire mais de Access, par exemple, Word,internet ou autre.
Je peux me tromper, je ne suis pas très calée ;)

A+