[VBA]SQL dans Excel manipulation de données

Version imprimable

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:

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

06/02/2006, 18h21
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.
06/02/2006, 18h58
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.

bonsoir

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

Code:

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

06/02/2006, 22h07
Deejoh

Merci pour ta réponse :)

Mon classeur est ouvert celà a t-il une incidence sur la procédure ?
06/02/2006, 22h21
SilkyRoad

bonsoir

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

bonne soiree
michel
08/02/2006, 11h15
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
08/02/2006, 17h56
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