Problème de macro
Transcriptor
Messages postés
19
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide