[XL-2007] macro sql server

Bonjour,

je te propose le code suivant:

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
32
33
34
35
36
37
38
39
 
Dim ma_requete As String
 
 
'Déclarations des objets base de donnée
Dim conn_BDD As ADODB.Connection
Dim cmd_BDD As ADODB.Command
 
Set conn_BDD = New ADODB.Connection
'Initialisation de la chaîne de connexion à la base de données
conn_BDD.ConnectionString = "Driver={SQL Server};Server=MonServeurSQL;" 'Là tu mets le nom de ton serveur SQL
conn_BDD.ConnectionString = conn_BDD.ConnectionString & "Database=MaBase;Trusted_Connection=yes;" 'Là tu mets le nom de ta BDD
conn_BDD.ConnectionString = conn_BDD.ConnectionString & "Uid=MonDomaine\MonLogin;Pwd=MonMdP;" 'Là tu mets tes domaines, login et mot de passe
'Connexion à la base de données
conn_BDD.Open
 
Set cmd_BDD = New ADODB.Command
'On rattache l'objet Command à l'objet Connection
cmd_BDD.ActiveConnection = conn_BDD
 
'Boucle sur les lignes du tableau
For i = nb_lignes to 2 Step -1
      'Prépare la requête
      ma_requete = "INSERT INTO MaTable (Champ1, Champ2, Champ3) VALUES ("
      'Boucle sur les colonnes pour affecter les valeurs dans la requête
      For j = 1 to nb_colonnes
            ma_requete = ma_requete & "'" & ThisWorkbook.Sheets("MaFeuille").Cells(i, j).Value & "'"
            If j = nb_colonnes Then
                  ma_requete = ma_requete & ")"
            Else
                  ma_requete = ma_requete & ","
            End If
      Next j
      'Affecte et exécute la requête
      cmd_BDD.CommandText = ma_requete
      cmd_BDD.Execute
      'Supprime la ligne
      ThisWorkbook.Sheets("MaFeuille").Rows(i).Delete
Next i

Pour que ce code puisse fonctionner, il faut que ta base de données soit sur SqlServer, et que tu aies ajouté les références "Microsoft ActiveX Data Objets..."

Ah et aussi que les titres du tableau soit sur ta ligne 1.

Voilà...