Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modif formule dans VBA

kakemphaton

XLDnaute Junior
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
 

Dranreb

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…