bug sur rechercheV

[delepine]

Bonjour
1) Ds le recherchev ci-dessous je voudrais faire varier les onglets mais le code bug....

form = _
'=IF(RC[-2]='''','''',VLOOKUP(Rc[-2],'[Pipli.xls]' & h & ''!R1C4:R100C27,3,FALSE))'

2) Deuxieme question....dans un classeur je lance une macro qui ouvre automatiquement un autre fichier, mais si ce fichier est deja ouvert la macro de doit pas le reouvrir..
Comment faire

Bon j'espere que j'ai ete clair

Merci beaucoup de votre aide

 

[Bernard_XLD]

Bonjour

1-si h correspond à un objet feuille, remplaces h par h.name
si h correspond à un index, remplaces h par sheets(h).name
sinon mets le code que l'(on puisse voir à quoi correspond la variable
2-tu peux tester si le classeur est ouvert en faisant une boucle sur application.workbooks ou en utilisant la superbe fonction de Ti que tu trouveras ici.
Lien supprimé

Cordialement, A+

 

[delepine]

mille merci Yeahou, h correspond effectivement a un index :
For h = 1 To ActiveWorkbook.Sheets.Count
sheet(h).select

et je veux que le 'h' s'integre ds la formule :
form = _
'=IF(RC[-2]='''','''',VLOOKUP(Rc[-2],'[Pipli.xls]' & h & ''!R1C4:R100C27,3,FALSE))'

Merci pour reponse a 2)


Bonne journee

 

[Bernard_XLD]

re

donc cela doit faire un truc comme
'=IF(RC[-2]='''','''',VLOOKUP(Rc[-2],'[' & activeworkbook.name & ']' & activeworkbook.sheets(h).name & ''!R1C4:R100C27,3,FALSE))'

A+

 

[delepine]

la classe!...


Merci