Private Sub ProcConcatenation()
Application.ScreenUpdating = False
'Déclaration de la connexion
Dim Conn As ADODB.Connection
Dim Fichier As String, Direction As String, rSQL As String
Direction = ThisWorkbook.Path
Fichier = 'OUTIL HD TRAVAIL.xls'
'Instanciation de la connexion
Set Conn = New ADODB.Connection
'Paramétrage & Ouverture
With Conn
.Provider = 'Microsoft.Jet.OLEDB.4.0'
.ConnectionString = 'Data Source=' & Direction & '\\' & Fichier & _
';Extended Properties=Excel 8.0;'
.Open
End With
'Insertion de la requête SQL dans rSQL
rSQL = 'SELECT [CDCOURTI]+[CDCYCREC] AS [cycle] FROM [A$]'
Conn.Execute rSQL
'Fermeture de la connexion
Conn.Close
Application.ScreenUpdating = True
End Sub