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?