Discussion :

[edelweisseric]

Bonjour à tous

Voilà plusieurs jours que je suis en panne. Je recherche le moyen de trouver l'adresse et la valeur d'une cellule dans un fichier fermé.
J'ai une valeur dans une variable, que je dois trouver dans la colonne A de la feuille 1 d'un fichier fermé.
Une fois trouvée, je dois récupérer l'adresse et la valeur de la cellule en G de cette même ligne. Exemple :

Dans fichier fermé :
A B C D E F G
1
2 - - - - - 50
3
4

J'ai var="2" je dois récupérer :
Trouve.adresse = G2
Trouve.valeur = 50

J'emploie ce code :

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
Sub DonneesRECHERCHEESClasseursFermes()
    Dim Source As ADODB.Connection  'activer la référence Microsoft ActiveX Data Objects x.x Library
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Feuille1 As String
    Dim Fichier As String
    Dim Var As String
    Dim maplage As Range
 
    Var = "2"	'qui peut être string ou integer…..
    maplage = "A1:G4"
    Feuille1 = "Feuil1$"
    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 [" & Feuille1 &  ??????????????????  & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille1 & ??????????????????  & "]")
 
 
    Trouve.ligne = ? 	     'Rst.row   ????????
    Trouve.adresse = ?   'Rst.address   ????????
    Trouve.valeur   = ?   'Rst.Value   ????????
 
    Range("A1").CopyFromRecordset Rst.address   ????????   
    Range("A2").CopyFromRecordset Rst.Value   ????????   
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

Mais je n'arrive à rien. Je tourne en rond, et c'est agaçant.

Et dans la même veine, comment récupère-t-on l'adresse d'une variable qui se situe dans une plage d'un fichier fermé ? avec l'exemple du début, j'ai Var = "50", je dois récupérer Trouve.adresse = G2.

Merci d'avance de votre aide

Eric

[Invité]

Bonjour,

Regarder ici :

http://silkyroad.developpez.com/VBA/ClasseursFermes/

[edelweisseric]

Bonjour à tous
Bonjour jacques_jean

J'avais déjà lu et relu ce document extrêmement bien rédigé, mais malheureusement, je n'ai pas réussi à réaliser ce que je demande. D'ailleurs ce n'est pas le seul doc que j'ai lu, parmi les autres celui de F. Sigonneau est aussi dans mes favoris, mais .....

Merci quand même

Eric

[Abed_H]

Bonjour
sans l'utilisation d'ADO, avec une fonction personalisée tu obtiens l'adresse et la valeur.

Code :

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

1
2
3
4
5
6
7
8
Function AdrVal(Fichier As String, Feuille As String, Mot)
Dim c As Range
    With CreateObject("Excel.Application").Workbooks.Open(Fichier)
         Set c = .Worksheets(Feuille).Columns(1).Find(What:=Mot, LookIn:=xlValues)
AdrVal = "l'adresse : " & c.Offset(, 6).Address & "   la valeur : " & c.Offset(, 6).Value
.Close False
End With
End Function

dans une cellule du classeur active copie cette formule.
=AdrVal("C:\Le Classeur.xls";"Feuil1";19)

19 est la valeur à recherchée

Bonne journée

[edelweisseric]

Bonsoir à tous
Bonsoir Abed_H

Merci pour ta réponse rapide, mais j'ai une boîte de dialogue pour la liaison du fichier. Je l'ai adaptée en récupérant dans des variables mais c'est pareil.

Eric

[Abed_H]

Re
Peux tu m’envoyé tes fichiers pour voir de plus prés le problème ?

[edelweisseric]

Re

Merci de suivre mon pb. Ci-joint les 2 fichiers.

Eric

[Abed_H]

Re
Attention pas de Guillemet et pas de modification de la fonction prend la telle quelle est. je te joins ton fichier en retour

Bonne soirée.

[edelweisseric]

Bonjour à tous
Bonjour Abed_H

Désolé, mais j'ai été privé d'internet depuis hier soir, d'où ma réponse tardive.

J'ai essayé le fichier que tu m'as réexpédié, mais pareil. Je joins les 2 boîtes de dialogues qui apparaissent une fois que je modifie la valeur à chercher. En plus le résultat tarde à arriver.

Est il possible de le faire en VBA, quitte à passer par ADO ?

Merci

Eric

[Abed_H]

Bonsoir edelweisseric

d'aprés Bidou la (FAQ)
Pour empêcher la mise à jour des liaisons sans boîte de dialogue,il faut mettre le paramètre UpdateLinks de la méthode Open de l'objet Workbook à False.
à tester : remplace cette ligne de code

Code :

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

With CreateObject("Excel.Application").Workbooks.Open(Fichier)

Par

Code :

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

With CreateObject("Excel.Application").Workbooks.Open(Fichier, UpdateLinks = False)

Il est possible d'utiliser :

Code :

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

Application.AskToUpdateLinks = True

Néanmoins cela ne supprime que la boîte de dialogue et les liaisons sont mises à jour.
Bonne soirée.

[edelweisseric]

Bonsoir à tous
Bonsoir Abed_H

Avec le deuxième code, cela fonctionne, malheureusement encore un peu lent. J'ai réussi à le transformer en VBA. MERCI

Pour la deuxième question qui était :

Bonjour à tous
Exemple :

Dans fichier fermé :
A B C D E F G
1
2 - - - - - 50
3
4
Et dans la même veine, comment récupère-t-on l'adresse d'une variable qui se situe dans une plage d'un fichier fermé ? avec l'exemple du début, j'ai Var = "50", je dois récupérer Trouve.adresse = G2.

quelqu'un a t il une idée ? mais est ce faisable ?

Merci d'avance
Merci Abed_H

Bonne fin de WE à tous

Eric