"SELECT * FROM pour récupérer valeur

[rjcb]

Bonjour,

Je rencontre un petit souci pour récupérer des valeurs d'un autre fichier XLS.
Pour que cela soit plus explicite voici un extrait du code:

Cellule = "F12:F12"
    Feuille = "BdC VDR SRO 2010$"
    Fichier = Path
                
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
                
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
                  
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
                  
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
    
    Range("G" & lastrow).CopyFromRecordset Rst
    
    If Rst = "RESILIATION" Then
    
    Else
    End If

En fait je voudrais juste avoir la valeur de Rst mais cela me remonte une erreur.
Ce code est très bien car il me permet de récupérer les infos que je veux en laissant le fichier XLS source fermé.

Merci de votre aide.

 

[kjin]

Re : "SELECT * FROM pour récupérer valeur

Bonjour,

...mais cela me remonte une erreur.

Avec le type et la ligne incriminée c'est mieux
A+
kjin

 

[rjcb]

Re : "SELECT * FROM pour récupérer valeur

Ooops:

If Rst = "RESILIATION" Then

et me retourne en erreur:

Compile error:
Expected: expression

 

[kjin]

Re : "SELECT * FROM pour récupérer valeur

Bonjour,
Comme il n'y a qu'une seule valeur, testes

Rst.Fields(0).Value

A+
kjin

 

[rjcb]

Re : "SELECT * FROM pour récupérer valeur

impeccable, cela fonctionne