Macro pour ouvrir un autre classeur Excel selon la valeur (variable) d'une cellu

[azur123]

j'aimerais ouvrir un autre classeur selon la valeur d'une cellule c'est a dire que si par exemple une valeur a je veux ouvrir la feuil1 du nouveau classeur .
j'ai essayé d'ecrire ce code mais ca m'ouvre toujours la meme feuille je vous laisser regarder


Private Sub CommandButton1_Click()
ouvrir
End Sub


Public Function ouvrir()
Dim wb As Workbook
Dim ws As Worksheet

Dim s As Integer
s = ActiveCell.Row


Set wb = Workbooks.Open("C:\Documents and Settings\stage\Bureau\1.xls")
If Workbooks("test").Sheets("Feuil1").Cells(s, 1).Value = a Then

Set ws = wb.Worksheets(2)
Else

Set ws = wb.Worksheets(1)
End If

End Function


merci d'avance

 

[PrinceCorwin]

Re : Macro pour ouvrir un autre classeur Excel selon la valeur (variable) d'une cellu

Bonjour,

Peut être en ajoutant ws.activate après ton bloc If

Bonne journée

 

[azur123]

Re : Macro pour ouvrir un autre classeur Excel selon la valeur (variable) d'une cellu

merci pour votre reponse rapide , mais au fait en ajoutant ws.activate cela n'a pas resolu le probleme ca ma generé une erreur du type Variable objet ou variable bloc With non définie (erreur 91)