Discussion :

[probexcel]

Bonjour tout le monde,

J'ai fini par trouvé une manière pour faire une recherchev sur plusieurs fichiers à plusieurs onglets, la solution été d'imbriquer les SI avec les RechercheV.

Le souci est que ça devient lourd, vu que j'ai 4 fichiers avec 2 onglets chacun.

Ma première question: comment peut on faire, pour rendre plus simple la rechercheV avec plusieurs fichiers à plusieurs onglets?

Cependant, s'il n'y a pas de solution plus simple, je penserai dans ce cas là à mettre en place une table intermédiaire (un fichier .xls regroupant mes 4 fichiers avec leurs onglets).
D'où ma second question: comment faire pour regrouper plusieurs fichiers par un bouton macro (par exemple)? Genre, je veux qu'excel va me chercher les tables souhaités puis les mettre l'une après l'autre dans un seul tableau...

RQ: en cherchant à gauche à droite, j'ai fini par tomber sur 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
Sub test4()
'
Dim i As Double
i = 1
 
'Ouvre le classeur 1
Workbooks.Open ("d:\temp\a.xls")
Workbooks("a.xls").Sheets("Feuil1").Select
Selection.CurrentRegion.Select
Selection.Copy
Workbooks("a.xls").Close
 
'Copie les données dans la feuille cible
Windows("classeur3").Activate
Range("A1").Select
Me.Paste
 
'Ouvre le classeur 2
Workbooks.Open ("d:\temp\B.xls")
Workbooks("B.xls").Sheets("Feuil1").Select
Selection.CurrentRegion.Select
Selection.Copy
Workbooks("B.xls").Close
 
'recherche la derniere ligne vide
Windows("classeur3").Activate
Sheets("Feuil1").Select
Do While Not Range("A" & i).Value = ""
i = i + 1
Loop
 
Range("A" & i).Select
Me.Paste
 
End Sub

j'ai changé les chemins d'accés, mais sans succés! j'ai toujours la meme erreur de compilation: utilisation incorrecte du mot clés Me !!

pourriez vous m'expliquer s'il vous plait pour quoi un tel problème?

merci pour votre aide.

@+

[aalex_38]

Code :

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

Me

Désigne l'USERFORM dans le code de celui-ci.

Attention quand on recopie du code !

[probexcel]

Bonjour,

Bien que je pensais avoir résolu mon problème (de la recherchev sur plusieurs fihiers) et ça en imbriquant les SI. Je me rends compte que j'ai des erreurs lorsque j'ai voulu réutiliser la formule dans une autre cellule!

En bas le code utilisé:

=SI(SI(ESTNA(RECHERCHEV(B137;'[RECAP E09.xls]BILAN '!$A$14:$I$794;1;FAUX));"x";RECHERCHEV(B137;'[RECAP E09.xls]BILAN '!$A$14:$I$794;1;FAUX));"0";SI(ESTNA(RECHERCHEV(B137;'[RECAP H09.xls]BILAN '!$A$14:$I$602;1;FAUX));"y";RECHERCHEV(B137;'[RECAP H09.xls]BILAN '!$A$14:$I$602;1;FAUX)))

Remarque: ici j'ai testé sur deux fichiers à un onglet.

voyez vous une erreur?
Merci.

@+