[VBA-E] activation d'une page impossible
Bonjour,
j ai un souci qui m embete bcp, j ai une fonction qui doit effectuer un recherche dans un autre classeur. je cherche tt d'abord a selectionner le critére dans mon premier classeur mais quand je souhaite activer la page adequate pour recuperer l info mon code plante et je ne comprend pas pourquoi.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Function recherche!(i As Variant, y As Variant)
Dim t
Dim MaBase As Excel.Workbook
Set MaBase = ActiveWorkbook
MaBase.Sheets("gescom").Activate 'plantage ici
cellRecherche = Cells(i, y).Value
MsgBox ("valeur " & cellRecherche)
t = Cells.Find(What:=cellRecherche)
Dim Monclasseur As Excel.Workbook
Set Monclasseur = Workbooks.Open("T:\Sébastien R\extraction")
Monclasseur.Sheets("new").Activate
MsgBox ("fonction recherche " & t)
End Function |
il faut savoir que je souhaite un ouvrir une page qui est dans le classeur actif.
si qq sait pk cela plante et comment activé la page que je souhaite ca le ferait bien.
merci d'avance.
