Bonjour à tous,

j'espère que vous allez bien.

Pour la validation de mon stage de fin d'étude je souhaite créer un fichier Excel qui permet de transférer des données d'Excel vers une base qui existe sur SQL server puis les supprimer à l'aide d'un code VBA ( Bouton "Transfert").

Objectif:

-Transférer les données vers la base SQL server

-Supprimer les données qui existe sur Excel.

je serais très reconnaissant si quelqu'un peut m'aider à propos ce sujet.

j'ai trouver un code sur internet pour la connexion entre Excel/SQL server mais comme je n'ai pas d'idée à propos le codage VBA du coup je n'ai pas compris comment le réajuster pour faire le transfert vers ma base SQL.

Le code

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
40
41
42
43
44
45
46
47
Sub Connexion_SQL()
Dim conn As ADODB.Connection
 
Dim RsSelect As New ADODB.Recordset
 
Dim sConnString, sSQL As String
 
On Error GoTo ErreurSQL ' si erreur alors on va dans la section ErreurSQL:
 
' chaine de connexion vers la base de données
 
sConnString = "Provider=SQLOLEDB;Data Source=DESKTOP-0ELQ5BU\TEW_SQLEXPRESS; Initial Catalog=produits;User ID=SIG;Password=MDP_ICI;"
 
' Ouverture de la connexion
 
Set conn = New ADODB.Connection
 
conn.Open sConnString
 
RsSelect.CursorLocation = adUseClient
 
'Encapsulation dans une transaction (très important pour garantir l’intégrité des données en base)
 
conn.BeginTrans
 
' definition de l’ordre SQL
 
sSQL = " SELECT * FROM table "
 
'Execution de l'ordre SQL
 
RsSelect.Open sSQL, conn, adOpenStatic, adLockOptimistic, adCmdText
 
' Pas d’erreur, on valide la transaction
 
conn.CommitTrans
 
GoTo Suite
 
ErreurSQL:
 
conn.RollbackTrans 'la transaction s’est mal passée : on annule tout
 
Suite:
 
conn.Close 'fermeture de la connexion à la base de données
End Sub