Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
e =5 
  .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"

Mais ca pas moyen ("erreur 1004")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance

[boux2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
e =5 
  .Range("D5").FormulaR1C1 = "=VLOOKUP(Package!R1C4,[" & e & "]Plateformes!C1:C9,9,FALSE)"

Mais ca pas moyen ("erreur 1004")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance

Il faut tripler les doubles quotes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marsupoilu]

Re

Merci a tous les deux!
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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