Excel VBA / Exporter données Excel vers SQL Server

Bonjour,

Voila, j'aimerais créer un formulaire dans Excel(userform) et lorsque l'utilisateur aurait terminé de remplir le formulaire que les données ce classe sur une feuille Excel et par le fait même ce transfert vers une table dans SQL Server.

J'ai trouvé un code VBA sur internet qui pourrait possiblement m'aidé, mais je voulais valider avant si quelqu'un d'entre vous aurait déjà travailler avec ce genre de fichier.

voici le code en question:

Sub ADOExcelToSQLServer() 
' Carl Mackinder for OzGrid - SQL Server Connection
' Send data to SQL Server
' This code loads data from an Excel Worksheet to an SQL Server Table
' Data should start in column A and should be in the same order as the server table
' Autonumber fields should NOT be included
'
' FOR THIS CODE TO WORK
' In VBE you need to go Tools References and check Microsoft Active X Data Objects 2.x library


Dim Cn As ADODB.Connection 
Dim ServerName As String 
Dim DatabaseName As String 
Dim TableName As String 
Dim UserID As String 
Dim Password As String 
Dim rs As ADODB.Recordset 
Dim RowCounter As Long 
Dim ColCounter As Integer 
Dim NoOfFields As Integer 
Dim StartRow As Long 
Dim EndRow As Long 
Dim ws As Worksheet 
Set rs = New ADODB.Recordset 


ServerName = "YourServerName" ' Enter your server name here
DatabaseName = "YourDatabaseName" ' Enter your database name here
TableName = "YourTableName" ' Enter your Table name here
UserID = "" ' Enter your user ID here
' (Leave ID and Password blank if using windows Authentification")
Password = "" ' Enter your password here
NoOfFields = 2 ' Enter number of fields to update (eg. columns in your worksheet)
StartRow = 2 ' Enter row in sheet to start reading records
EndRow = 6 ' Enter row of last record in sheet
Set ws = ThisWorkbook.Worksheets("sheet1") ' Change this to the name of the sheet with the data

Set Cn = New ADODB.Connection 
Cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & _ 
";Uid=" & UserID & ";Pwd=" & Password & ";" 

rs.Open TableName, Cn, adOpenKeyset, adLockOptimistic 

For RowCounter = StartRow To EndRow 
rs.AddNew 
For ColCounter = 1 To NoOfFields 
rs(ColCounter) = ws.Cells(RowCounter, ColCounter) 
Next ColCounter 
Next RowCounter 
rs.UpdateBatch 

' Tidy up
rs.Close 
Set rs = Nothing 
Cn.Close 
Set Cn = Nothing 
End Su

Merci à l'avance pour votre aide!