[VBA-E]Variable String dans un .formula

Version imprimable

25/07/2006, 10h10
marsupoilu

[VBA-E]Variable String dans un .formula
Bonjour a tous!

Voici mon problème
Je n'arrive pas a passer une variable de type String dans .FormulaR1C1

par exemple,ca c'est bon
Code:

1 2 3 e =5 .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"
Mais ca pas moyen ("erreur 1004")
Code:

1 2 3 4 Dim e As String e = ThisWorkbook.Name .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"
Qqn peut-il m'aider :help:

Merci d'avance

Citation:
Envoyé par marsupoilu
Bonjour a tous!

Voici mon problème
Je n'arrive pas a passer une variable de type String dans .FormulaR1C1

par exemple,ca c'est bon
Code:

1 2 3 e =5 .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"
Mais ca pas moyen ("erreur 1004")
Code:

1 2 3 4 Dim e As String e = ThisWorkbook.Name .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"
Qqn peut-il m'aider :help:

Merci d'avance
Il faut tripler les doubles quotes
Code:

1 2 3 4 Dim e As String e = ThisWorkbook.Name .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[""" & e & """]Plateformes!C1:C9,9,FALSE)"
fait le test avec
Code:

1 2 3 4 5 Dim e As String e = ThisWorkbook.Name Dim str_formule as string str_formule = "=VLOOKUP(Package!R1C4,[""" & e & """]Plateformes!C1:C9,9,FALSE)" msgbox str_formule
essaye avec une seul et avec trois et logiquement ...

25/07/2006, 10h47
ouskel'n'or
Code:

1 2 .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,'[" & e & "] _ Plateformes'!C1:C9,9,FALSE)"
Essaie ça (sans garantie) mais donne-nous plus de code et surtout une explication sur la raison qui te fait ajouter le nom du classeur alors que ta formule fait référence à Plateformes se trouvant, on peut le supposer, dans le même classeur que Package

Re

Merci a tous les deux! :applo:
Boux2, ta méthode marche bien mais elle ne s'applique pas a .FormulaR1C1
C'est donc la méthode d' ouskel'n'or (en haut la bas) qui fonctionne

voici un code plus complet et qui marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'produit_choisi, filename et platform sont des String public définies précédement
 
Dim BDD As Workbook
Dim Classeur As Workbook
 
Set Classeur = Application.Workbooks(produit_choisi & ".xls")
Set BDD = Application.Workbooks(filename)
With Classeur.Worksheets("Package")
    .Range("D1").Value = platform
    .Range("D3").FormulaR1C1 = "=VLOOKUP(Package!R1C4,'[" & filename & "]Plateformes'!C1:C9,2,FALSE)"
    .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,'[" & filename & "]Plateformes'!C1:C9,9,FALSE)"
...

Re merci