Pb ADO

[Eric D]

Bonsoir toutes et tous,

J'ai récupérer le code qui suit pour lire un dossier fermer, mais je ne le comprend pas trop, donc pas possible de le modifier. En fait, mon Pb vient du fait qu'avant ce code , je fais un copier/coller et donc quand il execute ce code, il ne va pas me chercher, avec 'RcdSet', le fichier au bon endroit 'Mes documents', mais dans le dossier que j'ai utiliser ds le copier/coller.

Dim RcdSet As Object
Dim strConn As String
Dim strCmd As String
Dim dummyBase As Range

' prépare une 'base de données' bidon pour la clause SELECT
' (une entête fictive et une ligne de données)
Set dummyBase = Cell.Resize(2)

' prépare les commandes ADO et SQL

strConn = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & Classeur & ';' & _
'Extended Properties=''Excel 8.0;HDR=No;IMEX=1;'';'
strCmd = 'SELECT * FROM [' & Feuille & '$' & dummyBase.Address(0, 0) & ']'

' crée l'objet Recordset

Set RcdSet = CreateObject('ADODB.Recordset')

' va chercher l'info

RcdSet.Open strCmd, strConn, 0, 1, 1 'adOpenForwardOnly, adLockReadOnly, adCmdText

Comment redéfinir le bon dossier 'Mes documents', où tout autre emplacement.

Merci pour votre aide.

Eric D

 

[MichelXld]

bonjour Eric

je n'ai pas testé la totalité de ta procedure , mais pour définir le chemin et le nom du classeur , tu peux essayer

...
Dim RcdSet As Object
Dim strConn As String
Dim strCmd As String
Dim dummyBase As Range
Dim Classeur As String

Classeur = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel\\monClasseur.xls'

Set dummyBase = Cell.Resize(2)

strConn = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & Classeur & ';' & _
'Extended Properties=''Excel 8.0;HDR=No;IMEX=1;'';'
strCmd = 'SELECT * FROM [' & Feuille & '$' & dummyBase.Address(0, 0) & ']'
...

bonne journée
MichelXld

Message édité par: MichelXld, à: 10/05/2005 06:14

 

[Eric D]

Bonsoir Michel, le forum,

Merci, c'est impec, Comme ça je sais où mettre mes dossiers ailleurs que ds 'Mes documents'.

Bonne soirée.

Eric D