Conseil pour modif du code

[Geraldine]

Bonjour le forum,

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

le code avant :

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

le code après :

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 :

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

Merci à tous,
géraldine

 

[pierrejean]

Re : Conseil pour modif du code

bonjour Geraldine

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

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

 

[Geraldine]

Re : Conseil pour modif du code

merci pierrejean


corrigé comme cela

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

Re : Conseil pour modif du code

re

Ok

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