Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2
-2006 18.xls]" variable.....
je m'explique : Je fais toujours référence au meme onglet, à la meme plage
de données sauf que le nom du fichier change toute les semaines.
Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier
(par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les
recherchev de mon onglet.
J'espère être assez clair....d'avance merci 1000 fois...
Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2 -2006 18.xls]" variable.....
je m'explique : Je fais toujours référence au meme onglet, à la meme plage de données sauf que le nom du fichier change toute les semaines. Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier (par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les recherchev de mon onglet.
J'espère être assez clair....d'avance merci 1000 fois...
Amicalement
Trup
Bonjour Trup,
Il y a une possibilité :
Télécharger Morefunc.xla du site internet de Laurent Longre
http://xcell05.free.fr/
Après l'installation, tu pourrais utiliser la fonction Indirect.ext()
En supposant que le nom du fichier est en A1, tu aurais une formule
ressemblant à ceci :
Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2
-2006 18.xls]" variable.....
je m'explique : Je fais toujours référence au meme onglet, à la meme plage
de données sauf que le nom du fichier change toute les semaines.
Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier
(par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les
recherchev de mon onglet.
J'espère être assez clair....d'avance merci 1000 fois...
Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2 -2006 18.xls]" variable.....
je m'explique : Je fais toujours référence au meme onglet, à la meme plage de données sauf que le nom du fichier change toute les semaines. Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier (par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les recherchev de mon onglet.
J'espère être assez clair....d'avance merci 1000 fois...
Amicalement
Trup
JB
Bonjour,
http://cjoint.com/?elivIMUVBK
Sub EcritRecherchev() ChDir ActiveWorkbook.Path ' fichier dans le même répertoire ChampFormule = "C2:C4" Chemin = ActiveWorkbook.Path Fichier = Range("F2") ' nom du fichier en F2 NomTableRecherche = "produit" ' nom de champ de la table Range(ChampFormule).FormulaR1C1 = _ "=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" & NomTableRecherche & ",2,false)" Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime les formules End Sub
JB
Bonjour,
http://cjoint.com/?elivIMUVBK
Sub EcritRecherchev()
ChDir ActiveWorkbook.Path ' fichier dans le même
répertoire
ChampFormule = "C2:C4"
Chemin = ActiveWorkbook.Path
Fichier = Range("F2") ' nom du fichier en F2
NomTableRecherche = "produit" ' nom de champ de la table
Range(ChampFormule).FormulaR1C1 = _
"=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" &
NomTableRecherche & ",2,false)"
Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime
les formules
End Sub
Sub EcritRecherchev() ChDir ActiveWorkbook.Path ' fichier dans le même répertoire ChampFormule = "C2:C4" Chemin = ActiveWorkbook.Path Fichier = Range("F2") ' nom du fichier en F2 NomTableRecherche = "produit" ' nom de champ de la table Range(ChampFormule).FormulaR1C1 = _ "=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" & NomTableRecherche & ",2,false)" Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime les formules End Sub
JB
trup
merci bcp michdenis et JB pour vos réponses.... g trouvé une autre sollution
Bonne journée à vous 2.
Trup
Bonjour,
http://cjoint.com/?elivIMUVBK
Sub EcritRecherchev() ChDir ActiveWorkbook.Path ' fichier dans le même répertoire ChampFormule = "C2:C4" Chemin = ActiveWorkbook.Path Fichier = Range("F2") ' nom du fichier en F2 NomTableRecherche = "produit" ' nom de champ de la table Range(ChampFormule).FormulaR1C1 = _ "=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" & NomTableRecherche & ",2,false)" Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime les formules End Sub
JB
merci bcp michdenis et JB pour vos réponses....
g trouvé une autre sollution
Bonne journée à vous 2.
Trup
Bonjour,
http://cjoint.com/?elivIMUVBK
Sub EcritRecherchev()
ChDir ActiveWorkbook.Path ' fichier dans le même
répertoire
ChampFormule = "C2:C4"
Chemin = ActiveWorkbook.Path
Fichier = Range("F2") ' nom du fichier en F2
NomTableRecherche = "produit" ' nom de champ de la table
Range(ChampFormule).FormulaR1C1 = _
"=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" &
NomTableRecherche & ",2,false)"
Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime
les formules
End Sub
merci bcp michdenis et JB pour vos réponses.... g trouvé une autre sollution
Bonne journée à vous 2.
Trup
Bonjour,
http://cjoint.com/?elivIMUVBK
Sub EcritRecherchev() ChDir ActiveWorkbook.Path ' fichier dans le même répertoire ChampFormule = "C2:C4" Chemin = ActiveWorkbook.Path Fichier = Range("F2") ' nom du fichier en F2 NomTableRecherche = "produit" ' nom de champ de la table Range(ChampFormule).FormulaR1C1 = _ "=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" & NomTableRecherche & ",2,false)" Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime les formules End Sub