bonjour à toute l'équipe,
je veux faire une requete entre un fichier excel fermé et un fichier excel ouvert, est ce que celà est possible?
quand je faut de requetes sur le fichier fermé j'utilse cette connection:
et que je fais des requetes sur le fichier ouvert j'utilse cette connection:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 'Définit le classeur fermé servant de base de données Fichier = Me.TextBox1.Text 'Nom de la feuille dans le classeur fermé NomFeuille = Me.TextBox2.Text '--- Connection --- Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & Fichier & _ ";Extended Properties=""Excel 8.0;HDR=yes""" .Open End With
mais le probleme c que je veux faire des requetes entre les deux fichiers genre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 'Définit le chemin du fichier servant de base de données Direction = ThisWorkbook.Path Fichier2 = "OUTILSCONTROLE.xls" 'Mise en place de la connexion avec le fichier Set Conn = New ADODB.Connection With Conn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & Direction & "/" & Fichier2 & _ ";Extended Properties=Excel 8.0;" .Open End With
ça marche pas bien sur car CONSOMMATEURS est une feuille ouverte et NOMFeuille est fichier fermé???? alors je voudrai savoir en vba excel est ce que celà est possible? merci par avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 rSQL = "Select count(*) " & _ "From [CONSOMMATEURS$] C , [" & NomFeuille & "$] G " & _ "Where C.NOPRET = G.NOPRET and C.NOTEB2 = '" & RV & "' " 'Exécution de la Requete SQL Set rsT = New ADODB.Recordset With rsT .ActiveConnection = Conn .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect End With
Partager