Discussion :

[gangstarrr]

Bonjour,

Voila débutant dans les macro j'ai une petite question dont je n'arrive pas à trouver la réponse sur les forums.

Je réalise une maccro qui génére un fichier excel à partir de mon fichier excel de départ. Dans mon fichier de départ j'ai la case B2 et dans mon fichier d'arrivée je voudrais que la case G7 renvoi une valeur avec la fonction RECHERCHEV Voici mon code :

Code :

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

1
2
3
4
5
6
 
Dim resp_hierarch
resp_hierarch = "=RECHERCHEV(B2;Transco!A2:B49;2;FAUX)"
// une fois que j'ai créé le second fichier
Range("G7").Select
ActiveCell.FormulaR1C1 = resp_hierarch

Le problème avec mon code c'est que dans mon fichier créé je n'arrive pas avoir la valeur de la recherche V. Sacahnt que la RECHERCHEV doit s'éxécuter dans le premier fichier (La feuille Transco n'est pas présente dans le second fichier.)

J'espére que vous comprendrez mon petit soucis. Je ne pense pas que cela soit compliqué mais il me manque quelques bases de maccro pour connaitre la réponse.

Merci par avance!

[groslou2]

Essaye en remplaçant FormulaR1C1 par FormulaLocal

[gangstarrr]

J'ai le même probléme quand excel génére le fichier il me demande de mettre à jour le lien vers la feuille Transco (présente dans la recherchev car il ne la trouve pas.)

[groslou2]

Il faut rajouter le chemin vers ta feuille.
Par exemple:

Code :

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

resp_hierarch = "=RECHERCHEV(B2;'C:\Documents and Settings\xxxx\Desktop\[toto.xls]Transco'!A2:B49;2;FAUX)"

Enfin, le plus simple est de faire le lien sous Excel (tape "=" dans ta cellule et puis va chercher la cellule de destination dans Transco) et de copier-coller dans ta macro ce qu'Excel a écrit dans ta cellule.
Si tu veux avoir ta macro toute cuite, tu peux même faire la même opération en enregistrant une macro (outils/macro/nouvelle macro).

[gangstarrr]

Merci mais ce n'est pas ce qu'il me faut car les fichiers risquent de changer de place.

Il n'est pas possible de faire la recherche v dans ma maccro je récupére le résultat par exemple "TEST" et aprés du coup j'ai une variable qui n'est plus égale à recherchev(...) mais égale à "TEST" ?

Tu vois ce que je veux dire?

[MarcelG]

Bonjour à vous deux,

Il te faut bien définir tes variables.

Je te propose, si tu tiens aux formules dans ta cellule (sinon, une valeur peut être affectée par VBA)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
 
Dim resp_hierarch As Range
Dim madestination As Range
Set resp_hierarch = ThisWorkbook.Sheets(1).Range("C5")
Set madestination = Workbooks("Monclassseur.xls").Sheets(3).Range("D5")
With resp_hierarch
    .FormulaR1C1 = "=VLOOKUP(B2,Transco!A2:B49,2,FALSE)"
    .Value = .Value
    madestination.Value = .Value
End With
Set resp_hierarch = Nothing
Set madestination = Nothing
 
End Sub

Etudie bien ce code ligne par ligne et reviens si nécessaire.