Modif formule dans VBA

[kakemphaton]

Bonjour,

Je rencontre un souci, je n'arrive pas à modifier une formule qui est présente dans un code vba (enregistreur de macro).

Je souhaite modifier cette variable :

"='X:\veihe\CLIENOURS\MONIOCE\Livraisnts\2015\[Bamaine 5 - 2015.xls]Global'!R[1]C[-12]"

Je souhaiterais remplacer 'X:\veihe\CLIENOURS\MONIOCE\Livraisnts\2015\[Semaine 5 - 2015.xls] par Periode!M2

Mon numéro de semaine change chaque semaine, et la référence est contenue en Periode!M2.

Objectif, quelque chose de similaire : "='Periode!M2Global'!R[1]C[-12]"

Merci

Sub Macro42()

Sheets("Periode").Select
Selection.Copy
Sheets("Global").Select
Range("N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Periode").Select
Selection.Copy
Sheets("Global").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"='X:\veihe\CLIENOURS\MONIOCE\Livraisnts\2015\[Bamaine 5 - 2015.xls]Global'!R[1]C[-12]"
Range("N3").Select
Selection.AutoFill Destination:=Range("N3:N12"), Type:=xlFillDefault
Range("N3:N12").Select
Range("N12").Select
ActiveCell.FormulaR1C1 = "=RC[-12]"
Range("N13").Select
End Sub

 

[kakemphaton]

Re : Modif formule dans VBA

Hello,

Je remonte, une petite idée ?

Merci

 

[Dranreb]

Re : Modif formule dans VBA

Bonjour.
Vous remontez, vous remontez… mais vous ne joignez toujours pas de classeur !

Selon le résultat exactement souhaité vous faites la concaténation appropriée ou bien une formule utilisant INDIRECT.

 

[Paf]

Re : Modif formule dans VBA

Bonjour à tous,

pas sûr d'avoir tout compris

à tester:
ActiveCell.FormulaR1C1 = _
"='X:\veihe\CLIENOURS\MONIOCE\Livraisnts\2015\[" & Worksheets("Periode").Range("M2") & "]Global'!R[1]C[-12]"

A+

 

[kakemphaton]

Re : Modif formule dans VBA

Merci Paf, cela marche parfaitement !!!

Merci beaucoup