Bonjour,
Je doit faire un classeur excel qui resume environ une trentaine de classeurs en extrayant a chaque fois les meme valeur qui sont presque toujours au meme endroit(cad si l'info n'est pas en B14 ca eut dire quelle est en B12 par exemple).
Mon probleme est que je voudrait faire une macro qui change recupere le nom de mon fichier source et l'insere dans ma formule.
Voila ce que j'ai fait mais qui ne marche pas
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 7/9/2008 by lgenot
'
'
Static MyPath As Variant
Dim MyCell As Variant
Dim MyExt As Variant
MyExt = ".xls"
MyCell = Range("B3").Value
MyPath = MyCell & MyExt
Debug.Print MyCell
Debug.Print MyPath
Range("A1").Select
ActiveCell.FormulaR1C1 = MyPath
Range("B9").Select
ActiveCell.FormulaR1C1 = _
"=SUM('C:\Documents and Settings\lgenot\My Documents\Project\Sum-up\[5164P0051.xls]001'!R6C13)" -- la ca marche quand je rentre moi meme le nom
Range("B10").Select
ActiveCell.FormulaR1C1 = _
"=SUM('C:\Documents and Settings\lgenot\My Documents\Project\Sum-up\[MyPath]001'!R9C13)" -- la ca ne marche plus quand je passe par ma variable
End Sub
Si vous avez des idees ou des piste de direction je ss preneur
Merci
Je doit faire un classeur excel qui resume environ une trentaine de classeurs en extrayant a chaque fois les meme valeur qui sont presque toujours au meme endroit(cad si l'info n'est pas en B14 ca eut dire quelle est en B12 par exemple).
Mon probleme est que je voudrait faire une macro qui change recupere le nom de mon fichier source et l'insere dans ma formule.
Voila ce que j'ai fait mais qui ne marche pas
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 7/9/2008 by lgenot
'
'
Static MyPath As Variant
Dim MyCell As Variant
Dim MyExt As Variant
MyExt = ".xls"
MyCell = Range("B3").Value
MyPath = MyCell & MyExt
Debug.Print MyCell
Debug.Print MyPath
Range("A1").Select
ActiveCell.FormulaR1C1 = MyPath
Range("B9").Select
ActiveCell.FormulaR1C1 = _
"=SUM('C:\Documents and Settings\lgenot\My Documents\Project\Sum-up\[5164P0051.xls]001'!R6C13)" -- la ca marche quand je rentre moi meme le nom
Range("B10").Select
ActiveCell.FormulaR1C1 = _
"=SUM('C:\Documents and Settings\lgenot\My Documents\Project\Sum-up\[MyPath]001'!R9C13)" -- la ca ne marche plus quand je passe par ma variable
End Sub
Si vous avez des idees ou des piste de direction je ss preneur
Merci