Macro : recherchev avec demande sur quel fichier trouvé les données

[lanaine]

Bonjour,

Je souhaite faire une macro qui me demande sur quel fichier trouver les données de ma recherchev (car c'est un fichier excel différent à chaque fois avec la meme configuration)


Merci pour votre aide

 

[tototiti2008]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour à tous,

pour que ça fonctionne, il faut :

que tu recherche dans le fichier x.xls, feuille f
si tu mets FormulaR1C1, la plage ne peut pas être écrite "$B$1:$E$1955"
mais plutôt "R1C2:R1955C5"

 

[lanaine]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Merci !

donc sous tes conseils j'ai changé mon code :


fichier = "[x.xls]f!R1C2:R1955C5"

Range("C3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & fichier & ",4,FALSE)"

Maintenant l'erreur est : methode formula R1C1 de l'objet range à échoué.

je pense qu'il doit y avoir un petite erreur que je ne vois pas...

 

[tototiti2008]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

et comme ça ?

fichier = "'[x.xls]f'!R1C2:R1955C5"

Range("C3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & fichier & ",4,FALSE)"

j'ai ajouté 2 apostrophes

 

[lanaine]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

non ... cela fait toujours la meme erreur ...🙁

 

[tototiti2008]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

le fichier x.xls est ouvert ?

 

[Paritec]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour Lanaine Tototiti Pierrot,
le code de Pierrot marche très bien et devrais répondre à ta demande, enfin moi je l'ai essayé pour voir, et tu as bien une fenêtre qui s'ouvre pour choisir le fichier sur lequel faire la recherche.
Maintenant il faut c'est sur le mettre au bon endroit!!
a+
Papou 🙂

EDIT: Bonjour Tototiti oui comme tu dis est-ce que son fichier n'est pas ouvert???

 

[lanaine]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

@tototiti2008

non il n'est pas ouvert .. il devrait ? (pcq mon but n'est qu'il ne le soit pas)

@Paritec
Qd tu dis il faut le mettre au bon endroit c'est à dire ???

 

[tototiti2008]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour Paritec,
Re,

en effet, ça marche chez moi aussi et je commence à épuiser les pistes qui font que ça plante... pas trop d'idées pour l'instant

 

[Pierrot93]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour à tous

A noter, dans le code proposé :

Dim fichier As String
fichier = "[x]f!C$8:$E$19"
Range("A1").FormulaLocal = "=RECHERCHEV(B9;" & fichier & ";3;FAUX)"

x et f n'existe pas, ils ne sont présent que pour leurrer le système et permettre l'ouverture des boites de dialogue permettant le choix du classeur et de la feuille sur lesquels s'appuira la formule....

bon après midi
@+

 

[Paritec]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour Pierrot Tototiti lanaine le forum,
oui je dois te dire que j'avais compris mais lorsque j'avais lu le poste je ne comprenais pas comment tu faisais pour ouvrir une boîte de dialogue sans un application etc.
C'est cela l'expérience !!!! mentir pour obtenir une action!
merci
a+
papou 🙂

 

[tototiti2008]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,
Bonjour Pierrot,

x et f n'existe pas, ils ne sont présent que pour leurrer le système et permettre l'ouverture des boites de dialogue permettant le choix du classeur et de la feuille sur lesquels s'appuira la formule....

je dois avouer que j'ai mis un peu de temps à le comprendre... mais ça a fini par entrer 😉

 

[lanaine]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

En fait j'ia essayé le code sur un fichier quelqonque que j'ai crée avec des donnes qui n'ont pas de sens.
Et ca a marché !

Mais qd je met ce code dans ma "vrai" macro elle ne fonctionne pas.

Est ce que a pourrait venir de ce bout de code qu'il y a dans ma macro ?

ChDrive "s"
ChDir "S:\Stagiaire\Marie\Fichiers Clients"
Classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur

 

[Paritec]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonsoir Pierrot Tototiti La naine,
bah nous y voilà, je pense que tu as mis le doigt dessus, d'où ma réponse de midi, il faut le mettre au bon endroit !!
Si tu as mis le code de Pierrot après celui que tu donnes c'est normal que cela ne marche pas
a+
bonne soirée
papou 🙂

 

[lanaine]

Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Alors merci a tous pour info.

Je suis cependant bloqué avec le code donnée par Paritec qui ne fonctionne pas avec le bout de code mis précedement.

Je vous joins un zip des me fichiers excel pour que vous compreniez mieux.

Vos idées pour arriver au résultat souhaité sont les bienvenues !

Encore merci.

ps : pour le fichier zip, ouvrir en 1er lanaine.xls. Il y a des explications et la macro est intégré au fichier.