Bonsoir le forum,
J'ai créé un fichier partagé avec macros afin que 3 services puissent se communiquer des données tout au long de la journée.
Seulement, pour que chacun puisse voir les données saisies par les autres services, chacun doit enregistrer régulierement le fichier... et comme ils ont besoin d'etre constamment en contact, ils ne vont pas passer leur temps à cliquer sur sauvegarder toutes les 30 secondes...
J'ai donc souhaité ajouter une macro pour enregistrer automatiquement toutes les 30 secondes le fichier, afin que celui-ci soit toujours à jour et que chacun puisse voir toutes les 30 secondes les données saisies par les autres utilisateurs.
Mais voilà, le code ne fonctionne pas, ou tout du moins cela ne fait pas apparaitre les données des autres utilisateurs...
Quelqu"un peut il me dire pourquoi le code ne marche pas ou pourquoi cela ne fonctionne pas?
Voici mon code :
Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:10"), Enregistrer
End Sub
code de mon module "Enregistrer" :
Sub Enregistrer()
ActiveWorkbook.Save
End Sub
merci d'avance!
J'ai créé un fichier partagé avec macros afin que 3 services puissent se communiquer des données tout au long de la journée.
Seulement, pour que chacun puisse voir les données saisies par les autres services, chacun doit enregistrer régulierement le fichier... et comme ils ont besoin d'etre constamment en contact, ils ne vont pas passer leur temps à cliquer sur sauvegarder toutes les 30 secondes...
J'ai donc souhaité ajouter une macro pour enregistrer automatiquement toutes les 30 secondes le fichier, afin que celui-ci soit toujours à jour et que chacun puisse voir toutes les 30 secondes les données saisies par les autres utilisateurs.
Mais voilà, le code ne fonctionne pas, ou tout du moins cela ne fait pas apparaitre les données des autres utilisateurs...
Quelqu"un peut il me dire pourquoi le code ne marche pas ou pourquoi cela ne fonctionne pas?
Voici mon code :
Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:10"), Enregistrer
End Sub
code de mon module "Enregistrer" :
Sub Enregistrer()
ActiveWorkbook.Save
End Sub
merci d'avance!