Petit Problème de syntaxe

[Macpoy]

bonsoir le forum, bonsoir ami(e)s Excelliens,
je compatis à la douleur de ceux qui reprennent le boulot, et me réjouis pour ceux qui sont les doigts de pieds en éventaille.
toujours est il que je suis à la recherche d'une réponse!!!
quellle est la syntaxe pour que la boucle puisse fonctionner, car dans la macro ci-dessous je suis incapable de faire changer le nom du classeur à cet endroit:
----------
ActiveCell.Formula = '='[classeurX.xls]Recap. Heures mensuelles'!E3'
----------

J'ai tenté de mettre stgfilename à la place de '[classeurX.xls]'
mais sans succès!!! les crochets empèche Excel de reconnaitre stgfilename.

Const CHem As String = 'D:\\Document de Macpoy\\Classeur d'aide\\Operateurs\\'

Sub Recup_info()

stgFilename = Dir(Chem & '*.xls')

Do While stgFilename <> ''
Workbooks.Open Filename:=Chem & stgFilename

Sheets(2).Range('C3').Select
--------
ActiveCell.Formula = '='[classeur_X.xls]Recap. Heures mensuelles'!E3'
--------
Selection.AutoFill Destination:=Range('C3:C42'), Type:=xlFillDefault

stgFilename = Dir()
Loop
End Sub

Bref je vais encore faire appel à votre gentillesse et apprendre un peu plus sur les subtilités du language VBA.


fait que chaque heure de ta vie soit un souvenir pour demain.

 

[Bernard_XLD]

bonjour

vite fait

ActiveCell.FormulaR1C1 = '='' & ActiveWorkbook.Path & '\\[' & ActiveWorkbook.Name & ']Feuil1'!R5C4'

A+

 

[Macpoy]

bonsoir le forum, yeahou,

merci pour cette belle phrase matinale, lol
je m'en vais la tester de suite.

merci et à plus pour le résultat.


Excel,........ c'est évident.......... , de sagesse !!!

 

[Macpoy]

Re le forum, super yeahou,

impecable, nickel,............. euh y à quoi d'autre comme superlatif ???
je me suis permis de virer le R1C1 qui ne me convenait pas et cela roule!!!
merci beaucoup.
j'aimerais pouvoir dire à charge de revanche, mais je crois que je suis limité sur ce coup la !!!! lol


Batissez un pont en papier de soie et jetez y le bien que font les hommes.... il tiendrat bon . (xavier formeret )