Discussion :

[corwin44]

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 :

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

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.

[SfJ5Rpw8]

le message d'erreur ..? est tu sur du classeur "Acif" au moment ou tu initialise ta variable base...

pour voir

Code :

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

1
2
3
4
5
 
...
Set MaBase = ActiveWorkbook
msgbox mabase.name
...

sinon evite les active/select tu peu ecrire :

Code :

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

cellRecherche = MaBase.Sheets("gescom").Cells(i, y).Value