Bonjour,
En cette période de fin d'année l'ambiance est aux petites blagues donc
J'ai créer une petite msg box à l'ouverture d'un fichier:
Private Sub Workbook_Open()
MsgBox "Bonjour, Si ce fichier n'est pas traité dans les 5 minutes, le PC explosera à ta tronche"
End Sub
Fonctionne parfaitement
Je voudrais que la petite msgbox se déplace à chaque tentative de click sur "ok" et ce 5 - 6 fois pas plus. Histoire d'un peu taquiner les collègues et que bien sur le txt ds la msgbox change
Aussi afficher une msg box en quittant
Donc je récapitule
Msg box à l'open = ok
Bouge de gauche à droite 5 à 6 fois = pas ok
Msg box en quittant = pas ok
Merci à vous
Ebl
En cette période de fin d'année l'ambiance est aux petites blagues donc
J'ai créer une petite msg box à l'ouverture d'un fichier:
Private Sub Workbook_Open()
MsgBox "Bonjour, Si ce fichier n'est pas traité dans les 5 minutes, le PC explosera à ta tronche"
End Sub
Fonctionne parfaitement
Je voudrais que la petite msgbox se déplace à chaque tentative de click sur "ok" et ce 5 - 6 fois pas plus. Histoire d'un peu taquiner les collègues et que bien sur le txt ds la msgbox change
Aussi afficher une msg box en quittant
Donc je récapitule
Msg box à l'open = ok
Bouge de gauche à droite 5 à 6 fois = pas ok
Msg box en quittant = pas ok
Merci à vous
Ebl