Discussion :

[LesMotsLesChoses]

Bonjour,

J'ai fait un outil (type tableau de bord). L'utilisateur peut choisir une région (ex. région 1234, région 3456, etc.) dans un menu déroulant. J'aimerais aller récupérer des informations concernant cette région dans un fichier. Il y a autant de fichiers qu'il y a de régions, mais ils ont tous la même structure et nommées de façon standard (....Reg_1234.xlsx, Reg_3456.xlsx, etc.) Les fichiers sont sur un réseau. J'ai travaillé sur ce dossier, il y a quelques mois et on m'avait suggéré une méthode. Il s'agissait d'une procédure ou fonction qui s'exécutait quand certains champs d'une feuille avait été modifiés par l'utilisateur et elle allait récupérer le numéro de la région et elle générait un texte comme \\nomdureseau\xxxx\xxxx\region XXXX.xlsx. J'ai malheureusement perdu mes notes.

Est-ce quelqu'un a une idée de cette fonction et la syntaxe en VBA ? Ou une autre solution pour aller récupérer les données d'un autre fichier Excel.

Merci!

Sylvain

[Al__22]

Dans la cellule en question :

=RECHERCHEV(Chose à chercher;Où le chercher (mettre le chemin du fichier);Colonne du résultat à afficher;FAUX)

[Al__22]

Ou alors pour trouver le bon fichier :

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
'Déclaration des variables
Dim MyPath As String, monFichier As String, reg As String
 
'Chemin du fichier
MyPath = "C:\Ton chemin\"
 
'Récupère la région
reg = Sheets(1).Range("A1")
 
monFichier = Dir(MyPath & "\*.xlsx", vbNormal)
 
'Boucle pour trouver le fichier exact
Do While monFichier <> ""
 
If InStr(monFichier, reg) > 0 Then
Fichier_reg = MyPath & "\" & monFichier
End If
monFichier = Dir
Loop

[LesMotsLesChoses]

Merci!
Les fonctions Recherche ou Index ne fonctionnent pas avec ce que je veux faire. Ce que j'ai essayé pour générer le chemin du fichier, c'est avec la fonction concatener, soit dans une cellule ou dans un nom. Excel considère le résultat comme du texte, habituellement avec un ' devant la chaine de caractères : ex. '\\xxxxx\yyyyy\123.xls. Ce qui ne fonctionne pas avec les fonctions Recherche et Index. Ou, peut-être que je n'ai pas trouvé la façon d'obtenir une chaîne de caractères qui sera reconnue comme une adresse et non comme du texte.

Je continue de chercher.

Sylvain

[Al__22]

D'où mon poste avec le bout de code
Celui-ci te permet de trouver un fichier à un endroit précis en fonction d'une variable "reg" rentré par l'utilisateur

[Theze]

Bonjour,

Si un intervenant t'as déjà donné le code de la fonction, effectue une recherche sur le forum avec ton pseudo tu devrais normalement la retrouver !

[Marc-L]

Bonjour, bonjour !

Comme déjà évoqué, la fonction de feuille de calculs RECHERCHEV fonctionne bien en VBA pour un classeur fermé !

Sinon pour un VBA serial codeur il y a aussi ce tutoriel : Lire et écrire dans les classeurs Excel fermés …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[LesMotsLesChoses]

Merci à tous! Je regarde cela et je vous reviens avec un ou un si je trouve à partir de vos commentaires ou solutions.

Bonjour,

Si un intervenant t'as déjà donné le code de la fonction, effectue une recherche sur le forum avec ton pseudo tu devrais normalement la retrouver !

Ce fut ma première action avant de solliciter à nouveau le forum, mais j'ai cherché sans succès. C'était peut-être sur un autre forum, mais je ne crois pas.

Si d'autres intervenants ont d'autres solutions, je suis toujours preneur.

Sylvain