Bizzarerie avec une formule...

[LeJacky]

bonjours a tous (et toutes)

J'ai un petit souci qui m'agace un grand peu!!! C'est un problème methaphysique pour moi, et pour vous...?

j'ai sortie le code suivant (avec beaucoup de mal):
-------
Sub Macro2()
Dim NLesFichiers%
NLesFichiers = 6
Range("H1").FormulaR1C1 = "=STXT(""" & Range("B1").Value _
& """, 1, CHERCHE(""post"", """ & Range("B1").Value & """, 1) + 3)"
Range("H2").FormulaR1C1 = NLesFichiers & ".sta"
End Sub
-------

Si j'execute, j'ai:
-------
#NOM?
------
qui s'affiche dans la cellule H1
mais
------
=STXT("\\Christine\cyril\dthPost5.STA"; 1; CHERCHE("post"; "\\Christine\cyril\dthPost5.STA"; 1) + 3)
------
qui s'affiche dans la zone d'edition si je clique sur la cellule en question.
Et la, si je reclique dans la zone d'edition (en haut du tableur) et que je fait "entée" (sans autre intervention) la cellule me donne la bonne valeure (\\Christine\cyril\dthPost).

La me vient la question simplicime suivante: POURQUOIS?

J'aurai aime que le bonne valeur(\\Christine\cyril\dthPost) soit directement afficher en vue d'une concatenation pour recrerer le nom du fichier suivant (\\Christine\cyril\dthPost6.sta)...

C'est leus yeux plein d'esoir que je me tourne vers vous car les cierges posés sur le PC n'ont pas résolu ce sousis...

Merci par avance

 

[Jean-Marie]

Bonsoir

Pour te répondre

Sub Macro2()
Dim NLesFichiers As Byte
NLesFichiers = 6
Range("A1").Formula = "=MID(""" & Range("B1").Value _
& """, 1, SEARCH(""post"", """ & Range("B1").Value & """, 1) + 3)"
Range("H2").Formula = NLesFichiers & ".sta"
End Sub

VBA utilise les fonctions traduites en anglais, elles seront converties après par excel.

Bonne soirée

@+Jean-Marie

 

[LeJacky]

bonsoir aussi et surtout

MERCI!!!

je me suis pris la tete un moment!

bonsoir et merci encore!

)