E
Eric D
Guest
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
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