A voir également:
- Aide sur Macro excel evennementielle
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
Bonjour,
L'utilisation de l'instruction "Exit Sub" n'est pas souhaitable, repenser votre algorithme de résolution
afin d'en utilisé le moins possible.
Lupin
Lupin
Private Sub Workbook_Open() ' déclanchement à l'ouverture du classeur
Dim strFeuille As String, intConfirmation As Integer, strMsg As String
strFeuille = ActiveSheet.Name
Sheets("Di pair").Select
If (Range("U11") = 6) Then ' Condition que joursemaine = vendredi
If (Weekday(Now) = 6) Then
strMsg = "Voulez-vous imprimer la feuille d'absence de la semaine paire ?"
intConfirmation = MsgBox(strMsg, vbYesNo + vbExclamation, "Nous sommes vendredi, vous devez afficher le planning des absences")
If (intConfirmation = vbYes) Then
Sheets("Abs pair").PrintOut Copies:=1
Else
If (intConfirmation = vbNo) Then
strMsg = "Voulez-vous imprimer la feuille d'absence de la semaine impaire ?"
intConfirmation = MsgBox(strMsg, vbYesNo + vbExclamation, "Nous sommes vendredi, vous devez afficher le planning des absences")
If (intConfirmation = vbYes) Then
Sheets("Abs imp").PrintOut Copies:=1
End If
End If
End If
End If
End If
Sheets(strFeuille).Select
End Sub
'
L'utilisation de l'instruction "Exit Sub" n'est pas souhaitable, repenser votre algorithme de résolution
afin d'en utilisé le moins possible.
Lupin
Lupin
20 oct. 2007 à 18:28
Super ca fonctionne , En fait ecris de cette manière je comprends mieux l'arboressence, Il faut mettre toutes les conditions IF et à la fin fermer avec les End If
Merci de ton aide. Je suis vraiment un débutant en VBA
Dom51