Discussion :

[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 :

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

[Megaxel]

J'ai 3 questions:
1°) Où définis-tu les colonnes à utiliser (B, H et AT)
2°) Où dis-tu que le résultat de ton SELECT doit être écrit quelquepart
3°) C'est quoi, l'intérêt de faire du SQL? Une simple manipulation des données irait plus vite.

[Deejoh]

Alors :

1° SELECT [CDCOURTI]+[CDCYCREC] AS [cycle] FROM [A$]

CDCOURTI ==> B
CDCYCREC ==> H
Cycle ==> AY

2° Avec le AS non ?

3° L'intérêt de faire du sql réside dans la rapidité d'exécution mais aussi dans le fait que je doive présenter ce projet à un jury et l'utilisation de sql dans ecel me semble interressant.

[SilkyRoad]

bonsoir

tu peux tester cette procédure ...;o)

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
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 soiree
michel

[Deejoh]

Merci pour ta réponse


Mon classeur est ouvert celà a t-il une incidence sur la procédure ?

[SilkyRoad]

bonsoir

si ton classeur est ouvert ,je ne vois pas l'interet d'utiliser la methode ADO ...


bonne soiree
michel

[Deejoh]

l'intérêt est la rapidité d'exécution


Sinon lorsque que je copie les données d'un recordset avec copyfromrecordset est il possible de coller dans des colonnes bien précises et non contigues ?

Merci

[SilkyRoad]

bonsoir

en utilisant CopyFromRecordset je ne pense pas ( mias je peux me tromper)


par contre tu peux boucler sur les champs de ton Recordset

Rs.Fields....

et transferer les données de chaque champ dans une colonne diffrente de ta feuille


bonne soiree
michel