Declarer un classeur a nom et chemin variable

Salut!
J'utilise l'enregistreur de macro pour automatiser le rapprochement de 2 fichiers. D'un jour sur l'autre je fais plusieurs recherche V sur le fichier de la veille (ou du Vendredi); le nom et le chemin varient.

Comment puis-je amener l'utlisateur a selectionner le fichier dans un repertoire pour l'utiliser dans les recherches v qui suivent??

Desole mes bases sont mauvaises et je n'arrive pas a combiner les reponses des forum! :?
MERCI.
Gastonlegrand

Bonjour,

Avec GetOpenFilename, une boîte de dialogue s'affiche, il est possible de la paramétrer. Le classeur ouvert est alors utilisable via Classeur_In.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Ouvre_Classeur()   Dim Nom_Fic As Variant Dim Classeur_In As Workbook     Nom_Fic = Application.GetOpenFilename("Classeur de recherche (*.xls), *.xls")       If Nom_Fic = False Then   MsgBox "Pas e fichier choisi", vbCritical   Exit Sub   End If   Set Classeur_In = Workbooks.Open(Nomfic)         End Sub

---

Merci beaucoup!
bonne reponse.:ccool:

Quand je le mets en pratique dans ma rechercheV, ca ne marche pas vraiment..je dois reouvrir le classeur que je viens de declarer..Peux tu m'expliquer stp?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Formula()   Dim Name_File As Variant Dim Classeur_In As Workbook   Name_File = Application.GetOpenFilename("Last Report (*.xls), *.xls")   If Name_File = False Then MsgBox "No file", vbCritical Exit Sub End If   Set Classeur_In = Workbooks.Open(Name_File)   Range("G1").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],[Classeur_In]Sheet1!C[-2]:C[-1],2,0)" Range("G1").Select Selection.Copy Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste   End Sub

---

Il faut construire dynamiquement la formule avec le nom du classeur ouvert

Code:

---

"=VLOOKUP(RC[-2],[" & Classeur_In.Name & "]Sheet1!C[-2]:C[-1],2,0)"

---

Parfait, je m'en sorti!!
C'est genial, merci. :P