Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charles Ingals
Bonsoir, Voici déjà un petit bout de piste, j'avais trouvé ce code sur un site mais lequel...
Sub CompteARebours() compteur = 5 'pour décrementer le compteur For compteur = 5 To 0 Step -1 Range("b3").Formula = compteur 'Pour exécuter la macro dans 5 secondes!!! nouvHeure = Hour(Now()) nouvMinute = Minute(Now()) nouvSeconde = Second(Now()) + 1 Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde) Application.Wait Reprise Next If Range("b3").Value = 0 Then 'Exécution de la macro ici Call Macro1 'Remplace Macro1 par la macro à éxecuter End If End Sub
@+et bonne soirée. "Paul Eta" a écrit dans le message de news:
Bonjour,
Je suis à la recherche d'une macro pour sauvegarder puis fermer un fichier excel au bout de x minutes d'inactivité. Merci d'avance pour vos infos.
Cordialement.
Bonsoir,
Voici déjà un petit bout de piste, j'avais trouvé ce code sur un site mais
lequel...
Sub CompteARebours()
compteur = 5
'pour décrementer le compteur
For compteur = 5 To 0 Step -1
Range("b3").Formula = compteur
'Pour exécuter la macro dans 5 secondes!!!
nouvHeure = Hour(Now())
nouvMinute = Minute(Now())
nouvSeconde = Second(Now()) + 1
Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde)
Application.Wait Reprise
Next
If Range("b3").Value = 0 Then
'Exécution de la macro ici
Call Macro1 'Remplace Macro1 par la macro à éxecuter
End If
End Sub
@+et bonne soirée.
"Paul Eta" <PaulEta@discussions.microsoft.com> a écrit dans le message de
news: 5441AF02-2718-4EA4-944A-CF3260477C40@microsoft.com...
Bonjour,
Je suis à la recherche d'une macro pour sauvegarder puis fermer un fichier
excel au bout de x minutes d'inactivité. Merci d'avance pour vos infos.
Bonsoir, Voici déjà un petit bout de piste, j'avais trouvé ce code sur un site mais lequel...
Sub CompteARebours() compteur = 5 'pour décrementer le compteur For compteur = 5 To 0 Step -1 Range("b3").Formula = compteur 'Pour exécuter la macro dans 5 secondes!!! nouvHeure = Hour(Now()) nouvMinute = Minute(Now()) nouvSeconde = Second(Now()) + 1 Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde) Application.Wait Reprise Next If Range("b3").Value = 0 Then 'Exécution de la macro ici Call Macro1 'Remplace Macro1 par la macro à éxecuter End If End Sub
@+et bonne soirée. "Paul Eta" a écrit dans le message de news:
Bonjour,
Je suis à la recherche d'une macro pour sauvegarder puis fermer un fichier excel au bout de x minutes d'inactivité. Merci d'avance pour vos infos.