Excel + SQL + concaténéation de colonne

[DeeJoh]

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 :

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

 

[MichelXld]

bonjour

j'espere que cet exemple pourra t'aider

il faut utiliser UPDATE au lieu de SELECT et une synthaxe du type

rSQL = 'UPDATE [A$] SET [A$].cycle = [A$].CDCOURTI+[A$].[CDCYCREC]'



Private Sub concatenationDeuxColonnesClasseurFerme()
Dim Conn As ADODB.Connection
Dim Fichier As String, Direction As String, rSQL As String

Direction = ThisWorkbook.Path
Fichier = 'OUTIL HD TRAVAIL.xls'

Application.ScreenUpdating = False

Set Conn = New ADODB.Connection
With Conn
.Provider = 'Microsoft.Jet.OLEDB.4.0'
.ConnectionString = 'Data Source=' & Direction & '\\' & Fichier & _
';Extended Properties=Excel 8.0;'
.Open
End With

rSQL = 'UPDATE [A$] SET [A$].cycle = [A$].CDCOURTI+[A$].[CDCYCREC]'
Conn.Execute rSQL

Conn.Close
Application.ScreenUpdating = True
End Sub


bonne soirée
MichelXld