oasis_1
XLDnaute Occasionnel
Bonjour le Forum,
Depuis un classeur A j'ai un Userform A1 dans lequel il y a un bouton qui me permet d'ouvrir un classeur B, et un feuille en particulier.
Je souhaiterais inclure l'ouverture de l'userform B1
Private Sub CommandButton1_Click()
Dim nomfichier As String
Dim nomclasseur As String
Dim x As Variant
nomclasseur = ActiveWorkbook.Name
nomfichier = "D:\Classeur B.xls"
On Error Resume Next
Set x = Workbooks(nomfichier)
If Err = 0 Then
MsgBox nomfichier & " deja ouvert "
Else
Workbooks.Open Filename:=nomfichier
Sheets("FeuilleB)").Select
End If
On Error GoTo 0
End Sub
Merci par avance.
Depuis un classeur A j'ai un Userform A1 dans lequel il y a un bouton qui me permet d'ouvrir un classeur B, et un feuille en particulier.
Je souhaiterais inclure l'ouverture de l'userform B1
Private Sub CommandButton1_Click()
Dim nomfichier As String
Dim nomclasseur As String
Dim x As Variant
nomclasseur = ActiveWorkbook.Name
nomfichier = "D:\Classeur B.xls"
On Error Resume Next
Set x = Workbooks(nomfichier)
If Err = 0 Then
MsgBox nomfichier & " deja ouvert "
Else
Workbooks.Open Filename:=nomfichier
Sheets("FeuilleB)").Select
End If
On Error GoTo 0
End Sub
Merci par avance.