Recherche à partir d'un autre classeur. [Résolu]

[mart_val]

Bonsoir,

Je débute en VBA et j'ai un peu du mal à résoudre mon problème qui est : faire appel à un autre classeur.
Je m'explique, dans un premier classeur j'ai une base de donnée (BD.xls) et dans un deuxieme classeur une fiche de renseignement (FR.xls). Dans cette base on trouve le nom du produit, son indice, son code achat...
J'aimerai pouvoir effectué une recherche dans le classeur BD à l'aide de deux critères renseignés dans le classeur FR (en celulle A2 : nom du produit et en B2 son indice). Le résultat corréspondant à ces deux critère doit apparaitre dans la cellule C2 du classeur FR.xls.

J'arrive à réaliser la fonction recherche lorsque le Base de Donnée est dans le même classeur que les critères, mais pas quand ces derniers sont dans un autre classeur.

Pourriez vous me guider??

Merci d'avance.

[Daniel.C]

Bonsoir,

Si, tu peux le faire, à condition que les deux classeurs soient ouverts. Poste ta macro.

[mart_val]

Voila ma formule de recherche si tout est dans le même classeur:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub recherche()
Dim i As Integer
For i = 8 To 1200
    If Sheets("feuil2").Range("A2") = Sheets("feuil1").Cells(i, 1) Then
    Sheets("feuil2").Range("E2").Value = i
                If Sheets("feuil2").Range("B2") = Sheets("feuil1").Cells(i, 2) Then
                Sheets("feuil2").Range("C2").Value = Sheets("feuil1").Cells(i, 7)
                Else
                Sheets("feuil2").Range("C2").Value = "Pas de code info"
                End If
    End If
Next i
End Sub

J'aimerai à la place de "Sheets("feuil1")" avoir le chemin de mon classeur BD. J'ai essayé avec des workseehts mais je ne connais pas assez...

Merci en tout cas de regarder.

[Daniel.C]

Les deux classeurs doivent être ouverts; il n'y a donc pas lieu de préciser leur chemin.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub recherche()
Dim i As Integer
For i = 8 To 1200
If Sheets("feuil2").Range("A2") = Workbooks("BD.xls").Sheets("feuil1").Cells(i, 1) Then
Sheets("feuil2").Range("E2").Value = i
If Sheets("feuil2").Range("B2") = Workbooks("BD.xls").Sheets("feuil1").Cells(i, 2) Then
Sheets("feuil2").Range("C2").Value = Workbooks("BD.xls").Sheets("feuil1").Cells(i, 7)
Else
Sheets("feuil2").Range("C2").Value = "Pas de code info"
End If
End If
Next i
End Sub

ou en simplifiant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub recherche()
Dim i As Integer
With Workbooks("BD.xls").Sheets("feuil1")
    For i = 8 To 1200
        If Sheets("feuil2").Range("A2") = .Cells(i, 1) Then
        Sheets("feuil2").Range("E2").Value = i
        If Sheets("feuil2").Range("B2") = .Cells(i, 2) Then
        Sheets("feuil2").Range("C2").Value = .Cells(i, 7)
        Else
        Sheets("feuil2").Range("C2").Value = "Pas de code info"
        End If
        End If
    Next i
End With
End Sub

[bbil]

bonsoir,

le plus propre est quand même d'utiliser 2 variables objet de type worksheet pointant sur chacune de tes feuille et éviter des codes aléatoires ou tu ne précise pas le classeur concerné style :

Code :

sheets("feuil2").Range("C2").Value = "Pas de code info"

en considérant que ton classeur FR contient ton code et ouvre le fichier bd inspire toi de

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
dim shFR as worksheet
Dim shBD as worksheet
dim wkBD as worksheet
 
set wkBD = worbooks.open("C:\...bd.xls") 'ouvre fichier BD
'wkBD permet maintenant d'agir sur le classeur bd.xls..
set shBD = wkBD.sheets("Feuil2") 
set shFR = ThisWorkBook.worksheets("Feuil1") ' 
...
If shBD.Range("A2") = shFR.Cells(i, 1) Then
...

voila pour le principe il faudrait rajouter quelque test comme sur la réussite d'ouverture du fichier BD ...

[mart_val]

Bonjour,

Tout d'abord merci à toi Daniel. Car ton code fonctionne quand les deux classeurs sont ouverts!

BBil, merci de préter attention au sujet. J'ai essayé d'adapter ton code mais quand je le genere, une erreur arrive. Pour la ligne 8 :
Set shBD = wkBD.Sheets("Feuil1")

Erreur : "Membre de méthode ou de données introuvable"

Ce que tu me propose peut marcher si le classeur BD est férmè?

Merci à vous deux (Daniel et BBil)!

[Daniel.C]

Bonjour,

Ce que tu me propose peut marcher si le classeur BD est férmè?

Nan, c'est pourquoi bbil ouvre ce classeur. (pour le principe, on devrait s'assurer qu'il n'est pas déjà ouvert.) :

Code :

set wkBD = worbooks.open("C:\...bd.xls") 'ouvre fichier BD

[Daniel.C]

Excuse-moi, mais le sujet de ton message m'a trompé. Tu peux récupérer des cellules dans un classeur fermé. Regarde le tuto ici :

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

[mart_val]

Je te remerci Daniel! J'ai pu résoudre mon probleme grace à toi (et a BBil).

Merci