Discussion :

[lpp013]

Bonjour,

Je souhaite accéder à des plages nommées de plusieurs fichiers avec une connexion ADO. Toutes les plages nommées ne comportent qu'une seule cellule.

En exécutant, cela ne fonctionne pas (message : Le moteur de base de données n'a pu trouver l'objet PARAMETRE ...").
Si je transforme la plage nommée en deux cellules, cela fonctionne. Je ne peux faire cela que pour mes tests. A terme, je ne pourrai pas modifier les fichiers sources.

Quelqu'un aurait-il une idée ?

Extrait de code utilisé (toutes les variables sont bien déclarées) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sSql = "SELECT * FROM [" & sCritere & "]"
    Set cn = mdlFnFichier.ConExcelOpen(False, sFichier)     'ConExcelOpen : fonction qui ouvre une connexion, False indique qu'il n'y a pas d'entête)
    Set ADOCommand = New ADODB.Command
    ADOCommand.ActiveConnection = cn
    ADOCommand.CommandText = sSql
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenStatic, adLockReadOnly  ' Plante sur cette ligne

D'avance merci

[piotr76]

Bonjour

Une proposition... (sans le ADODB.Command)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sSql = "SELECT * FROM [" & sCritere & "]"
    Set cn = mdlFnFichier.ConExcelOpen(False, sFichier)     'ConExcelOpen : fonction qui ouvre une connexion, False indique qu'il n'y a pas d'entête)
    Set Rst = New ADODB.Recordset       'Création du recordset
    Set Rst = cn.Execute(sSql )               '"Remplissage" du recordset
    'Ecrit le résultat de la requête dans la cellule "A1"
    Range("A1").CopyFromRecordset rst

Cordialement

[Marc-L]

Bonjour,

pour une seule cellule, possible par formule (même par VBA) comme pour une copie avec liaison, le B-A-BA d'Excel !

Voir aussi dans les discussions du bon forum, celui dédié au VBA …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[kiki29]

Salut, à lire : Lire et écrire dans les classeurs Excel fermés