Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion lanaine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lanaine

Guest
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
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour Lanaine

pas sur d'avoir bien compris ta demande, regarde si le code ci-dessous peut t'aider :

Code:
Sub test()
Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    If .SelectedItems.Count > 0 Then fichier = .SelectedItems(1)
End With
End Sub

bonne journée
@+
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour merci pour votre réponse.

Cela ne répond a ma question.
je souhaite faire une recherchev dans un autre tableau excel que celui de la fontion.

Pour faire une recherche il doit etre ouvert. De plus dans la formule recherchev le nom de la matrice est fixe.

Le nom ce cette matrice change (et j'aimerai au moins qu'il soit fermé). IL y a t-il un moyen que une fenetre s'ouvre dans ma macro me demande quel est le tableau excel à utiliser pour cette recherchev
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

recherche peut être du coté de la méthode "InputBox", en utilisant l'adresse renvoyée par l'objet "range" tu devrais arriver au résultat souhaité...
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Merci je vais regarder de ce coté la.

pour revenir à votre code d'avant.
Je ne comprend pas. est ce qu'il sélectionne les données du fichier que l'on choisit ??

Est ce je peux donc utiliser les valeurs de ce fichier choisi pour les intégrer dans ma fonction recherchev.
Si oui comment je fais pouir indiquer a ma recherchev je vais que tu fasse ta recherche sur le fichier sélectionné précédemment.
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

le code donné renvoie dans la variable "fichier" le nom et le chemin du fichier sélectionné par l'utilisateur....
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Bonjour lanaine, rebonjour Pierrot,

un truc que je n'ai pas compris : dans les recherchev, le nom des matrices est le même quel que soit le fichier choisi ou le nom des matrices change en fonction du fichier choisi ?

De plus dans la formule recherchev le nom de la matrice est fixe.

Le nom ce cette matrice change (et j'aimerai au moins qu'il soit fermé)
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

@tototiti2008
Bah non c'est pas toujours la meme chose :

il y a un nom de classeur si c'est dans un autre classeur excel.

(ici classeur 2)
=RECHERCHEV(B9;[Classeur2]Feuil1!$C$8:$E$19;3;FAUX)

@Pierrot93
Merci.

Par contre je met comment la variable fichier dans ma fomule
=RECHERCHEV(B9,fichier;3;FAUX) ???

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

Re,

exemple ci-dessous :

Code:
Dim fichier As String
fichier = "[Classeur2]Feuil1!$C$8:$E$19"
Range("A1").FormulaLocal = "=RECHERCHEV(B9;" & fichier & ";3;FAUX)"
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

si la plage de cellule dans laquelle tu effectues la recherche est fixe, tu peux également procéder directement de la sorte, une boite de dialogue s'ouvrira afin que tu choisisses le classeur et la feuille.... A voir...

Code:
Dim fichier As String
fichier = "[x]f!C$8:$E$19"
Range("A1").FormulaLocal = "=RECHERCHEV(B9;" & fichier & ";3;FAUX)"
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Re,

d'accord, le fichier change, ça j'avais compris.

Mais la feuille contenant les données et la plage dans laquelle rechercher change-t-elle ?

dans ton exemple

Code:
=RECHERCHEV(B9;[Classeur2]Feuil1!$C$8:$E$19;3;FAUX)

classeur2 change, OK
mais est-ce que Feuil1!$C$8:$E$19 est fixe quel que soit le classeur ?
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Non la feuille ne change pas ..

@Pierrot93
Sinon ce code ne marche pas..
Dim fichier As String
fichier = "[x]f!C$8:$E$19"
Range("A1").FormulaLocal = "=RECHERCHEV(B9;" & fichier & ";3;FAUX)"
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Voila le code tapé :

Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count > 0 Then fichier = .SelectedItems(1)


fichier = "[x]f!B$1:$E$1955"


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


Il me dit : Erreur 1024 / erreur définie par l'application ou l'objet
Qd jfais debogage, il me surligne le bout de code suivant
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & fichier & ",4,FALSE)"

pourtant je pense qu'on est pas loin de ce que jveux !! je veux y croire 🙂
 
Re : Macro : recherchev avec demande sur quel fichier trouvé les données

Voila le code que j'ai tapé :


Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count > 0 Then fichier = .SelectedItems(1)


fichier = "[x]f!B$1:$E$1955"


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

L'erreur est 1024/ erreur définie par l'application ou l'objet.

qd jfais débogage il me surligne cette ligne :
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & fichier & ",4,FALSE)"

Je pense qu'on est pas loin de ce que jveux !! ca va marché ! 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
223
Réponses
5
Affichages
165
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…