Bonjour à tous,
Après de nombreux essais de déclenchement automatique de macro à differentes
heures de la journée je viens chercher de l'aide ???
Voici le code que j'utilise, sans resultat:
'dans ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime TimeValue("14:15:30"), "Enregistrer_Auto"
Application.OnTime TimeValue("14:45:30"), "Enregistrer_Auto"
End Sub
Private Sub Enregistrer_Auto()
Windows("monclasseur.xls").Activate
ActiveWorkbook.Save
End Sub
je n'obtiens aucun resultat, je cherche à enregistrer un doc excel à
intervalles reguliers afin qu'il republie automatiquement (fonction de
publication en tant que page web automatique à chaque nouvel enregistrement
du classeur) sur mon site perso.
j'ai également essayé d'autres solutions comme l'enregistrement automatique
en macro complementaires
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
Tchantchet
Je te propose de modifier Private Sub Workbook_open :
Private Sub Workbook_Open() Application.EnableEvents = True Application.OnTime TimeValue("14:15:30"), "Enregistrer_Auto" Application.OnTime TimeValue("14:45:30"), "Enregistrer_Auto" End Sub
ensuite de placer la procédure Enregister_Auto dans module1 par exemple
afin de vérifier le fonctionnement de cette fonction, j'ai créé deux procédures dans Module1:
Private Sub Enregistrer_Auto1() ' «SaveAs» pour être averti de l'opération ActiveWorkbook.SaveAs Filename:="C:datasdataxlsMonclasseur1.xls" End Sub Private Sub Enregistrer_Auto2() ActiveWorkbook.SaveAs Filename:="C:datasdataxlsMonclasseur2.xls" End Sub
et dans Workook :
Private Sub Workbook_Open() Application.EnableEvents = True Application.OnTime TimeValue("09:55:00"), "Enregistrer_Auto1" Application.OnTime TimeValue("10:00:00"), "Enregistrer_Auto2" End Sub
J'espère que cela fonctionnera chez toi aussi Bonne journée
Bonjour à tous, Après de nombreux essais de déclenchement automatique de macro à di fferentes heures de la journée je viens chercher de l'aide ??? Voici le code que j'utilise, sans resultat:
Je te propose de modifier Private Sub Workbook_open :
Private Sub Workbook_Open()
Application.EnableEvents = True
Application.OnTime TimeValue("14:15:30"), "Enregistrer_Auto"
Application.OnTime TimeValue("14:45:30"), "Enregistrer_Auto"
End Sub
ensuite de placer la procédure Enregister_Auto dans module1 par
exemple
afin de vérifier le fonctionnement de cette fonction, j'ai créé deux
procédures dans Module1:
Private Sub Enregistrer_Auto1()
' «SaveAs» pour être averti de l'opération
ActiveWorkbook.SaveAs
Filename:="C:datasdataxlsMonclasseur1.xls"
End Sub
Private Sub Enregistrer_Auto2()
ActiveWorkbook.SaveAs
Filename:="C:datasdataxlsMonclasseur2.xls"
End Sub
et dans Workook :
Private Sub Workbook_Open()
Application.EnableEvents = True
Application.OnTime TimeValue("09:55:00"), "Enregistrer_Auto1"
Application.OnTime TimeValue("10:00:00"), "Enregistrer_Auto2"
End Sub
J'espère que cela fonctionnera chez toi aussi
Bonne journée
Bonjour à tous,
Après de nombreux essais de déclenchement automatique de macro à di fferentes
heures de la journée je viens chercher de l'aide ???
Voici le code que j'utilise, sans resultat:
Je te propose de modifier Private Sub Workbook_open :
Private Sub Workbook_Open() Application.EnableEvents = True Application.OnTime TimeValue("14:15:30"), "Enregistrer_Auto" Application.OnTime TimeValue("14:45:30"), "Enregistrer_Auto" End Sub
ensuite de placer la procédure Enregister_Auto dans module1 par exemple
afin de vérifier le fonctionnement de cette fonction, j'ai créé deux procédures dans Module1:
Private Sub Enregistrer_Auto1() ' «SaveAs» pour être averti de l'opération ActiveWorkbook.SaveAs Filename:="C:datasdataxlsMonclasseur1.xls" End Sub Private Sub Enregistrer_Auto2() ActiveWorkbook.SaveAs Filename:="C:datasdataxlsMonclasseur2.xls" End Sub
et dans Workook :
Private Sub Workbook_Open() Application.EnableEvents = True Application.OnTime TimeValue("09:55:00"), "Enregistrer_Auto1" Application.OnTime TimeValue("10:00:00"), "Enregistrer_Auto2" End Sub
J'espère que cela fonctionnera chez toi aussi Bonne journée
Bonjour à tous, Après de nombreux essais de déclenchement automatique de macro à di fferentes heures de la journée je viens chercher de l'aide ??? Voici le code que j'utilise, sans resultat:
