Pop-up dans excel

[la lozere]

Bonjour,
Quelqu'un aurait-il déjà fait ou vu un fichier dans lequel, une boite de dialogue s'ouvre x secondes après l'ouverture d'un fichier.

En gros, on a un fichier utilisé par pas mal de collaborateurs. Et certains ne pensent pas à le fermer après avoir fini. Et donc on est obligé de se lever ou de téléphoner pour demander à la personne de fermer le fichier.
Ainsi, si dans ce fichier il y avait une boite de dialogue qui s'ouvrait automatiquement après x secondes demandant à l'utilisateur de soit "Fermer le fichier" soit d'"Annuler" (exemple), cela nous simplifierait le truc. Et bien sur, si l'utilisateur clic sur "Annuler", cela relance le compte à rebourre.

Un exemple peut me suffire, je sais faire les userform. Mais c'est la syntaxe pour le compte à rebourre que je ne connais pas.

Merci.

 

[Victor21]

Re : Pop-up dans excel

Bonjour, la lozère.

Lien supprimé devrait t'être profitable.

 

[laetitia90]

Re : Pop-up dans excel

bonjour la lozere , victor
dans un user


Private Sub UserForm_Activate()
Dim pausetime, start
pausetime = 5 'a adapter
start = Timer
Do While Timer < start + pausetime
DoEvents
Loop
Unload Me
End Sub

 

[D.D.]

Re : Pop-up dans excel

Hello,

Un partage du fichier ne résoudrait pas le problème ?

D.D.

 

[la lozere]

Re : Pop-up dans excel

Merci les gars, j'ai pu trouver mon bonheur avec vos réponses.
A plus.

 

[Victor21]

Re : Pop-up dans excel

Re,

Si le problème est résolu, ne serait-il pas judicieux, en retour, de faire profiter de la solution à la communauté ?
Avec un petit fichier joint en exemple ?

 

[la lozere]

Re : Pop-up dans excel

Salut,
Pas de problèmes, effectivement c'est plus sympa.
Voici un exemple avec 15 seconde.

Pour améliorer le truc, est-il possible de faire afficher le USERFORME au dessus de toutes les autres fenêtres logiciels? En gros qu'il soit toujours visible tant que l'utilisateur n'a pas validé un des deux choix.

A plus.

 

[Victor21]

Re : Pop-up dans excel

Merci, la lozère.

Sympa !

 

[la lozere]

Re : Pop-up dans excel

J'ai trouvé tout seul comme un grand... Non je plaisante, j'ai trouvé le code sur le Net.
Dans le module du UserForm, tout en haut, il faut mettre:

Private Declare Function SetWindowPos Lib "User32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _
    -1, 0, 0, 0, 0, 3
End Sub

Merci et à plus.