Discussion :

[viavba]

bonjour,

apres avoir lu les tutos sur ADO et excel, j'y perd ma tete.

bon, je vous explique mon probleme d'un point de vue fichier excel et apres je vous fais la description de ce que je veux obtenir.



donc je travail avec 3 Fichiers excel.
- un Fichiers actif qui sera nommé "Principal" avec 1 feuille nommé "1Principal" pour faire simple
- un Fichier nommé "Sicave"avec 1 feuille nommé "1Sicave"
- un Fichier nommé "Bristol"avec 1 feuille nommé "1Bristol"

quand j'ouvre le fichier "principal" et que je suis dans la feuille "1Principal", je veux connaitre la valeur de la cellule "B4" de la feuille "1Sicave" du fichier correspondant mais sans l'ouvrire. Et je veux aussi la valeur de la cellule "B10" de la feuille "bristol" du fichier correspondant et sans non plus l'ouvrire.

Par la suite je devrais faire des comparaison avec des cellules qui se trouve dans mon fichier "Principal".



Voila maintenant ce que je cherche a obtenir comme function :

je cherche donc une fonction qui me renvoi un string (et c'est la que je bloque, ou que je ne comprend pas dans les tutos).
cette fonction aura les paramettres :
Path = chemin pour trouver le fichier
Fichier = nom du fichier
Feuille = la feuille du fichier "Fichier" ou se trouve les données a recuperer
Cellule = la cellule dont nous voulons la valeur.

si vous pouvez m'aider, merci d'avance.
dit le moi si je ne suis pas assez claire

Via

[viavba]

voila ce que j'ai commencé a faire et ne rouge ce qui merde, je ne sais pas comment sortire un string en partant un recordset :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function ExtractionFerme(Fichier As String, Cellule As String, Feuille As String, Feuille_Arrive As String, Position As String) As String

    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    'Dim Fichier As String, Cellule As String, Feuille As String
    
    'Adresse de la cellule contenant la donnée à récupérer
    'Cellule = "B4:B4"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
      
    'Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    Feuille = Feuille & "$"
    'Chemin complet du classeur fermé
    'Fichier = "C:\Base.xls"
                
    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
    'MsgBox Fichier & " " & Feuille & " " & Cellule
    
    
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
                  
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
    ExtractionVirbancFerme = Rst

            
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Function

[AlainTech]

Tu dois dire à quel champ (Field) tu te réfères, même s'il n'y en a qu'un.

[DenisMada]

Bonjour le fil et le Forum,
ceci également,

Code :

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

1
2
3
4
Function GetValue(Path, File, Sheet, Adresse) 'Adresse sous la forme A1
  GetValue = ExecuteExcel4Macro("'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Adresse) _
    .Range("A1").Address(, , xlR1C1))
End Function

Bon courage et à plus
Denis

[viavba]

Tu dois dire à quel champ (Field) tu te réfères, même s'il n'y en a qu'un.

peux tu me donner un peux plus d'info sur la methode que je dois utiliser parce que j'ai tester ce code et ca ne fonctionne pas

Code :

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

ExtractionFerme = Rst.Fields(1).Value

et dans mon explorateur d'objet je n'ai pas l'aide associé GRRR

merci DenisMada mais je reste sur la premier solution. si ca ne fonctionne pas je testerais ta fonction.

Merci
Via

[viavba]

Code :

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

ExtractionFerme = Rst.Fields(1).Value

YESSSSSSSS bon j'ai trouvé !!!

merci beaucoup pour les info.

je donne la correction dessous mais mon erreur devait etre l'indice de depart du Recordset, ca commence a 0 et pas a 1.
donc ca, ca fonctionne :

Code :

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

ExtractionFerme = Rst.Fields(0).Value

voila maintenant je vais pouvoir m'amuser avec ma fonction !!

merci a tous
Via