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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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