Discussion :

[ledawa]

Bonjour
je veux faire un tableau dans Excel 2007 qui comprendras des donné à insérer dans une base de donnée. j'ai donc créer un fichier excel avec un bouton.
je dois mettre une macro derriere ce bouton pour lui demander d'envoyer les données dans ma base de données et effacer le contenu du tableau sans toucher à la première ligne.

le probleme c'est que je ne connait pas vb.

pouvez vous m'aider?

[thom07lamy]

Bonjour,

je te propose le code suivant:

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