Conseil pour modif du code

Geraldine · 29 Novembre 2007

Bonjour le forum,

un petit conseil sur la modification d'un de mes codes :

le code avant :

Code:

Direction = Dir("d:\DEVIS\*.xls")

le code après :

Code:

Chem = Sheets("Accueil").Range("A19") ' est égal à d:\devis\
Direction = Dir(Chem & "*.xls")

dans le code suivant j'ai du mal à adapter la meme chose soit integrer Chem au lieu de "D:\devis\", sans faire d'erreur :

Code:

.Formula = "='D:\DEVIS\[" & tableau(x) & "]ADMIN" & "'!" & "B6"

Merci à tous,
géraldine

pierrejean · 29 Novembre 2007

Re : Conseil pour modif du code

bonjour Geraldine

Sous reserve que la formule soit valide (et la j'ais comme un doute !!!):

Code:

.Formula = "='" & chemin & "\[" & tableau(x) & "]ADMIN" & "'!" & "B6"

Geraldine · 29 Novembre 2007

Re : Conseil pour modif du code

merci pierrejean

corrigé comme cela

Code:

.Formula = "='" & chemin & "[COLOR="Red"]\[/COLOR][" & tableau(x) & "]ADMIN" & "'!" & "B6"

/ supprimer

Amicalement
Géraldine

PS : avec ceci je vais peut etre arrivé à corriger un autre code si j'ai un problème je relancerais le post.

pierrejean · 29 Novembre 2007

Re : Conseil pour modif du code

re

Ok

je n'avais pas noté le dernier \ contenu dans chemin