Problème de macro
Transcriptor
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai créé un planning d'utilisation des voitures de service pour mon entreprise, avec entre autres macros la suivante :
Sub Auto_Open()
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub
Private Sub Workbook_Open()
HorlogeEnA1
End Sub
Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If
Sheets("Accueil").Range("A1").Value = Format(Now, "HH:MM:SS")
'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False
End Sub
Le problème est que, selon les utilisateurs et les postes de travail, le fichier ne s'ouvre pas sur la page d'accueil du classeur, mais sur "This Workbook", avec un message d'erreur stipulant "Format incorrect."
Je précise que le classeur et l'ensemble de ses macros fonctionnent parfaitement sur mon poste.
Avez-vous une idée du problème ?
Merci
J'ai créé un planning d'utilisation des voitures de service pour mon entreprise, avec entre autres macros la suivante :
Sub Auto_Open()
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub
Private Sub Workbook_Open()
HorlogeEnA1
End Sub
Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If
Sheets("Accueil").Range("A1").Value = Format(Now, "HH:MM:SS")
'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False
End Sub
Le problème est que, selon les utilisateurs et les postes de travail, le fichier ne s'ouvre pas sur la page d'accueil du classeur, mais sur "This Workbook", avec un message d'erreur stipulant "Format incorrect."
Je précise que le classeur et l'ensemble de ses macros fonctionnent parfaitement sur mon poste.
Avez-vous une idée du problème ?
Merci
A voir également:
- Problème de macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
