[VBA XL] Vlookup

cs_Liro Messages postés 159 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 30 septembre 2011 - 21 mars 2011 à 16:26
Yous00 Messages postés 36 Date d'inscription lundi 29 janvier 2007 Statut Membre Dernière intervention 17 janvier 2017 - 22 mars 2011 à 13:25
Bonjour,

via un morceau de code vba j'écris une formule de type recherchev.

ActiveCell.Offset(0, 7).Value = "=VLOOKUP(RC[-1],'[MON FICHIER.xls]Feuille1'!R3C2:R3500C14,2,FALSE)"


pendant l'éxecution de ce code une pop up me demande le chemin vers le fichier.

Est-il possible dans le code de proposé un chemin par défaut ??

Merci pour votre réponse!

3 réponses

Yous00 Messages postés 36 Date d'inscription lundi 29 janvier 2007 Statut Membre Dernière intervention 17 janvier 2017
21 mars 2011 à 17:08
Slt Liro

Essaye cela:


Workbooks.Open ("chemain de ton fichier ex: C:\Documents and Settings\Default User\MON FICHIER.xls")
Windows("nom de ton fichier ouvert avec la formule").Activate
ActiveCell.Offset(0, 7).Value = "=VLOOKUP(RC[-1],'[MON FICHIER.xls]Feuille1'!R3C2:R3500C14,2,FALSE)"
Windows("MON FICHIER.xls").Activate
Workbooks.Save
Workbooks.Close

Cdlt

Jyb

Petit bidouilleur en excel (vba) ...
0
cs_Liro Messages postés 159 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 30 septembre 2011
22 mars 2011 à 08:40
Salut Yous00 et merci pour ta réponse.

Le chemin complet c'est bien une opion à laquelle j'avais pensée mais j'ai oublié de préciser que je ne suis pas le seul a utiliser ces macro et que chaque utilisateur enregistre le fichier où bon lui semble, en revanche je leur ai demandé d'ouvrir le fichier en question avant de lancer la macro donc il suffirait de prendre le chemin du fichier déjà ouvert et qui porte ce nom...
0
Yous00 Messages postés 36 Date d'inscription lundi 29 janvier 2007 Statut Membre Dernière intervention 17 janvier 2017
22 mars 2011 à 13:25
Salut Liro,

Si le fichier MON FICHIER.xls est ouvert, ta macro de départ devrais marcher correctement.

Cdlt

Jyb

Petit bidouilleur en excel (vba) ...
0
Rejoignez-nous