Transfert des données vers une base SQL d'un code VBA

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 le 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:

Option Explicit

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