Ajouter une variable dans la formule

Résolu
solidarinfo Messages postés 170 Statut Membre -  
solidarinfo Messages postés 170 Statut Membre -
Bonjour à tous,

je suis entrain d'essayer d'insérer une variable dans ma formule mais ca ne marche et je ne sais pas ou ça bloque..
Au moment d’exécuter la formule, il y a une boite de dialogue Windows qui me demande de d'ouvrir le fichier excel qui est la source. Le pb c'est que le fichier est déja ouvert. 


 Windows("Calcul DGO" & " " & PeriodePrecedente & " " & Annee & " " & "TEST.xlsx").Activate
                                Sheets("CALCUL DGO").Select
Range("C14").Select
                                ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],'Bilan " & " " & PeriodeN & " " & Annee & " " & " TEST.xls'!C5:C11,7,0)"


Merci de votre aide

J'ai pensé à sinon : 


Dim FichierBilan as string
FichierBilan =Windows("Bilan " & " " & PeriodeN & " " & Annee & " " & " TEST.xls").Activate

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]" & FichierBilan & "!C5:C11,7,0)"




Ps : je suis débutant en VBA Merci de votre comprehension
A voir également:

2 réponses

Réponse 1 / 2
thev Messages postés 1989 Date d'inscription   Statut Membre Dernière intervention   717
 
Bonsoir,

Deux remarques :
1- votre fichier bilan doit être ouvert
2- il manque la feuille du fichier bilan

ci-dessous exemple de code 

   PeriodeN = "T1"
   Annee = "2016"
   FichierBilan = "Bilan " & " " & PeriodeN & " " & Annee & " " & " TEST.xls"
   feuille = "Feuil1"
   plage = "C5:C11"
   table_recherche = "[" & FichierBilan & "]" & feuille & "!" & plage
   ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & table_recherche & ",7,FALSE)"

--
 
1
solidarinfo Messages postés 170 Statut Membre 13
 
J'ai trouvé la solution, il fallait en fait juste que je mette le nom complet du chemin vers le fichier avec "c:\users, etc"

Par contre là ou je bloque c'est que j'ai essayé de mettre des variables dans le chemin que j'ai mis dans une varibale.. En gros une variable dans une variable.

Mais cela n'a pas l'air de vouloir marché, peut être que cela n'existe pas en VBA ?? Quelqu'un pour m'aider SVP ? 

Dim FormuleBilan As String
   FormuleBilan = "'C:\Users\solidarinfo\Desktop\TEST DSO MACRO\[Bilan" & " " & PeriodeN & " " & Annee & " " & "TEST.xls" & "]" & "Bilan" & PeriodeN & " " & " " & Annee & " " & "TEST'"
                                
Range("C14").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & FormuleBilan & "!C5:C11,7,0)"
0
Réponse 2 / 2
solidarinfo Messages postés 170 Statut Membre 13
 
J'ai trouvé la solution, il fallait en fait juste que je mette le nom complet du chemin vers le fichier avec "c:\users, etc"

Par contre là ou je bloque c'est que j'ai essayé de mettre des variables dans le chemin que j'ai mis dans une varibale.. En gros une variable dans une variable.

Mais cela n'a pas l'air de vouloir marché, peut être que cela n'existe pas en VBA ?? Quelqu'un pour m'aider SVP ? 

Dim FormuleBilan As String
   FormuleBilan = "'C:\Users\solidarinfo\Desktop\TEST DSO MACRO\[Bilan" & " " & PeriodeN & " " & Annee & " " & "TEST.xls" & "]" & "Bilan" & PeriodeN & " " & " " & Annee & " " & "TEST'"
                                
Range("C14").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & FormuleBilan & "!C5:C11,7,0)"
0

Discussions similaires

Décalage de formule
nathan01983 -
via55 -

12 réponses