Discussion :

[moi244]

Bonjour,
j'aimerais me connecter à une base SQL que j'ai déjà enregistrée dans mon fichier Excel, J'ai fais plusieurs recherches sur internet et F1, mais rien qui qui est lié directement à mon problème Developpez
et ici


voici ce que je fais manuellement,

1. Données
2. Connections Existante
3. Rechercher
4. et là je vais parcourir mon fichier de connexion.

J'ai essayé de faire ceci avec Record Macro, mai s quand j'essaie d'exécuter cette macro enregistrée, ça ne fonctionne pas avec le message d'erreur '9'

Fichier = "C:\Documents and Settings\nom_utilisateur\Mes documents\Mes sources de données\dataBase Table1.odc"
ThisWorkbook.Connections.AddFromFile (Fichier)


'

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
  With ActiveWorkbook.Connections(Fichier). _
        OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array(macommande)
        .CommandType = xlCmdSql
        .Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=masource;Use Procedure for Pre" _
        , _
        "pare=1;Auto Translate=True;Packet Size=4096;Workstation ID=monordi;Use Encryption for Data=False;Tag with column collation whe" _
        , "n possible=False;Initial Catalog=moncatalog")
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
        .ServerFillColor = False
        .ServerFontStyle = False
        .ServerNumberFormat = False
        .ServerTextColor = False
    End With
    '..
    '..
    '..
    '...etc.
 
End Sub

Peut-on automatiser ces étapes?

[Denis la Malice]

Bonjour,
ce que tu cherches à faire n'est pas clair.
Soit tu utilises les QueryTables et tu déclares tes connexions (par exemple, via un fichier ODC) ce qui est adapté à une déclaration manuelle de connexion, soit tu utilises le modèle ADO et tu gère tes requêtes de façon dynamique en VBA.

Connais-tu ce site :
http://itknowledgeexchange.techtarge...o-querytables/
J'y ai trouvé tout ce qu'il me fallait quand j'ai commencé à titiller SQL à partir d'Excel.