Discussion :

[Gastonlegrand]

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

[EJO64]

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 :

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
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

[Gastonlegrand]

Merci beaucoup!
bonne reponse.

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 :

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
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

[EJO64]

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

Code :

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

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

[Gastonlegrand]

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