D
DeeJoh
Guest
Bonjour à tous,
voilà j'ai besoin que dans la colonne AY soient concaténés les colonnes B et H j'ai donc fait ça :
L'execution ne créé aucune erreur seulement rien ne se met dans la colonne cycle (alias AY)...
Quelqu'un peut il m'aider ?
Merci
voilà j'ai besoin que dans la colonne AY soient concaténés les colonnes B et H j'ai donc fait ça :
Code:
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
L'execution ne créé aucune erreur seulement rien ne se met dans la colonne cycle (alias AY)...
Quelqu'un peut il m'aider ?
Merci