Forum > VB.NET et VB 2005
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveWorkbook.FollowHyperlink Address:="chemin Classeur1.xls" If Range("A1") = 1 Then 'on laisse ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.FollowHyperlink Address:="chemin Classeur1.xls" Case vbNo ActiveWorkbook.Close End Select End If End If Application.ScreenUpdating = True End Sub
Seulement la case G1 ici correspond a la feuille sur laquelle je travaille , par contre moi je voudrais la condition sur la cellule A1 du classeur a ouvrir
Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveWorkbook.FollowHyperlink Address:="chemin Classeur1.xls" If Range("A1") = 1 Then 'classeur nouvellement ouvert 'on laisse ouvert ActiveWorkbook.Activate 'classeur nouvellement ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.Activate 'classeur nouvellement ouvert Case vbNo ActiveWorkbook.Close End Select End If End If Application.ScreenUpdating = True End Sub
Private Sub CommandButton1_Click() Application.ScreenUpdating = False If Range("G1") = 1 Then 'classeur ouvert ActiveWorkbook.FollowHyperlink Address:="Chemin du Classeur.xls" Else If Range("A1") = 1 Then 'classeur nouvellement ouvert 'on laisse ouvert ActiveWorkbook.Activate 'classeur nouvellement ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.Activate 'classeur nouvellement ouvert Case vbNo ActiveWorkbook.Close 'classeur nouvellement ouvert End Select End If End If End If Application.ScreenUpdating = True End Sub
Private Sub CommandButton1_Click() Application.ScreenUpdating = False If Range("G1") = 1 Then 'classeur ouvert ActiveWorkbook.FollowHyperlink Address:="chemin du Classeur.xls" If Range("A1") = 1 Then 'classeur nouvellement ouvert 'on laisse ouvert ActiveWorkbook.Activate 'classeur nouvellement ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.Activate 'classeur nouvellement ouvert Case vbNo ActiveWorkbook.Close 'classeur nouvellement ouvert End Select End If End If Else Exit Sub End If Application.ScreenUpdating = True End Sub
Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveWorkbook.FollowHyperlink Address:="chemin du Classeur.xls" If Range("A1") = 1 Then 'classeur nouvellement ouvert 'on laisse ouvert ActiveWorkbook.Activate 'classeur nouvellement ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.Activate 'classeur nouvellement ouvert Case vbNo ActiveWorkbook.Close 'classeur nouvellement ouvert End Select End If End If Application.ScreenUpdating = True End Sub
Public Sub openclasseur_1() Application.ScreenUpdating = False ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\Propriétaire\Mes documents\Classeur1.xls" If Range("A1") = "1" Then 'classeur nouvellement ouvert 'on laisse ouvert ActiveWorkbook.Activate 'classeur nouvellement ouvert Else If IsEmpty(Range("A1")) Then Select Case MsgBox("Pas de Message à Afficher. Voulez-vous Vérifier?", vbYesNo + vbQuestion, "Information") Case vbYes ActiveWorkbook.Activate 'classeur nouvellement ouvert Case vbNo ActiveWorkbook.Close 'classeur nouvellement ouvert End Select End If End If Application.ScreenUpdating = True End Sub
Private Sub CommandButton2_Click() openclasseur_1 End Sub