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
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